Help for this page

Select Code to Download


  1. or download this
    sub weirdmatch {
        my ($foo, $bar) = @_;
    ...
    print weirdmatch('the' => 'there');  # 1
    print weirdmatch('foo' => 'raboof'); # 1
    print weirdmatch('moo' => 'monkey'); # 0
    
  2. or download this
    2;0 juerd@ouranos:~$ perl -e'undef christmas'
    Segmentation fault
    2;139 juerd@ouranos:~$