Name: Anonymous 2007-07-14 8:37 ID:DWRQwZU8
discuss
foreach $file (@ARGV) {
open(VAGINA, $file) || die("$file: $!\n");
while (!eof(VAGINA)) {
$_ = readline(VAGINA);
# manipulate $_
}
close(VAGINA);
}
foreach $file (@ARGV) {
die $! unless open(VAGINA, $file);
print readline(VAGINA) until eof(VAGINA);
close(VAGINA);
}
foreach $file (@ARGV) {
die $! unless open(VAGINA, $file);
print readline(VAGINA) until eof(VAGINA) and close(VAGINA);
}