Help for this page

Select Code to Download


  1. or download this
    for (@files) {
    my @matches = /(.{8}-.{3}-i32)/g;
    my $last_match = $matches [-1];
    print $last_match, "\n";
}
  2. or download this
        my $last_match = (/(.{8}-.{3}-i32)/g) [-1];
  3. or download this
        1 while /(.{8}-.{3}-i32)/g;
    my $last_match = $1;
  4. or download this
        my ($last_match) = /.*(.{8}-.{3}-i32)/;