Pattern matching and subsitution

[kriz4321]

Hi all,

I have a file say test.txt which has the following lines

@TS_FILE:|: win32version\files\TEST_5643_PCB53105
@TS_FILE:|: win32version\files\TEST_5645_PCA53105

I need to replace the above lines as below in the same file
@TS_FILE:|: win32version\files\PCB53105
@TS_FILE:|: win32version\files\PCA53105

I need to remove "TEST_XXXX_" form it..

I tried the same but Iam not able to even match the required line Can anyone tell me how
to do the same..iam new to perl..

open (FH1, "TestPlan.tst") || die "Can't find the tst file";
my $var='@TS_FILE:|: win32version\Attached_files\TEST_';
print $var;
while (<FH1>) {
    $temp = $_;
    if ($temp =~ /"$var"/) {
        print $_;
        print "Match Found";
    }
}
close(FH1);
 

[prn]

perl -i -p -e's/TEST_\d*_//g' TestPlan.tst

Google "perl edit in place" for more information.

HTH,
Paul

[KevinADC]

why did you add the double-quotes into the regexp?

if ($temp =~ /"$var"/) {

#open (FH1, "TestPlan.tst") || die "Can't find the tst file";
my $var='@TS_FILE:|: win32version\Attached_files\TEST_';
print $var,"\n\n";
while (<DATA>) {
   $temp = $_;
   if ($temp =~ /$var/) {
      print "Match Found -> $_";
   }
}
#close(FH1);
__DATA__
@TS_FILE:|: win32version\files\TEST_5643_PCB53105
@TS_FILE:|: win32version\files\TEST_5645_PCA53105