2

プログラムに何かをパイプすると、EOF を示す 0x4 のような文字が表示されないようです。

$ echo "abc" | map 'cat'
saw a: \x61
saw b: \x62
saw c: \x63
saw
: \x0A
zzzbc
^C

終了するには Ctrl+C を押す必要がありますが、Ctrl+C が何に作用しているのかよくわかりません。おそらく、シェルが SIGINT をパイプラインに送信しているのでしょうか。パイプラインがそのレベルでどのように機能するかわかりません。

ここに私のプログラムがありmapます:

#!/usr/bin/env perl

use strict;
use warnings;

use IO::Pty::Easy;
use Term::ReadKey;
use Encode;

$#ARGV % 2 and die "Odd number of args required.\n";

if ($#ARGV == -1) {
    warn ("No args provided. A command must be specified.\n");
    exit 1;
}

# be sure to enter the command as a string
my %mapping = @ARGV[-@ARGV..-2];

my $interactive = -t STDIN;

# my %mapping = @ARGV;
# my @mapkeys = keys %mapping;

# warn @mapkeys;
if ($interactive) {
    print "Spawning command in pty: @ARGV\n"
    # print "\nContinue? (y/n)";
    # my $y_n;
    # while (($y_n = <STDIN>) !~ /^(y|n)$/) {
    #     print '(y/n)';
    # }
    # exit if $y_n eq "n\n";
}

my $pty = IO::Pty::Easy->new();
my $spawnret = $pty->spawn("@ARGV")."\n";

print STDERR "Spawning has failed: @ARGV\n" if !$spawnret;

ReadMode 4;
END {
    ReadMode 0; # Reset tty mode before exiting
}

my $i = undef;
my $j = 0;

{
    local $| = 1;
    while (1) {
        myread();

        # responsive to key input, and pty output may be behind by 50ms
        my $key = ReadKey(0.05);
        # last if !defined($key) || !$key;
        if (defined($key)) {
            my $code = ord($key); # this byte is...
            if ($interactive and $code == 4) {
                # User types Ctrl+D
                print STDERR "Saw ^D from term, embarking on filicide with TERM signal\n";
                $pty->kill("TERM", 0); # blocks till death of child
                myread();
                $pty->close();
                last;
            }
            printf("saw %s: \\x%02X\n", $key, $code);

            # echo translated input to pty
            if ($key eq "a") {
                $pty->write("zzz"); # print 'Saw "a", wrote "zzz" to pty';
            } else {
                $pty->write($key); # print "Wrote to pty: $key";
            }
        }
    }
}

sub myread {
    # read out pty's activity to echo to stdout
    my $from_pty = $pty->read(0);
    if (defined($from_pty)) {
        if ($from_pty) {
            # print "read from pty -->$from_pty<--\n";
            print $from_pty;
        } else {
            if ($from_pty eq '') {
                # empty means EOF means pty has exited, so I exit because my fate is sealed
                print STDERR "Got back from pty EOF, quitting\n" if $interactive;
                $pty->close();
                last;
            }
        }
    }
}

それが「zzzbc」を生成した理由を説明します。

さて、私の質問は、入力の終わりに達したmapことを知るにはどうすればよいですか? echo "abc"参照。echo "abc" | cat独自に完了します。ReadKey は、この状況を判断するための API を提供していないようです。

同様に、EOF を pty の子に渡すために同じことを行う方法がわかりません。コマンドがファイルなどに書き込むときに問題が発生する可能性があると考えています.EOFとkillシグナルの送信は、ファイルを正しく書き込むことと正常に終了しないことの違いであるためです。

4

1 に答える 1

0

その $pty オブジェクトではなく、STDIN から読み取ってみてください。シェル経由で作成したパイプは、データを STDIN ファイル記述子 0 (perl ではハンドル) に渡します。

$pty、それがあなたの端末だと思います。そのため、スクリプトがハングするだけです (推測します)。

于 2013-05-08T14:41:05.160 に答える