Number characters in an argument

[unixb0y]

Hi,

I checked the FAQ/docs and didn't find an answer.

In KSH i can do the following:
if [ /usr/bin/echo $1|/usr/bin/wc -m | -ge 10 ] ; then
print "Argument too long\n"
exit 0
fi

How would I do the "/usr/bin/echo $1|/usr/bin/wc -m | -ge 10" in perl without having to use the shell?

So far i have
if ( {@ARGV[3]} > 8 ) {
print "too large" ;
exit (1);
}

Thanks,
Karl

 

[chazoid]

try this:

if ( length($ARGV[3]) > 8 ) {
etc....