Help for this page

Select Code to Download


  1. or download this
    say $];;
5.016001
...

print substr( $s, -4 );;
fred
  2. or download this
    [19:51:25.70] C:\test>\perl64-16\bin\perl \perl64\bin\p1.pl
[0] Perl> say $];;
...
[0] Perl> ++$n while $s =~ /fr/g; say $n;;
1061208000
[0] Perl>