RE: pull line #1 from a file

[Yacketta, Ronald]

I have a small issue with this... it does not work 100% of the time.. I
added a print to the follwoing


sub doSID () {

        ###
        ###
        ###     Parse the @scrfiles array, replaceing _SID_
        ###     with the user supplied SID
        ###
        ###
        local @ARGV = @scrfiles;
        local $^I = ' ';
        foreach my $file (@scrfiles) {
                print "replacing _SID_ in $file with $db_name\n";
        }
        while(<>) {
                s/_SID_\E/$db_name/g;
                print;
        }
}


I get output as such

replacing _SID_ in
/apps/VQXengine/trg/ltt/input/rjy/all_wValidate_wStartupHold1.5ksecs.scr
with _VALUTEST
replacing _SID_ in
/apps/VQXengine/trg/ltt/input/rjy/IMP1_5_wStartupHold1.5ksecs.scr with
_VALUTEST
replacing _SID_ in
/apps/VQXengine/trg/ltt/input/rjy/IMP1_14_wStartupHold1.5ksecs.scr with
_VALUTEST
replacing _SID_ in
/apps/VQXengine/trg/ltt/input/rjy/IMP1_1_143_wStartupHold1.5ksecs.scr with
_VALUTEST
replacing _SID_ in
/apps/VQXengine/trg/ltt/input/rjy/PActive_0005_wStartupHold1.5ksecs.scr with
_VALUTEST
replacing _SID_ in
/apps/VQXengine/trg/ltt/input/rjy/PActive_0299_wStartupHold1.5ksecs.scr with
_VALUTEST
replacing _SID_ in
/apps/VQXengine/trg/ltt/input/rjy/Valid01Unit_wTradeIn_wStartupHold1.5ksecs.
scr with _VALUTEST
replacing _SID_ in /apps/VQXengine/trg/ltt/input/rjy/IMP1_5.scr with
_VALUTEST
replacing _SID_ in /apps/VQXengine/trg/ltt/input/rjy/IMP1_14.scr with
_VALUTEST
replacing _SID_ in /apps/VQXengine/trg/ltt/input/rjy/all_wValidate.scr with
_VALUTEST
replacing _SID_ in /apps/VQXengine/trg/ltt/input/rjy/IMP1_1_143.scr with
_VALUTEST
replacing _SID_ in /apps/VQXengine/trg/ltt/input/rjy/PActive_0005.scr with
_VALUTEST
replacing _SID_ in /apps/VQXengine/trg/ltt/input/rjy/PActive_0299.scr with
_VALUTEST
replacing _SID_ in
/apps/VQXengine/trg/ltt/input/rjy/Valid01Unit_wTradeIn.scr with _VALUTEST
replacing _SID_ in /apps/VQXengine/trg/ltt/input/rjy/change_pw.scr with
_VALUTEST
replacing _SID_ in /apps/VQXengine/trg/ltt/input/rjy/loginOnly.scr with
_VALUTEST


BUT nothing is changed! the files are all with _SID_ 

:(

where did I go wrong here?



> -----Original Message-----
> From: John W. Krahn [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, January 08, 2002 17:28
> To: [EMAIL PROTECTED]
> Subject: Re: pull line #1 from a file
> 
> 
> 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]
> 

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]