Front page | perl.golf |
Postings from August 2002
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