Help for this page

Select Code to Download


  1. or download this
    001    use strict;
002    my @array;
...
006        push @array, [m/(\d+)/, $_];
007    }
008    close INFILE;
  2. or download this
        $_ =~ m/(\d+)/; #set $1 to the first group of digits
    push @array, [$1, $_];
  3. or download this
        $_ =~ m/(\d+)/;
    my @subarray = ($1, $_);
    push @array, [@subarray];
  4. or download this
        $_ =~ m/(\d+)/;
    my @subarray = ($1, $_);
    push @array, \@subarray;