Public ScratchpadDownload, Select Code To D/L

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl

...
sub process {
    -f && -x && $ARGV[0] eq $_ && print $File::Find::name, "\n";
}
  2. or download this
    { $a->{b} = $b || last }
  3. or download this
    package Tie::Hash::OnlyIf;
sub STORE {
...
package main;
tie my %data, Tie::Hash::OnlyIf;
$data{b} = $b;
  4. or download this
    use strict;
use warnings;
...
ok( "A1"        =~ /[\w\d]{2,}/ );
ok( "56429K01B" =~ /[\w\d]{2,}/ );
ok( "1132086"   =~ /[\w\d]{2,}/ );