Write a File

Write a file this example will overwrite the file if it exists. This script requires one input parameter, the file to be written. To append to a file change the ">$ARGV[0]" to ">>$ARGV[0]".
unless (open(OUTFILE, ">$ARGV[0]")) { #Open overwrite print "Could not open OUT file $ARGV[0]\n"; exit 1; } print OUTFILE "OK"; close OUTFILE;

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.