I know its possible to force perl to read the next file but have
forgotten how to do it.
The simple script below is supposed to read message files that are on
disk one message per file.
I want to go to the next file when the first blank line is seen.
I don't see how $cnt can equal one more than once per file in the
script below yet I get output that indicates it does.
Maybe its `last' I'm looking for but trying that in place of next and
I get one hit and the script stops.
Judging by the output below its resetting to 0 on every blank line,
not going to the next file.
Maybe I've been staring at this too long...
cat test.pl
#!/usr/local/bin/perl -w
$regex = shift;
while(<>){
$cnt++;
if($cnt == 1){
print "$ARGV\n";
}
if(/$regex/){
printf "%-3d %s", $cnt, $_;
}elsif(/^$/){
$cnt = 0;
next;
}
}
Run it against a directory full of 4 messages:
../test.pl '^Date: ' ~/Mail/test/[0-9]*
/home/reader/Mail/test/1
40 Date: Wed, 11 Sep 2002 17:05:03 -0700
/home/reader/Mail/test/1
/home/reader/Mail/test/1
/home/reader/Mail/test/1
/home/reader/Mail/test/1
/home/reader/Mail/test/1
/home/reader/Mail/test/2
63 Date: 12 Sep 2002 01:08:31 +0100
/home/reader/Mail/test/2
/home/reader/Mail/test/2
/home/reader/Mail/test/2
/home/reader/Mail/test/2
/home/reader/Mail/test/2
/home/reader/Mail/test/2
/home/reader/Mail/test/2
/home/reader/Mail/test/2
/home/reader/Mail/test/2
/home/reader/Mail/test/2
/home/reader/Mail/test/3
60 Date: Wed, 11 Sep 2002 20:24:12 -0400
/home/reader/Mail/test/3
/home/reader/Mail/test/3
/home/reader/Mail/test/3
/home/reader/Mail/test/3
/home/reader/Mail/test/3
/home/reader/Mail/test/3
/home/reader/Mail/test/3
/home/reader/Mail/test/3
/home/reader/Mail/test/3
/home/reader/Mail/test/3
/home/reader/Mail/test/4
20 Date: Thu, 12 Sep 2002 01:51:34 +0100
/home/reader/Mail/test/4
/home/reader/Mail/test/4
/home/reader/Mail/test/4
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
