Help for this page

Select Code to Download


  1. or download this
    method1:
$item = 'path/path1==new';
my ($epath, $relt) =  split /==/, $item;
  2. or download this
    method2:
$item = 'path/path1==new';
my ($epath, $relt) =  $item =~ /([^=]*)==(.*)/;