#!/usr/bin/perl my $isHeader = 1; my $targetDate = 20161002; foreach (<STDIN>){ if (!$isHeader){ my ($M12,$M11,$M481,$M55,$M989) = split(' ',$_); if ($M11 <= $targetDate){ print $_; } } $isHeader = 0; }
In reply to Re^2: perl file formatting
by perlforsgs
in thread perl file formatting
by perlforsgs
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |