Date: 19 Sep 2001 05:11:17 GMT
From: damian@qimr.edu.au (Damian James)
Subject: Re: filter out short strings
Message-Id: <slrn9qga3g.r7f.damian@puma.qimr.edu.au>

On 19 Sep 2001 01:58:03 -0300, * Tong * said:
>
>How can I filter out strings that are too short from an array?
>
>@out = grep { (=~ tr/a-z//i) <3} @in;

@out = grep { length >= 3 } @in;

See perldoc -f length

Cheers,
Damian
-- 
@:=grep!(m!$/|#!..$|),split//,<DATA>;@;=0..$#:;while($:=@;){$;=rand
$:--,@;[$;,$:]=@;[$:,$;]while$:;push@|,shift@;if$;[0]==@|;select$,,
$,,$,,1/80;print qq x\bxx((@;+@|)*$|++),@:[@|,@;],!@;&&$/}  __END__
Just another Perl Hacker,### http://home.pacific.net.au/~djames.hub