Re^4: Can't locate print error

Hello choroba,

Yes, ok, thanks, I guess that makes sense: the parser can’t know in advance whether a yet-to-be-imported object has a particular method or not. But it’s still a bit strange:

21:54 >perl -c -Mstrict -wE "PRINT OUT 42;"
-e syntax OK

21:55 >perl -c -Mstrict -wE "PRINT 42;"
Number found where operator expected at -e line 1, near "PRINT 42"
        (Do you need to predeclare PRINT?)
syntax error at -e line 1, near "PRINT 42"
-e had compilation errors.

21:55 >perl -c -Mstrict -wE "PRINT;"
Bareword "PRINT" not allowed while "strict subs" in use at -e line 1.
-e had compilation errors.

21:55 >perl -c -Mstrict -wE "PRINT(42);"
-e syntax OK

21:55 >
[download]

Why does PRINT 42; produce a compile error, but PRINT(42) not? There’s no possibility of an indirect object in the latter case, is there?

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

Comment on Re^4: Can't locate print error Select or Download Code

Replies are listed 'Best First'.
Re^5: Can't locate print error by choroba (Cardinal) on Dec 03, 2015 at 12:13 UTC
`PRINT 42` is a compile time error, because `strict subs` is in scope and `PRINT` hasn't been declared. `PRINT(42)` is syntactically correct, but will die once you remove the `-c`, as no `PRINT` sub was declared. Again, the sub can come from something like `eval ' sub PRINT { print 1 + shift }';` [download] so you can't say during compile time whether `PRINT` will exist once you'll need it. ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^5: Can't locate print error
by choroba (Cardinal) on Dec 03, 2015 at 12:13 UTC

PRINT 42

strict subs

PRINT

PRINT(42) is syntactically correct, but will die once you remove the -c, as no PRINT sub was declared. Again, the sub can come from something like

eval ' sub PRINT { print 1 + shift }';
[download]

so you can't say during compile time whether PRINT will exist once you'll need it.

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

[reply]
[d/l]
[select]