Perl-Sensitive Sunglasses | |
PerlMonks |
Dogg's scratchpadby Dogg (Scribe) |
on Jun 03, 2004 at 00:45 UTC ( [id://359858]=scratchpad: print w/replies, xml ) | Need Help?? |
#!/usr/bin/perl use strict; open (INFILE0, "0/1.out") or die "Can't open 0/1.out: $!\n"; open (INFILE12, "12/1.out") or die "Can't open 12/1.out: $!\n"; our $0 = <INFILE0>; our $12 = <INFILE12>; print "File 0 \n"; print "$0\n"; print "File 12 \n"; print "$12\n"; |
|