Help for this page

Select Code to Download


  1. or download this
      for(my $i = 0; $i <= $#filedata; ++$i){
    if($filedata[$i] =~ m/\d\.\.\d/){
       my $branch = $filedata[$i];}}
 print("$branch \n");
  2. or download this
    if($filedata[$i] =~ m/\d..\d/)
if($filedata[$i] =~ m/\.\./)
if($filedata[$i] =~ m/\d+\.\.\d+/)
if($filedata[$i] =~ m/../)
if($filedata[$i] =~ m/\../)