in reply to Re: Secret Perl Operators: the boolean list squash operator, x!!
in thread Secret Perl Operators: the boolean list squash operator, x!!

I don't think I get it. First I thought you mean 

@a = (
  1, 
  2 x!! exists($h{ahoj}),
  3
);

[download]
but that does not autovivify anything in %h (perl 5.8.7). Could you post and example?

Jenda
Support Denmark!
Defend the free world!

  • Comment on Re^2: Secret Perl Operators: the boolean list squash operator, x!!
  • Download Code

Replies are listed 'Best First'.
Re^3: Secret Perl Operators: the boolean list squash operator, x!!
by Aristotle (Chancellor) on Jul 31, 2006 at 17:34 UTC

    He probably means something like this:

    exists $hash{ foo } && exists $hash{ foo }{ bar } ? $hash{ foo }{ bar 
+} : ()

    [download]

    In this case, switching to x!! will cause $hash{ foo }{ bar } to always be evaluated, which will cause $hash{ foo } to be autovivified even if the condition is false.

    Makeshifts last the longest.

[reply]
[d/l]

      I see. Actually to prevent confusion ... even this would autovivify:

      @a  = ( $hash{foo}{bar} x!! 0);

      [download]
      I guess we'd need to "fix" the x operator to not evaluate the lefthand operator if the righthand one is <=0.

      Jenda
      Support Denmark!
      Defend the free world!

[reply]
[d/l]

      Update: Never mind, i see it now ;P)

      Why would that be trouble?

      use strict;
use warnings;

use Data::Dumper;

my $hash = { test => 1};
print Dumper($hash);
print "Hello\n" x!! exists($hash->{test});
print Dumper($hash);
print "One More\n" x!! exists($hash->{test2}) && exists($hash->{test2}
+->{Dude});
print Dumper($hash);

      [download]

      That works as expected and doesn't autovivify anything...did I miss something?


      ___________
      Eric Hodges
[reply]
[d/l]

In Section Meditations