Read a file

Read a file and print the contents:
unless (open (INFILE, "$ARGV[0]") ) { print "open infile $ARGV[0] failed\n"; exit 1; } while (<INFILE>) { ($dltxname,@line) = split('\n',$_); $fdltxname[$FileCnt] = $dltxname; print $fdltxname[$FileCnt], "\n"; ++$FileCnt; } close INFILE;

Copyright © 2002 Booshway Enterprises, Inc.
You have a royalty-free right to use, modify, reproduce and distribute the Sample Application Files (and/or any modified version) in any way you find useful, provided that you agree that The Booshway Enterprises, Inc. has no warranty, obligations or liability.