Help for this page

Select Code to Download


  1. or download this
        use LWP::UserAgent;
    
    ...
        } else {
            print $rsp->status_line, "\n";
        }
    
  2. or download this
    -----------------8<---------8<------------------
    use Benchmark qw(cmpthese);
    ...
    othersmack()  632/s       1400%       1048%        929%        721%   
    +        --
    
    -----------------8<---------8<------------------
    
  3. or download this
    -----------------8<---------8<------------------
    use strict;
    ...
        } 
    #} 
    untie @array;
    
  4. or download this
    -----------------8<---------8<------------------
    #!/usr/bin/perl -w
    ...
    =cut
    
    -----------------8<---------8<------------------
    
  5. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
        my $hash = shift;    
        sort {$order{$b} <=> $order{$a}} keys %$hash;
    };