1 3 5 7
thanksopen (OUT, ">gout"); while (<>){ chomp; $line = $_; push @array, $line; } print @array; open (IN, "<grep"); while (<IN>){ if ($. == ???) {print OUT $_} }
In reply to printing specific lines by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |