Help for this page

Select Code to Download


  1. or download this
    $line="src/utility/include/abc.pl@@/main/f1/f2/1 
/main/f1/f3/f6/f7/3, /mian/1; 123\"\;";
...

$line =~ s/\/main\/.*?(,|;|\"|\s)/%I%/g;
print "\nReplacing with %I% : $line\n";
  2. or download this
    Output :
Replacing with %I% : /src/utility/include/abc.pl@@%I% %I% %I% 123";