On Jul 16, David Gilden said:
>$sort_order = $ARGV[0] || $usage; # grab command line args
>
>$usage ="
># Type a number after the script name to choose the type of sorting:
># 1 = sort by type
># 2 = sort by name
># 3 = sort by color
># 4 = sort by food
>#
># Example:
># perl bears.pl 1
># sorts bears by type";
You created $usage a bit too late. Define $usage BEFORE you try using it.
--
Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
I am Marillion, the wielder of Ringril, known as Hesinaur, the Winter-Sun.
Are you a Monk? http://www.perlmonks.com/ http://forums.perlguru.com/
Perl Programmer at RiskMetrics Group, Inc. http://www.riskmetrics.com/
Acacia Fraternity, Rensselaer Chapter. Brother #734
** Manning Publications, Co, is publishing my Perl Regex book **
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
