develooper Front page | perl.golf | Postings from August 2002

Re: TPR(0,5?) call for referees

Thread Previous | Thread Next
From:
perl-golf
Date:
August 24, 2002 19:00
Subject:
Re: TPR(0,5?) call for referees
Message ID:
ak9dm2$ba1$2@post.home.lunix
In article <ak9d2i$ba1$1@post.home.lunix>,
	perl-golf@ton.iguana.be (Ton Hospel) writes:
> In article <3D68324F.A1AE5434@pacbell.net>,
> 	Rick Klement <rklement@pacbell.net> writes:
>> Just because I've never used tr///s before, I thought I'd try it:
>> 
>> -p $a=$_;$_=lc;length$\>y/a-z/22233344455566677778889/s|/../ or$\=$a}{
>> 
> Save a bit more like this: (hard newline)
> -ap $_=lc;length$\>y/a-z/22233344455566677778889/s|/../ or$\="@F\n"}{
slightly better:
-p grep length$\>y/a-z/22233344455566677778889/s|/../,lc or$\=$_}{

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About