john w krahn jwkrahnshawca anees wrote dear friends hello perl begineer created script prints 100th record file shown usrbinperl use warnings use strict maxrecords20000 steps100 index1 reccounter0 short defined _ perl modeparse ewhile defined_ e syntax ok ifdefined test superfluous conditional already tests definedness index steps 0 perl provides variable dont need index unless steps print _ reccounter ifreccounter maxrecords break index script works fine modify script follows usrbinperl use warnings use strict maxrecords20000 steps100 index1 reccounter0 defined add defined assignment _ done test definedness perl modeparse ewhile defined defined _ e syntax ok index steps 0 print _ reccounter ifreccounter maxrecords break index john perl isnt toolbox small machine shop specialorder certain sorts tools low cost short order larry wall unsubscribe email beginnersunsubscribeperlorg additional commands email beginnershelpperlorg httplearnperlorg thu 07 aug 2008 041202 0700 perl clearification