Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
use warnings;
...
# -----------------------
my $fullelementpath2 = "f:/_wo/haldane space.txt";
if (-T $fullelementpath2) {print "passed T\n";}else{print "failed for 
+$fullelementpath2\n";}

Select or download this

C:\>pl_test\887602.pl
passed T
passed T

C:\>