(2010-06-20) WRITE.PL - Write lines to a text file
This script will open a file to write one or more lines to it. It can
either create a new file, or append to an existing file.
The first parameter is the file name (a leading "+" indicates that it
should append to the file, otherwise it will create a new file).
Each additional parameter is one line to be written to the file. Surrounding
a parameter with quotes will allow it to contain multiple words.
#!/bin/perl
#
# Perl script to replace the functionality of WRITE
# Written: 2010-06-20
# By: Rob Ewan
#
# Usage:
# write.pl fileName "line1" "line2" ...
#
# If the fileName begins with "+", the output will be appended
#
# First parameter is the file name
$filename = $ARGV[0];
$fileOpen = 0;
# Open the output file (for write, or for append)
if ($filename =~ /^\+/) {
$filename =~ s/^\+//;
if (open(OUTFILE, ">> $filename")) {
$fileOpen = 1;
}
} else {
if (open(OUTFILE, "> $filename")) {
$fileOpen = 1;
}
}
# If the open worked,
if ($fileOpen) {
# Write each additional parameter on a separate line
for ($i = 1; $i < @ARGV; $i++) {
print OUTFILE "$ARGV[$i]\n";
}
close(OUTFILE);
} else {
print "Could not open file.\n"
}
-
Read the book on AWK.
-
Read more of my ideas on programming.
-
Look up some other scripts.
-
Go back to the front gate.
Do you have a script which I might find useful? Did you find a problem in
one of my scripts? Write to Rob to let me know.
Page maintained by Rob.