Re: It doesn't mean what you think it means


Clear questions and runnable code get the best and fastest answer
	PerlMonks

Re: It doesn't mean what you think it means

by Stegalex (Chaplain)

on Apr 11, 2002 at 15:05 UTC ( [id://158333]=note: print w/replies, xml )

Need Help??

in reply to It doesn't mean what you think it means
in thread Compiling regular expressions to perform substitution

Slight modification needed to make this compile. Here it is:

my %mungers = (
            foo => sub { $_[0] =~ s/foo/bar/g },
                fru => sub { $_[0] =~ s/(fru.*)/uc($1)/e },
              );

if( $phase_of_moon > WAXING_GIBBOUS ) {
  $mungers{foo}->( $string );  # this line changed
} else {
  $mungers{fru}->( $string );  # this line changed
}
[download]

Again, thanks for everyone's help. I like chicken.