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

WRT this reply:

grep { croak "This doesn't look like start-end\n" unless /(.*)-(.*)/; push @a, $1; push @b, $2; } @cidr;
[download]

I've seen map (mis)used in place of a for-loop before (although I've never understood the attraction of this unclean practice), but never grep. Purely to satisfy my idle curiosity, can anyone speculate on the rationale for this odd syntactic tic? Why not just

for (@cidr) {
    croak "This doesn't look like start-end\n" unless /(.*)-(.*)/;
    push @a, $1;
    push @b, $2;
    }
[download]

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

Comment on Re: [OT]: This does not look like start end (grep vice for) Select or Download Code

Replies are listed 'Best First'.
Re^2: [OT]: This does not look like start end (grep vice for) by pryrt (Abbot) on Apr 11, 2018 at 15:19 UTC
My thought was that somewhere in the development line, the author had switched from grepping into a single array to `push @a...; push @b...;`. But I went back all the way to the v0.02 (the farthest that metacpan would take me in BackPAN), and it was still the `grep { ... push ... }`-in-void-context construct. So if it was the change to `push` that caused it, the change happened before it was tracked in CPAN.	[reply] [d/l] [select]
Re^3: [OT]: This does not look like start end (grep vice for) by AnomalousMonk (Archbishop) on Apr 11, 2018 at 16:07 UTC
... switched from grepping into a single array to `push @a...; push @b...;`. But there are many examples of statements like `grep { $_=0 } @acopy;` Very strange. Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]
Re^2: [OT]: This does not look like start end (grep vice for) by karlgoethebier (Abbot) on Apr 11, 2018 at 14:07 UTC
"...speculate on the rationale for this odd syntactic tic?" No problem at all: Someone told the author that grep is cool Someone told the author that grep is for real men Someone told the author that grep is cooler than foreach The author doesn't know foreach Other reason 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	[reply] [d/l]
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; }` [download] 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: `<%-{-{-{-<`	[reply] [d/l] [select]
Re^4: [OT]: This does not look like start end (grep vice for) by karlgoethebier (Abbot) on Apr 11, 2018 at 17:24 UTC
"...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	[reply] [d/l]


Just another Perl shrine
	PerlMonks