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
Post a Comment