Shell Programming and Scripting

Code:

$str="if(top.location != location){\ntop.location.href = location.href;\n}time to go on \n\n way to life(ksudkd=!kjd\n\ndjdurr\n}" ;
if ($str =~ /.*(if\(top.location != location\)\{.?)(top\.location.href = location\.href;.?)(\}).*/s) {
$str = "//$1//$2//$3";
print "match\n" ;
print $str;
}
else
{
print "doesnot match";
}

cheers,
Devaraj Takhellambam

Why don't you do it all in Perl?

Try to add this code:

Code:

{

local ($^I, @ARGV, $/) = ('', 'your_jsp');

my $pattern = <<END;
if(top.location != location){
      top.location.href = location.href;
}
END

(my $new = $pattern) =~ s|^|//|gm;
 

  while (<>) {
   s/\Q$pattern/$new/gs;
   print;
   }
}

lots of ways to do that but you need to use the hold space. The catch is that sed stores the hold space as a single line with embedded \n's to represent the "real" newlines. so if we were to read the following three lines into holdspace...

line one
line two
last line

the the holdspace would look like this

line one\nline two\nline three

so ^ and $ only match the start and end on the entire hold space.


here's an example that has the same effect as my previous post


#find this pattern
/^if(top.location != location){$/{

#copy to holdspace

h

:comment_lines

{

#get next line

n

#Append to hold space, this accumulates multiple lines in the hold space
#but the pattern space is still only the most recent line read in

H

#continue collecting lines until we find a } on a line of it's own

/^}$/! b comment_lines

#now that we've collected all the lines we want to comment in the hold space
# we swap them back into the pattern space so we can work on them.

x

#and here's the catch...
#handle the start (remember it's now only one line so ^ only matches once)

s/^/\\\\/

#then handle each of the new lines (note the explicit line break)

s/\n/\

\\\\/g

}

}
p
#print the pattern space