I have a few log files like these:
- /var/log/pureftpd.log
- /var/log/pureftpd.log-20100328
- /var/log/pureftpd.log-20100322
Is it possible to load all of them into a single filehandle or will I need to load each of them separately?
Add a comment
|
3 Answers
One ugly hack would be this:
local @ARGV = qw(
/var/log/pureftpd.log
/var/log/pureftpd.log-20100328
/var/log/pureftpd.log-20100322
);
while(<>) {
# do something with $_;
}
3 Comments
Pedro Silva
Use the special
ARGV filehandle to implicitly open on each file in @ARGV.
brian d foy
This is what I do. I wouldn't call it "ugly", but it's not beautiful either.
Ryan C. Thompson
Well, the reason it's "ugly" is because it's fragile: any other part of your code (or someone else's) can break this code by munging
@ARGV. For for a quick one-off script, it's fine.
It's not terribly hard to do the same thing with a different filehandle for each file:
foreach my $file ( @ARGV )
{
open my($fh), '<', $file or do { warn '...'; next };
while( <$fh> )
{
...
}
}
Comments
