Re: lwall snippet

Ronald J Kimball <[email protected]> Sun, 11 Apr 2004 01:53:40 -0400

Newsgroups	gmane.comp.lang.perl.fun
Message-ID	<[email protected]>

On Sun, Apr 11, 2004 at 12:06:17AM -0400, [email protected] wrote:

> I see.  But I think you meant
> 
>        $_ x= /(..:..)...(.*)/ && 'foo' ge $1 && 'foo' lt $2;
> 
> since the shell's $2 is never used, as far as I can tell.  I still
> have no clue what the shell's $1 would be in this case, other than the
> empty string.

% cat tmp.sh
last|perl -pe '$_ x=/(..:..)...(.*)/&&"'$1'"ge$1&&"'$1'"lt$2'
% ./tmp.sh 12:00
rjk       console  rojeki.local.    Sat Apr 10 11:59   still logged in
rjk       console  rojeki.local.    Sat Mar 27 11:38 - 12:31  (00:53)
rjk       console  rojeki.local.    Sat Mar 13 09:19 - 23:14  (13:54)
rjk       console  rojeki.local.    Sun Dec  7 10:21 - 22:44  (12:22)


Ronald