Help for this page

Select Code to Download


  1. or download this
    my $sNoLabel = substr($var, length("FILES CHECKED IN:"));
$sNoLabel =~ s/\s+/==/g;
print "MATCH$sNoLabel\n";
  2. or download this
    #move match start forward to after label
# g tells Perl to save the point where we stopped matching
...
my @aRevnums = ($var =~ /(\d+\.\d+(?:\.\d+)*)/g);

print "$sName: @aRevnums\n";