in reply to Re^2: Search and replace next line
in thread Search and replace next line

I'm having some trouble getting it to work.
Will you look at my code and see what could be wrong? 

$cs="d:\\Perl\\Compiler_Setup.ini";

open cs or die "Cannot open $cs for read :$!";

while (<cs>) {
  if  (m/"Gimpel PC-Lint for H8]"/){
    # read the line to be replaced
    my $line = <cs>;
    # do something with it
    $line =~ s/1/0/;
    # print the new version
    print $line;
 }
}

[download]

Right now it just doesn't do anything.
in a command prompt I write
perl "replace test.pl"
and then it just goes back to d:\perl> as if it ran the program, and then just goes back to where I was before. It says:

D:\Perl>perl "replace test.pl"

D:\Perl>

Replies are listed 'Best First'.
Re^4: Search and replace next line
by Thilosophy (Curate) on Jan 05, 2005 at 12:13 UTC
    You seem to have trouble opening the file. Perl can do this for you. Try this: 
    while (<>) {
  print;
  if  (m/Gimpel PC-Lint for H8\]/){
    # read the line to be replaced
    my $line = <>;
    # do something with it
    $line =~ s/1/0/;
    # print the new version
    print $line;
 }
}

    [download]
    and run it as "perl replace_test.pl Compiler_Setup.ini". If the output looks okay, use "perl -i replace_test.pl Compiler_Setup.ini"
[reply]
[d/l]
      So instead of opening the file like I do: perl "replace test.pl" then write: perl "replace test.pl Compiler_Setup.ini" and then it will open the file Compiler_setup so that I can read lines out of it? NICE :D
      and if I set the -i attrib it will change the line LocalCompilerPresent=0 in Compiler_Setup.ini to =1 ??

      Sorry for asking this many questions, I just want to know that I got it right :) I'm quite new to perl, but I think it's fun.. :)
[reply]
        I just tried it now, but it says Can't do inplace edit without backup at test.pl line 1. how do I fix that?
[reply]

In Section Seekers of Perl Wisdom