Help for this page

Select Code to Download


  1. or download this
    $file_name =~ s/.*[\/\\](.*)/$1/;
  2. or download this
    open(SAVEPDB,">$directory/${file_name}_${md5file}")
             or die $!;
  3. or download this
    if($file_name =~ /(\w+\.?\w+)$/) {
   $file_name = $1;
} else {
   die "invalid and possibly dangerous characters in filename."
}