S
Subra
Hi,
Please help me to debug this problem!
galaga:72 > cat change_RWSTD_VALUE_ALLOC.pl
#!/vobs/tools_vob/tools/hpux/perl_5_8_0/perl/bin/perl
open(input,"tmp") || die("input not preset");
open(output,">outFile") || die("Output not preset");
while($line=<input>)
{
print $line;
if($line=~/_RWSTD_VALUE_ALLOC[ ]*\(.*\,/)
{
$tmpLine=$line;
$tmpLine=~s/(_RWSTD_VALUE_ALLOC[ ]*\(.*\,)/$1
PIN_ALLOC_PARAM/;
print output $tmpLine;
}
else
{
print output $line;
}
}
Please help me to debug this problem!
Badly placed ()'s.source change_RWSTD_VALUE_ALLOC.pl
galaga:72 > cat change_RWSTD_VALUE_ALLOC.pl
#!/vobs/tools_vob/tools/hpux/perl_5_8_0/perl/bin/perl
open(input,"tmp") || die("input not preset");
open(output,">outFile") || die("Output not preset");
while($line=<input>)
{
print $line;
if($line=~/_RWSTD_VALUE_ALLOC[ ]*\(.*\,/)
{
$tmpLine=$line;
$tmpLine=~s/(_RWSTD_VALUE_ALLOC[ ]*\(.*\,)/$1
PIN_ALLOC_PARAM/;
print output $tmpLine;
}
else
{
print output $line;
}
}