Help for this page

Select Code to Download


  1. or download this
    $filename =~ s/\/[\/]+/\//;
  2. or download this
    #  Used a delimiter other than '/' to avoid escaping '/'.
$p =~ s!//+!/!g;
  3. or download this
    $p = '/vobs/synergy_core_apps/code/../code/personalize/src';

...
$p =~ s{ ([^/]+) /[.]{2}/ \1 } /$1/gx;

print 'after: ' , $p , "\n";