Help for this page

Select Code to Download


  1. or download this
    $str = "===test===";
if( $str =~ /(\w+)/ ) {
...
__END__
[===test===] (test)
[===temp===] (test)
  2. or download this
    use strict;
use Benchmark qw< cmpthese >;
...
           Rate    copy  substr
copy     38.6/s      --   -100%
substr 382480/s 991549%      --
  3. or download this
       if( $doc =~ s/^\s*(['"])// ) {
        parse_string($1);