Help for this page

Select Code to Download


  1. or download this
     my $ou ="# PATH=\$PATH:\$NAS_DB/sbin:\$NAS_DB/bin:\$NAS_DB/sbin";
print __FILE__." line".__LINE__." trace: ".$ou."\n";
if($ou =~ /^\s*#\s*(PATH=.*\$NAS_DB\/bin.*)$/)
...
$ou=~s/^\s*#\s*PATH=.*\$NAS_DB\/bin.*$/$str/;
print __FILE__." line".__LINE__." trace: ".$ou."\n";
}
  2. or download this
     my $ou ="# PATH=\$PATH:\$NAS_DB/sbin:\$NAS_DB/bin:\$NAS_DB/sbin";
print __FILE__." line".__LINE__." trace: ".$ou."\n";
if($ou =~ /^\s*#\s*(PATH=.*\$NAS_DB\/bin.*)$/)
...
$ou=~s/^\s*#\s*PATH=.*\$NAS_DB\/bin.*$/$1/;
print __FILE__." line".__LINE__." trace: ".$ou."\n";
}