Community  »  Perl: Allgemeines Forum

read files	Seitenanfang
Das Programm liest in einem Textfile und gibt dann eine Ausgabe nur wenn ich das programm auf ein anderes Perlprogramm laufen lasse (./prog1.pl prog2.pl) dann gibt es die erste Zeile(#! /usr/bin/perl -w) nicht aus ausserdem möchte ich gerne das jede zeile einzeln gelesen wird (nicht alles aufeinmal) und ich mit return zur nächsten Zeile komme? wie ist das möglich? #! /usr/bin/perl -w if (<>) { while (<>) { print ($_); } } else { while (<STDIN>) { print ($_); } } Datum: 19.04.2007-15:45
re: read files	Seitenanfang
ich verstehe nicht so ganz, was du meinst... aber vielleicht hilft dir das, die datei wird zeilenweise ausgegeben und nach jeder zeile auf eine eingabe gewartet use strict; use warnings; open my $fh, '<', 'filename.txt' or die $!; while (<$fh>) { chomp; print $_; <STDIN>; } close $fh; Datum: 20.04.2007-10:40