Regex issues in perl -


i unable detect issues in perl script below; help.

my $totaltestrunui = undef; $totaltestpassui = undef; $totaltestfailui = undef; $totaltestskippedui = undef; $percentagetestpassedui = undef;  # reg exx expression in file - 12/12/0/0  open(file1, "ci_report.txt") or die "couldn't open file file.txt, $!";  print "rajesh 1\n";  while (<file1>) {     print "rajesh 2\n";      if($_ =~ #^(\d+)/(\d+)/(\d+)/(\d+)$#)     {         $totaltestrunui = $1;         $totaltestpassui = $2;         $totaltestfailui = $3;         $totaltestskippedui = $4;         $percentagetestpassedui = ($2/$1*100);          print $1;         print $2;         print $3;         print $4;      print "rajesh 3\n";     }   close(); }  print "rajesh 4\n"; 

my $totaltestrunui = undef; $totaltestpassui = undef; $totaltestfailui = undef; $totaltestskippedui = undef; $percentagetestpassedui = undef;  # reg exx expression in file - 12/12/0/0  open(file1, "ci_report.txt") or die "couldn't open file file.txt, $!";  print "rajesh 1\n";  while (<file1>) {     print "rajesh 2\n";      if($_ =~ /^(\d+)\/(\d+)\/(\d+)\/(\d+)$/)     {         $totaltestrunui = $1;         $totaltestpassui = $2;         $totaltestfailui = $3;         $totaltestskippedui = $4;         $percentagetestpassedui = ($2/$1*100);          print $1;         print $2;         print $3;         print $4;      print "rajesh 3\n";     }  }  print "rajesh 4\n"; 

Comments

Popular posts from this blog

user interface - How to replace the Python logo in a Tkinter-based Python GUI app? -

objective c - Greedy NSProgressIndicator Allocation -

how to set an OCR language in Google Drive -