in reply to Monk Specs.?
in order to use this, you'll have to change the DATA handle to LOG, and change print ; to print LOGFILE;
#!/usr/local/bin/perl -w use strict; my $date = '20020111'; while( <DATA> ) { # ignore lines until the first eight characters of the line are # greater than or equal to $date next unless( substr($_, 0, 8) >= $date ); print ; } __DATA__ 20020109 164741 892 26,212 Directories 52,846 Files (805.49 MB) Ba +cked Up a 20020110 164741 892 26,212 Directories 52,846 Files (805.49 MB) Ba +cked Up b 20020111 164741 892 26,212 Directories 52,846 Files (805.49 MB) Ba +cked Up c 20020111 164741 892 26,212 Directories 52,846 Files (805.49 MB) Ba +cked Up x 20020112 164741 892 26,212 Directories 52,846 Files (805.49 MB) Ba +cked Up y 20020112 164742 892 26,212 Directories 52,846 Files (805.49 MB) Ba +cked Up z 20020113 164741 892 26,212 Directories 52,846 Files (805.49 MB) Ba +cked Up 1
~Particle
|
---|