else{
my($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
$sn = sprintf("%04d%02d%02d%02d", $year + 1900, $mon + 1, $mday, 1)
}
I am trying to get $sn to print but suspect something in this code is amiss?
I am trying to get $sn to print but suspect something in this code is amiss?
my($sec,$min,$hour,$mday,$mon,$year) = localtime(time); $sn = sprintf("%04d%02d%02d%02d", $year + 1900, $mon + 1, $mday, 1) }
You are missing a ";" at the end of the $sn statement, so it should read:
}else{
my($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
$sn = sprintf("%04d%02d%02d%02d", $year + 1900, $mon + 1, $mday, 1);
}
On 15 Mar 2020 at 08:27a, Netsurge pondered and said...
You are missing a ";" at the end of the $sn statement, so it should r
}else{
my($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
$sn = sprintf("%04d%02d%02d%02d", $year + 1900, $mon + 1, $mday, 1) }
I thought that also but still could not get $sn to print in the text
file the script generates. There's an earlier 'my' declaration of $sn further up the script that if I state a value like 'my $sn=55555;' and then run the script it prints the value but for some reason that's the only way I can get the serial generated number to show.
my($sec,$min,$hour,$mday,$mon,$year) = localtime(time); $sn = sprintf("%04d%02d%02d%02d", $year + 1900, $mon + 1, $mday, 1) }
My perl is.... well that good... but I'm going to hazard a guess you're trying to assign the output of the sprintf, but you need to tell it to evaluate the expression otherwise it'll just go and assign that lot as a massive string starting with sprintf?
my($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
$sn = sprintf("%04d%02d%02d%02d", $year + 1900, $mon + 1, $mday, 1)
I am trying to get $sn to print but suspect something in this code is amiss?
else{
my($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
$sn = sprintf("%04d%02d%02d%02d", $year + 1900, $mon + 1, $mday, 1)
}
I am trying to get $sn to print but suspect something in this code is amiss?
I thought that also but still could not get $sn to print in the text
file the script generates. There's an earlier 'my' declaration of $sn further up the script that if I state a value like 'my $sn=55555;' and then run the script it prints the value but for some reason that's the only way I can get the serial generated number to show.
I know little Perl... perhaps Frank can advise but I can;t get $sn to print and suspected this section of the code may be at fault.
But if $sn is bad, perhaps the "if" statement before the "else" is triggering the true content of the if, rather than the false?
I know little Perl... perhaps Frank can advise but I can;t get $sn to print and suspected this section of the code may be at fault.
There is a deceleration before that else statement that needs to be met
or else it won't run that part of the code. That is more than likely
your issue. Once you send it to me I will sort it back out for you.
frank // netsurge
Hi Paul
can you please send me another gal-ibbs.cfg , I must have done same thing wrong transfering it to the galactic dir, as my maintence doesn't like
it. Thank you
I did send it to your SciNet inbox from Agency... did you get it?
wrong transfering it to the galactic dir, as my maintence doesn't like
it. Thank you
will do :)
Got it and sent it back to you all fixed up. I tested it and you now get
a serial number.
what was the issue Frank?
can you please send me another gal-ibbs.cfg , I must have done same t wrong transfering it to the galactic dir, as my maintence doesn't lik it. Thank you
will do :)
| Sysop: | sneaky |
|---|---|
| Location: | Ashburton,NZ |
| Users: | 2 |
| Nodes: | 8 (0 / 8) |
| Uptime: | 72:55:54 |
| Calls: | 2,119 |
| Files: | 11,149 |
| D/L today: |
45 files (9,960K bytes) |
| Messages: | 950,581 |