[LUGOS-PROG] modifikacija loga

[Andraz Sraka]

On Mon, Jan 21, 2002 at 07:29:26PM +0100, Borut Mrak wrote:

> while(<>) {
>   if(/^@(\d+) <([^!]+)!.*?> (.*)$) {
>     my $time = $1;
>     my $nick = $2;
>     my $bla = $3;
>     
>     my $longtime = localtime($time);
>     
>     print "$longtime <$nick> $bla";
>   }
> }
> 
> Mogoce je kje kaksna napakica v regex-u, ker zadeve nisem preizkusal.

hmm .. ja naceloma dobim pac "Search pattern not terminated at parse line x, ki se nanasa na if(/^@(\d+) <([^!]+)!.*?> (.*)$). 

lp,
 Andraz

-- 
The real fun of living wisely is that you get to be smug about it.
		  -- Calvin