Help for this page

Select Code to Download


  1. or download this
    my ($path,$version);

...
$version = "3.5.2+tcl-tk-8.5.18+sqlite-3.10.0";
$path =~ s/$version.*/$version/s;
print($path."\n");
  2. or download this
    my ($path,$version);

...
$version = quotemeta("3.5.2+tcl-tk-8.5.18+sqlite-3.10.0");
$path =~ s/$version.*/$version/s;
print($path."\n");
  3. or download this
    /a/b/version1
/some/path/3\.5\.2\+tcl\-tk\-8\.5\.18\+sqlite\-3\.10\.0