2009-12-03T12:53:44 leo11

Ihr seit immer so verdammt schnell mit den Antworten.
Mein Ansatz war der folgende:

Code (perl): (dl )

perl -w -e '$a="abcdXXX"; $b="abcd"; $c = sub{$_[0] =~ s/X+$//g}; $a->$c; $b->$c; print "yes" if ($a eq $b)'

Find renees Lösung aber besser.

1
2

s/X+\z// for $a, $b;
print $a eq $b;

Lieblingsmodule: IPC::System::Simple, Path::Class