Help for this page

Select Code to Download


  1. or download this
    The regular expression:
    
    ...
    ----------------------------------------------------------------------
    )                        end of grouping
    ----------------------------------------------------------------------
    
  2. or download this
    http://search.cpan.org/perldoc?Acme::Tools
    
  3. or download this
    use strict;
    use warnings;
    ...
    for (my $index = $#array; $index >= 0; --$index){
        splice (@array, $index, 1) if $array[$index] =~ /1|3/;
    }