Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
        }
      }
    }
    
  2. or download this
    my $number = shift( @ARGV        );
    my @regexp = @ARGV[ 0..$number-1 ];