Here is a few seconds of work guessing at what you are trying to do:
#!perl -w
use strict;
open(OUTFILE,">paramsfile.txt");
foreach (@ARGV) {
print OUTFILE "$_\n";
}
close OUTFILE;
Note that the paramsfile.txt would just keep writing over itself, so maybe if this process ran daily you could say something like:
#!perl -w
use strict;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(t
+ime);
$year = $year + 1900;
$mon = $mon+1;
if (length($mon)<2) { $mon = "0" . $mon; }
if (length($mday)<2) { $mday= "0" . $mday; }
my $fn = "paramsfile_" . $year . "_" . $mon . "_" . $mday . ".txt";
open(OUTFILE,">$fn");
foreach (@ARGV) {
print OUTFILE "$_\n";
}
close OUTFILE;
If that is what you are trying to do I hope helpful.
nandeya
|