use Perl

• Huh? (Score:1)

  by Aristotle (5147)

  I don’t see what’s wrong with that.

  You probably won’t like the way I’d write it either:

  my $_combination_info = {};
  sub combination_info {
      my $self = shift;
      my ( $info ) = @_;
      for ( $_combination_info->{ $self->csv_file_name } ) {
          $_ = $info if @_;
          return $_;
      }
  }
  • Re: (Score:1)

    by mauzo (8185)

    5.10's given makes that a little less obscure to those unfamiliar with the idiom, or rather, since setting $_ is the only point of given, noone has to stop and think 'what's he looping over again?'
    • Re: (Score:1)

      by Aristotle (5147)

      $ ~/perl/5.10.0/bin/perl -E '$x = 1; given ( $x ) { $_++ } say $x'
      1
      $ ~/perl/5.10.0/bin/perl -E '$x = 1; for ( $x ) { $_++ } say $x'
      2
      • Now it's my turn to go 'Huh?' (Score:1)

        by mauzo (8185) on 2009.02.11 18:49 (#67314)

            perl5.10.0 -E'say \my $x; given ($x) { say \$_ }'
            SCALAR(0x28368370)
            SCALAR(0x283683c0)

        It's a copy? Why on earth? Nothing in Perl copies its parameters. Doesn't that just make the whole feature hugely less useful? It's not as though given (my $tmp = $x) {} is that obscure, especially given its common use in conjunction with s///...

        Oh, and look:

            perl5.10.0 -E'say \$_ given my $x'
            syntax error at -e line 1, near "$_ given"
            Execution of -e aborted due to compilation errors.

        OK, I'll stop thinking given might be useful and start getting used to the idea of for/when statements instead.

        </splutter>

        Reply to This

        Parent

        • Re: (Score:1)

          by Aristotle (5147)

          I suppose it’s nice to be able to write given ( $foo ) in place of for ( my $copy = $foo ). But yeah, that threw me too. It’s a pity; a missed opportunity, even.

          The fact that you can’t use given as a statement modifier doesn’t bother me.