Help for this page

Select Code to Download


  1. or download this
    my @matching=grep { 0 == index $_, $userinput } @commands;
    
  2. or download this
    #!/usr/bin/perl
    
    ...
    }
    
    __END__
    
  3. or download this
    $ ./foo.pl
    Choose command [foo bar baz]
    ...
    Ambiguos command [bar baz], retry!
    bar
    You chose [bar]