Got it so far.
open CHECKFILE, "< file.in" or die qq(Cannot open file "file.in": $!);
@filecontent = <INFILE>;
foreach $line (@filecontent) {
print " $line";
}
close (INFILE);
The input file (list of files) looks something like this:
P: 1 N: 11222
P: 2 N: 22333
P: 3 N: 33444
P: 4 N: 44555
How can I output just from the above code?
11222
22333
33444
44555
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
