[Omaha.pm] Log files might be bz2'd hack

Jay Hannah jay at jays.net
Thu Jun 9 16:09:48 PDT 2005


On Jun 9, 2005, at 11:29 AM, Andy Lester wrote:
> On Thu, Jun 09, 2005 at 11:23:03AM -0500, Jay Hannah 
> (jhannah at omnihotels.com) wrote:
>> my $glob = "/junk/__peglogs/comserver-trans-a.log.$y$m$d";
>> my $cat = "cat";
>> if (`ls $glob*.bz2 2>/dev/null`) {
>>    $cat = "bzcat";
>> }
>
> You don't need to use `ls` to get a list of files.
>
> my @files = glob( "$glob*.bz2" );

oooooo!! Slick!

So I guess I could have done something like....

my $glob = "/junk/__peglogs/comserver-trans-a.log.$y$m$d";
my $cat = "cat";
if (glob("$glob*.bz2")) {
    $cat = "bzcat";
}
open (IN, "$cat $glob* |");
while (<IN>) {
    .....

or better yet (?):

my $glob = "/junk/__peglogs/comserver-trans-a.log.$y$m$d";
my $cat = glob("$glob*.bz2") ? "bzcat" : "cat";
open (IN, "$cat $glob* |");
while (<IN>) {
    .....

j



More information about the Omaha-pm mailing list