O
:-o
Whats wrong with code excerpt below?
I put file test operators in an array list (arg) and 2 filenames in a 2nd array
list (fname).
I do a test
if ( ("$arg $filename") ne 0)
{
print "yes\n"
}
else
{
print "yes\n"
}
----------------------------------------------
#!/bin/perl -w
@arg=('-e', '-d', '-r', '-w', '-x', '-S');
@is=("exists? ", "directory? ", "readable? ", "writeable? ", "executable? ",
"socket? ");
@fname=($0, "perl.exe");
foreach $filename(@fname)
{
$ndx=0;
foreach $argument(@arg)
{
print "is $filename a ", $is[$ndx++];
if ( ("$argument $filename" ) ne 0)
{
print "yes\n";
}
else
{
print "no\n";
}
}
}
I put file test operators in an array list (arg) and 2 filenames in a 2nd array
list (fname).
I do a test
if ( ("$arg $filename") ne 0)
{
print "yes\n"
}
else
{
print "yes\n"
}
----------------------------------------------
#!/bin/perl -w
@arg=('-e', '-d', '-r', '-w', '-x', '-S');
@is=("exists? ", "directory? ", "readable? ", "writeable? ", "executable? ",
"socket? ");
@fname=($0, "perl.exe");
foreach $filename(@fname)
{
$ndx=0;
foreach $argument(@arg)
{
print "is $filename a ", $is[$ndx++];
if ( ("$argument $filename" ) ne 0)
{
print "yes\n";
}
else
{
print "no\n";
}
}
}