Re^2: Indirect Object Syntax

> I've started always using the second notation just because it never parses incorrectly.

I'd rather go for extra semicolon:

%set= map {; $_ => foo($_) } @list;

demo with `perl -de0`

  DB<45> x map {a=>1} 1..3;                      # seeing hash, but co
+mma missing
syntax error at (eval 55)[c:/Strawberry/perl/lib/perl5db.pl:738] line 
+2, near "} 1"
  DB<46> x map {a=>1}, 1..3;                     # seeing hash again
0  HASH(0x2f501e8)
   'a' => 1
1  HASH(0x2f4a1e8)
   'a' => 1
2  HASH(0x2f4d0e0)
   'a' => 1
  DB<47> x map {;a=>1} 1..3;                      # seeing code
0  'a'
1  1
2  'a'
3  1
4  'a'
5  1
  DB<48>
[download]

YMMV! :)

edit

Anyway, Perl should check for the missing comma. I suppose this happens too late for the parser.

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery}

Comment on Re^2: Indirect Object Syntax Select or Download Code

Replies are listed 'Best First'.
Re^3: Indirect Object Syntax by choroba (Cardinal) on Nov 07, 2021 at 21:50 UTC
> Anyway, Perl should check for the missing comma. I suppose this happens too late for the parser. IIRC, the parser can only check the following token when deciding whether the { starts a block or an anonymous hash. That's also why the ; helps. `map{substr$_->[0],$_->[1]\|\|0,1}[\\|\|{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^ARGV,3]`	[reply] [d/l]
Re^4: Indirect Object Syntax by LanX (Saint) on Nov 08, 2021 at 00:00 UTC
yeah, that's what I meant with > I suppose this° happens too late for the parser. °) i.e. the comma edit Anyway: any correctly parsed LIST inside an `{anonymous hash}` is also a legal block (just the LIST returned) Perl could always try to parse a block and look if there is a comma following. Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l]

demo with perl -de0

edit

edit

demo with `perl -de0`