http://qs321.pair.com?node_id=1212688


in reply to Re: [OT]: This does not look like start end (grep vice for)
in thread This does not look like start end

"...speculate on the rationale for this odd syntactic tic?"

No problem at all:

Hey - it looks a bit like a poll.

Best regards, Karl

«The Crux of the Biscuit is the Apostrophe»

perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help

Replies are listed 'Best First'.
Re^3: [OT]: This does not look like start end (grep vice for)
by AnomalousMonk (Archbishop) on Apr 11, 2018 at 15:23 UTC
    ◦ The author doesn't know foreach

    In support of which we have, just three lines past the grep statement:

    my $i; for ($i=0; $i <= $#a; $i++) { next if _ipcmp($b[$i], $lo) < 0; next if _ipcmp($hi, $a[$i]) < 0; return 1; }
    A genuine Perlish for-loop written in C-style. This peculiarity and another grep-loop are found also in cidradd() at line 985. I haven't looked further at the code. OTOH, in the very next function defined after cidrlookup(), cidrvalidate(), we see four kosher Perlish for-loops and a properly (IMHO) used grep, although I must admit there is no guarantee both functions were written by the same programmer. This is doing my nut.


    Give a man a fish:  <%-{-{-{-<

      "...doing my nut."

      You may invite the author to some code audit. Programmers like mail from the spanish inquisition ;-)

      «The Crux of the Biscuit is the Apostrophe»

      perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help