[HaBo]

Serow · 26.12.10, 22:36

Hi,

ich habe ein Perl Skript geschrieben, das über STDIN per Pipe seinen Input bekommt. Dann möchte ich aber den User noch über die Kommandozeile nach etwas fragen, was leider nicht funktioniert. Hier ein Beispielcode um das Problem zu zeigen:

Code:

mathias@x61t:~$ cat test.pl 
#!/usr/bin/perl -w
use strict;
use warnings FATAL => 'all';

# read stuff from stdin
my @lines = <STDIN>;

# ask user something
print "What do you think? :";
my $answer = <STDIN>;

print "ANSWER: $answer\n";
mathias@x61t:~$ echo "hello world" | perl test.pl
Use of uninitialized value $answer in concatenation (.) or string at test.pl line 12, <STDIN> line 1.
What do you think? :mathias@x61t:~$

Kann man da irgendwas machen? Woran liegt das überhaupt? Ich vermute mal, dass er von der Pipe schon ein EOF bekommen hat oder sowas - die Interna kann ich nur raten.

ciao
serow

mime · 27.12.10, 10:37

Zitat:

Zitat von Serow

Kann man da irgendwas machen?

STDIN schliessen und neu öffnen.

Code:

#!/usr/bin/perl -w
use strict;
use warnings FATAL => 'all';

# read stuff from stdin
my @lines = <STDIN>;
close(STDIN);

# ask user something
print "What do you think? :";

open STDIN, '<&1' or die "Error open STDIN: $!";
my $answer = <STDIN>;

print "ANSWER: $answer\n";

HTH

Micha

Anzeige

- Anzeige -

Serow · 27.12.10, 16:37

Hi,

vielen Dank! Da hätte ich auch drauf kommen können

ciao
serow

Anzeige

- Anzeige -

26.12.10, 22:36	#1 (permalink)
Serow Senior Member Registriert seit: 26.03.06 Likes: 16	Perl: User Input trotz Pipe Anzeige Hi, ich habe ein Perl Skript geschrieben, das über STDIN per Pipe seinen Input bekommt. Dann möchte ich aber den User noch über die Kommandozeile nach etwas fragen, was leider nicht funktioniert. Hier ein Beispielcode um das Problem zu zeigen: Code: mathias@x61t:~$ cat test.pl #!/usr/bin/perl -w use strict; use warnings FATAL => 'all'; # read stuff from stdin my @lines = <STDIN>; # ask user something print "What do you think? :"; my $answer = <STDIN>; print "ANSWER: $answer\n"; mathias@x61t:~$ echo "hello world" \| perl test.pl Use of uninitialized value $answer in concatenation (.) or string at test.pl line 12, <STDIN> line 1. What do you think? :mathias@x61t:~$ Kann man da irgendwas machen? Woran liegt das überhaupt? Ich vermute mal, dass er von der Pipe schon ein EOF bekommen hat oder sowas - die Interna kann ich nur raten. ciao serow

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

27.12.10, 16:37	#3 (permalink)
Serow Senior Member Themenstarter Registriert seit: 26.03.06 Likes: 16	Hi, vielen Dank! Da hätte ich auch drauf kommen können ciao serow

[HaBo]

Perl: User Input trotz Pipe