Wiggins d'Anconia <[EMAIL PROTECTED]> writes:
> "The file must return true as the last statement to indicate
> successful execution of any initialization code, so it’s customary to
> end such a file with "1;" unless you’re sure it’ll return true
> otherwise. But it’s better just to put the "1;", in case you add more
> statements."
Maybe unrelated to the comments above since this is `do' I'm posting
about in this post. But I'm still seeing something here I don't
understand.
I'll use my reall example code since that is where I notice this
phenomena.
My function to slurp looks like:
cat /home/hgp/scripts/perl/fnc/lctime
sub lctime {
## Fucntion to create a date in my preferred format
@lta = localtime;
## Adjust for mnth range of 0-11
$lta[4] += 1;
## Adjust for year based on 1900, and remove leading 2 digits so
## 103 first becomes 2003 and then 03
($lta[5] = ($lta[5] += 1900)) =~ s/^..//;
## Print it out in this format:
## mnthdayyr hr:min:sec wkday (padding with zeros where necessary)
## Like 012003 15:15:51 01
printf "%02d%02d%02d %02d:%02d:%02d %02d\n", @lta[4,3,5,2,1,0,6];
}
How can I print the output of this into a file handle?
When I try, I get an extra numeral 1 which I'm guessing is a return
value from misguided referencing.
Example:
#!/usr/local/bin/perl -w
do "/home/hgp/scripts/perl/fnc/lctime";
open(FILE,">somefile");
print FILE "An extra numeral <" . &lctime . "> appears\n";
cat somefile
An extra numeral <1> appears
But the output of &lctime goes to tty.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
