perlquestion
Festus Hagen
<p>Hey y'all</p>
<p>Seeking wisdom of those that are wiser then I in the Perl world!</p>
<p>To skip the fmi ramble GOTO _MEAT_</p>
<p>A project I work on hasn't been taught how to wipe up after itself and always leaves a mess behind. Very annoying! (unfortunately that responsibility falls on a deaf (and possibly dumb) individual)</p>
<p>So I whipped up batch file for Win and a script for *nix, then got the brainy idea to multi platform it with Perl, considering Perl is required on the systems anyways it'll always be there!</p>
<p>However I find a peculiar difference that prevents me at my current Perl level to get past.</p>
<p>
*nix Perl version 5.16.0<br>
Strawberry Perl version 5.16.1<br>
OS's various!
</p>
<p>_MEAT_</p>
<p>It appears "-f" fails with wildcards, should it ??<br>
It's always NOT found even though files meeting the criteria are in fact there.</p>
<p>I have tested the strings for line feeds and the like, they look perf.</p>
<p>Example:
<code>
#!/usr/bin/perl
use strict;
use warnings;
# File location: projects/myproj/
# File names: myproj.a, myproj_c.a
# This script is in the 'projects' directory.
my $Element = 'myproj/*.a';
# Actual use is like:
# next if not (-f "$Element");
# Test use:
if (-f "$Element") {
print "Found!\n";
} else {
print "NOT Found!\n";
}
</code></p>
<p><code>
# FreeBSD script works ...
#!/bin/sh
Element='myproj/*.a'
if [ -f "$Element" ]; then
echo Found!
else
echo NOT Found!
fi
</code></p>
<p><code>
rem Windows batch (cmd) works ...
@echo off
if exist "myproj\*.a" (
echo Found!
) else (
echo NOT Found!
)
</code>
</p>
<p>
Ideas ??<br>
Workarounds ??
</p>
<p>Thanks all</p>
<p>-Enjoy<br>fh <b><font color="#FF0000">:</font></b> )_~</p>