Ronald Yacketta wrote:
>
> Can someone help me fix this? I know I am on the right track (I hope)
> but not sure where I am going south
>
> open FILE, "$g_logpass";
> $line = <FILE>;
> close (FILE);
> chomp($line);
> system("cp ../input/$g_logpass ../input/tmp.scr");
> system("sed -e 's/'$line'/'$db_name'/g' ../input/tmp.scr > $g_logpass");
use Fatal qw(open close);
{
local $^I = '';
local @ARGV = "../input/$g_logpass";
while ( <> ) {
s/\Q$line\E/$db_name/g;
print;
}
}
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
