note
Festus Hagen
Much Thanks.
<p>With that I brewed the following:
<code>
sub fexist($) {
my $str = shift;
for (glob qq("$str")) {
return 1 if -e "$_";
}
return 0;
}
</code></p>
<p>However I have use for the Link, Directory, File result so:
<code>
sub fexist($) {
my $str = shift;
for (glob qq("$str")) {
return 3 if -l "$_";
return 2 if -d "$_";
return 1 if -f "$_";
}
return 0;
}
</code></p>
<p>
Critiques ??<br>
Comments ??<br>
Suggestions ??<br>
Improvements ??</p>
<p>Thanks</p>
<p>-Enjoy<br>fh <b><font color="#FF0000">:</font></b> )_~</p>
1003275
1003276