topic Need script in perl in Operating System - HP-UX

Need script in perl

Swetha reddy — Tue, 09 May 2006 06:21:30 GMT

if (($x>=0) && ($x<=7)) // validating the xth column (0-7 values)
{
a++;
}
else
{
b++;
print $0 > "Error.txt" // redirects the failed rows
}
need to use the same code in perl ...in failed condition needs to disaply the row contents for teh failed one.

Re: Need script in perl

H.Merijn Brand (procura — Tue, 09 May 2006 06:26:20 GMT

# Remark 1. // as comment is bad. Very bad (TM)

if (($x >= 0) && ($x <= 7)) { # validating the xth column (0-7 values)
$a++;
}
else {
$b++;
open ERR, ">> Error.txt" or die "Error.txt: $!";
print ERR; # redirects the failed rows
close ERR;
}

Enjoy, Have FUN! H.Merijn