I am trying to do a simple string substitution, but could not succeed.
#!/usr/bin/perl
$var = "M4S120_appscan";
$var1 = "SCANS";
$path =~ s/$var/$var1/;
print "Path is $path"
The output should be "Path is SCANS", but it prints nothing in 'output'.
To replace "M4S120_appscan" with "SCANS" in a string:
$str = "Path is M4S120_appscan";
$find = "M4S120_appscan";
$replace = "SCANS";
$str =~ s/$find/$replace/;
print $str;
If this is what you want.
$find or $replace contain special characters? Why not $str =~ s/M4S120_appscan/SCANS/? (maybe with /g to replace all, not just the first match)Substitution is a regular expression search and replace. Kindly follow Thilo:
$var = "M4S120_appscan";
$var =~ s/M.+\_.+can/SCANS/g; # /g replaces all matches
print "path is $var";
The substitution operator, s///, takes three arguments: the string, in which we want to do replacement, in your example is a $path variable, the search term ($var) and the replacement, $var1.
As you can see, you try to replace "M4S120_appscan" with "SCANS" inside an empty string, because $path is not initialized. You need to initialize $path before doing replacement, for example:
$path = "M4S120_appscan";
print "Path is $var1"? What is the substitution supposed to do?