Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re^3: Why Perl Docs examples do not use strict and warnings often

by haukex (Bishop)
on Nov 20, 2021 at 14:24 UTC ( #11138978=note: print w/replies, xml ) Need Help??


in reply to Re^2: Why Perl Docs examples do not use strict and warnings often
in thread Why Perl Docs examples do not use strict and warnings often

I love Perl and have zero interest in trolling my beloved language.

Anonymous posts with complaints and no suggestions to improve things tend to give that impression, unfortunately.

  • Comment on Re^3: Why Perl Docs examples do not use strict and warnings often

Replies are listed 'Best First'.
Re^4: Why Perl Docs examples do not use strict and warnings often
by LanX (Sage) on Nov 20, 2021 at 17:23 UTC
    Please try to take it easier. :)

    We had many trolls recently, but IMHO this question regarding perldsc is legit.

    For example:

    Count how many times my is missing here

    Declaration of an ARRAY OF ARRAYS @AoA = ( [ "fred", "barney" ], [ "george", "jane", "elroy" ], [ "homer", "marge", "bart" ], ); Generation of an ARRAY OF ARRAYS # reading from file while ( <> ) { push @AoA, [ split ]; } # calling a function for $i ( 1 .. 10 ) { $AoA[$i] = [ somefunc($i) ]; } # using temp vars for $i ( 1 .. 10 ) { @tmp = somefunc($i); $AoA[$i] = [ @tmp ]; } # add to an existing row push $AoA[0]->@*, "wilma", "betty"; Access and Printing of an ARRAY OF ARRAYS # one element $AoA[0][0] = "Fred"; # another element $AoA[1][1] =~ s/(\w)/\u$1/; # print the whole thing with refs for $aref ( @AoA ) { print "\t [ @$aref ],\n"; } # print the whole thing with indices for $i ( 0 .. $#AoA ) { print "\t [ $AoA[$i]->@* ],\n"; } # print the whole thing one at a time for $i ( 0 .. $#AoA ) { for $j ( 0 .. $AoA[$i]->$#* ) { print "elem at ($i, $j) is $AoA[$i][$j]\n"; } }

    > > > Many of the examples also run fine in the absence of strict and warnings.

    And they still would with my declarations for all Perl 5 versions, even without 'use strict'.

    update

    But they would fail for versions not supporting ->@* and ->#* , which makes the backwards compatibility argument even more dubious.

    Cheers Rolf
    (addicted to the Perl Programming Language :)
    Wikisyntax for the Monastery

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11138978]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (5)
As of 2022-05-26 05:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you prefer to work remotely?



    Results (93 votes). Check out past polls.

    Notices?