搜索模式并替换perl模块文件的整行

Question

I have a perl module file. like this :

$release_name       = 'Software Release';
$primary_version    = '1';
$secondary_version  = 'R00.0';
$Main_version   = 'R00.0';

I want to search the Main_version and replace the line to

      $Main_version = R00.1 

when i run the script. I have tried like this. but its not working.

#!/usr/bin/perl -w

use strict;
my $base;
my $file = "/main-dir/work/Myfile.pm";
open(FILE, $file) || die "File not found";
my @base = <FILE>;
close(FILE);
my $item = '$Main_version';
my newitem="R00.1";
foreach $base(@base)
    {
      if($base =~ /$item/){
         $base =~ s/$item/$item='$newitem'/gi;
         print ("Hello, world!\n");
      }
    #else { print $base;}
}
open (BASE, ">$file");
print BASE @base;
close (BASE);

How to search and change the entire line of a perl module? Thanks.

Answer 1

Had you used the standard VERSION variable, you could have profited from perl-reversion .

The dollar sign is special in regular expressions, it means "the end of the line". Backslash it, or use quotemeta which could be shortened to \\Q in a regex:

$base =~ /\Q$item/