On Thu, Dec 18, 2003 at 03:08:05PM +0530 Swaminathan Gopal wrote:
> There are many interesting data about Perl in perlhist. For example,
>
> perldoc perlhist | perl -ne 'print if /larry.+\d+-\w+-\d+/i' | head -1
> Larry 1.000 1987-Dec-18
>
> Happy Birthday Perl!
>
> Btw, how can we do the above without using "head -1"? Any Perl way?
Sure:
perldoc perlhist | perl -ne 'print and exit if /larry.+\d+-\w+-\d+/i'
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
