Help for this page

Select Code to Download


  1. or download this
    my ($source_cont) = $CtRet =~ /^source cont=(.*)/m
   or die("Didn't find source cont\n");
  2. or download this
    my ($source_cont) = $CtRet =~ /^source cont=("[^"]*")/m
   or die("Didn't find source cont\n");
$source_cont =~ s/\n/ /g;