Help for this page

Select Code to Download


  1. or download this
    $HomePath = $ENV{"WORKHOME"};
$Model = shift;
$Model =~ m/\Q$HomePath\E\\(.*)\\[.\w]+/i;
$WorkingDirectory  = $1;
  2. or download this
    m/ 
  \Q          # Match exact string till \E
...
  \\          # Backslash
  [.\w]+      # A filename (letters and period)
/i            # Case insensitive