Re: Log File Parsing using "split"

This is an archived low-energy page for bots and other anonmyous visitors. Please sign up if you are a human and want to interact.

Well, kind of minor, but:

Regarding

if ( $logfile =~ /WMS/ ) {
        $media = "wms";
        $prefix = "/usr/home/script/${media}_cust/";
        $suffix = ".$media.log";
} else {
        die "Unknown file format";
}
[download]

So, if it matches WMS, you set some variables, if not you die. Why, then, not just set the variables, then check the match and die? It's not (wholly) just golfing, I think it makes it a bit more logically clear.

$media='wms';
$prefix = "/usr/home/script/${media}_cust/";
$suffix = ".$media.log";
die "logfile name does not contain 'WMS'\n" if $logfile !~ /WMS/;
[download]

Also, is it now printing each full record whenever it starts with a digit? Or rather, is that what you're trying to do? I agree that you seem to be using $thiscust for multiple purposes -- once as the customer id and once as a file hande, and this seems unadvised.

-----------------
_{s''limp';@p=split '!','n!h!p!';s,m,s,;$s=y;$c=slice @p1;so brutally;d;$n=reverse;$c=$s**$#p;print(''.$c^chop($n))while($c/=$#p)>=1;}

Comment on Re: Log File Parsing using "split" Select or Download Code

• hippo

‥ epoptai's answer Re: how do I set a cookie and redirect was blessed by hippo!

• erzuuli

‥ Anonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.


The stupid question is the question not asked
	PerlMonks