perl scripting?

[Ridzuan Zakaria]

Hi all,

How do we check for null string and "/" in perl?

i.e

if [ "${DEL}" = "" -a "${PATH}" = '/' ]; then
echo "BLANK and /"
fi

Thanks.
ridzuan

[H.Merijn Brand (procura]

if ($ENV{DEL} eq "" && $ENV{PATH} eq "/") {
print "BLANK and /\n";
}

Enjoy, have FUN! H.Merijn

[Brian Bergstrand · Accepted solution]

#!/opt/perl/bin/perl

$del="Your String Here";
$path="Your String Here";
if ($del =~ /^$/ && $path =~ /^\/$/) {printf "BLANK and /";}

HTH.

[A. Clay Stephenson]

The key is that "eq" and "ne" compare strings while "=" and "!=" compare numeric values.

[A. Clay Stephenson]

Ooops, I meant "==" and "!=" are used for numeric comparisons. "=" always means assignment.