On Tuesday, January 7, 2003, at 11:19 AM, Peter Scott wrote:
[responding to replacement of sub displayResults with {print __LINE__ . " sub displayResults";}]When I use "__LINE__, "... in a test script[1] I get:
That needs to be __LINE__, not __line__. The above is an error.
You do have -w and use strict in this program, right?
No comma allowed after filehandle at print_line.pl line 5.
When I use "__LINE__ . "... in a test script[2] I get:
__line__ sub displayResults
(I had imagined __LINE__ might have been intended to print the line number in which Perl thought the line occurred, but then, I am not familiar with "__" in Perl ...)
I had "-w" in use in my original scrips, but not "use strict"; adding "use strict" to the script with sub displayResults disemboweled reveals:
chris% dice/nudice-01c
Global symbol "$request" requires explicit package name at dice/nudice-01c line 32.
Global symbol "@input" requires explicit package name at dice/nudice-01c line 41.
Global symbol "$ResultsSum" requires explicit package name at dice/nudice-01c line 42.
Global symbol "$argNumber" requires explicit package name at dice/nudice-01c line 43.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 44.
Global symbol "$SumResults" requires explicit package name at dice/nudice-01c line 46.
Global symbol "$minZero" requires explicit package name at dice/nudice-01c line 47.
Global symbol "$TableFormat" requires explicit package name at dice/nudice-01c line 48.
Global symbol "@input" requires explicit package name at dice/nudice-01c line 50.
Global symbol "$thisArgument" requires explicit package name at dice/nudice-01c line 51.
Global symbol "@input" requires explicit package name at dice/nudice-01c line 51.
Global symbol "$currentArg" requires explicit package name at dice/nudice-01c line 52.
Global symbol "$thisArgument" requires explicit package name at dice/nudice-01c line 52.
Global symbol "$argNumber" requires explicit package name at dice/nudice-01c line 53.
Global symbol "$currentArg" requires explicit package name at dice/nudice-01c line 54.
Global symbol "$SumResults" requires explicit package name at dice/nudice-01c line 56.
Global symbol "$SumResults" requires explicit package name at dice/nudice-01c line 57.
Global symbol "$SumResults" requires explicit package name at dice/nudice-01c line 58.
Global symbol "$minZero" requires explicit package name at dice/nudice-01c line 59.
Global symbol "$minZero" requires explicit package name at dice/nudice-01c line 60.
Global symbol "$TableFormat" requires explicit package name at dice/nudice-01c line 61.
Global symbol "$TableFormat" requires explicit package name at dice/nudice-01c line 62.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 65.
Global symbol "$currentArg" requires explicit package name at dice/nudice-01c line 66.
Global symbol "$originalArgument" requires explicit package name at dice/nudice-01c line 75.
Global symbol "@requests" requires explicit package name at dice/nudice-01c line 79.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 79.
Global symbol "$originalArgument" requires explicit package name at dice/nudice-01c line 79.
Global symbol "@requests" requires explicit package name at dice/nudice-01c line 85.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 85.
Global symbol "$SumResults" requires explicit package name at dice/nudice-01c line 85.
Global symbol "@requests" requires explicit package name at dice/nudice-01c line 87.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 87.
Global symbol "$minZero" requires explicit package name at dice/nudice-01c line 87.
Global symbol "@requests" requires explicit package name at dice/nudice-01c line 89.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 89.
Global symbol "$TableFormat" requires explicit package name at dice/nudice-01c line 89.
Global symbol "$currentArg" requires explicit package name at dice/nudice-01c line 95.
Global symbol "@requests" requires explicit package name at dice/nudice-01c line 97.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 97.
Global symbol "@requests" requires explicit package name at dice/nudice-01c line 99.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 99.
Global symbol "@requests" requires explicit package name at dice/nudice-01c line 101.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 101.
Global symbol "$currentArg" requires explicit package name at dice/nudice-01c line 105.
Global symbol "@requests" requires explicit package name at dice/nudice-01c line 107.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 107.
Global symbol "@requests" requires explicit package name at dice/nudice-01c line 109.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 109.
Global symbol "@requests" requires explicit package name at dice/nudice-01c line 111.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 111.
Global symbol "$currentArg" requires explicit package name at dice/nudice-01c line 115.
Global symbol "@requests" requires explicit package name at dice/nudice-01c line 117.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 117.
Global symbol "@requests" requires explicit package name at dice/nudice-01c line 119.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 119.
Global symbol "$currentArg" requires explicit package name at dice/nudice-01c line 123.
Global symbol "@requests" requires explicit package name at dice/nudice-01c line 125.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 125.
Global symbol "@requests" requires explicit package name at dice/nudice-01c line 127.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 127.
Global symbol "$currentArg" requires explicit package name at dice/nudice-01c line 131.
Global symbol "@requests" requires explicit package name at dice/nudice-01c line 133.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 133.
Global symbol "@requests" requires explicit package name at dice/nudice-01c line 135.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 135.
Global symbol "$currentArg" requires explicit package name at dice/nudice-01c line 139.
Global symbol "@requests" requires explicit package name at dice/nudice-01c line 141.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 141.
Global symbol "@requests" requires explicit package name at dice/nudice-01c line 143.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 143.
Global symbol "$currentArg" requires explicit package name at dice/nudice-01c line 147.
Global symbol "@requests" requires explicit package name at dice/nudice-01c line 151.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 151.
Global symbol "@requests" requires explicit package name at dice/nudice-01c line 157.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 157.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 163.
Global symbol "$argNumber" requires explicit package name at dice/nudice-01c line 163.
Global symbol "$originalArgument" requires explicit package name at dice/nudice-01c line 163.
Global symbol "@requests" requires explicit package name at dice/nudice-01c line 169.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 169.
Global symbol "$currentArg" requires explicit package name at dice/nudice-01c line 173.
Global symbol "@requests" requires explicit package name at dice/nudice-01c line 175.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 175.
Global symbol "$requestNumber" requires explicit package name at dice/nudice-01c line 179.
Global symbol "$argNumber" requires explicit package name at dice/nudice-01c line 179.
Global symbol "$originalArgument" requires explicit package name at dice/nudice-01c line 179.
syntax error at dice/nudice-01c line 187, near "sub displayResults "
dice/nudice-01c has too many errors.
... and I have no idea what an explicit package name is :-) At your request, I have placed the whole, ugly thing at www.PuckU.org/misc/nudice-01c for inspection of why Perl thinks the line numbers are as it reports ... I apologize in advance for the program's appearance -- though it looks like it's set up to iterate through requests and need not create a complicated data structure full of info on each request and what's been done with it, I wanted to get practice with what have been introduced to me as anonymous storage. So I (try to) use anonymous storage and I have written everything else as if it were happy to do without ...
Thanks!
--Chris
[1]
#!/usr/bin/perl -w
# print_line.pl
use strict
print __line__, " sub displayResults\n";
[2]
#!/usr/bin/perl -w
# print_line.pl
use strict
print __line__ . " sub displayResults\n";
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
