in reply to Golf: Embedded In Order

42 chars in the sub. 
use strict;
my $s = "abcdefghijklmnopqrstuvwxyz";
my $t = "for";
print x($s,$t),"\n";
$t="perl";
print x($s,$t),"\n";

sub x{
my($s,$t)=@_;
eval"\$s=~tr/$t//cd";
$s eq$t;
}

[download]
update
one less: 
sub x{
eval"\$_[0]=~tr/$_[1]//cd";$_[0]eq$_[1];
}

[download]

Replies are listed 'Best First'.
Re: Re: Golf: Embedded In Order
by MeowChow (Vicar) on Apr 27, 2001 at 22:07 UTC
    Interesting method, but it doesn't properly handle: 
    my $s = "abcfoforrxyz";
my $t = "for";

    [download]
    There are also serious escaping issues with the interpolated code inside the eval :) 
       MeowChow                                   
               s aamecha.s a..a\u$&owag.print
[reply]
[d/l]

In Section Meditations