Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -wT
  2. or download this
    if ($outfile !~ /^(\w+)\z/) {die "Disallowed characters in filename: '
+$outfile'";}
else {open(OF, ">$outfile") or die "-------------- cannot open OF";}
  3. or download this
    perl -wT ../perl_scripts/XXX.pl .......
  4. or download this
    
else {$outfile = $1; open(OF, ">$outfile")
  5. or download this
    my @arr = `perl -wT $XXXfile $inp_file $outfile 'param'`;