Adam Spiers <[EMAIL PROTECTED]> writes:
> At a guess, because Perl parses that as:
>
> s/$\ n/ /mx
Of course. What I meant was s/$
/ /m, which doesn get interpreted as a variabel.
My unsucessfull 61.43 solutions has:
xyzzy% cat anagrams.pl
#!perl
map!s/$
/ /m|//||print,sort%%for map$%{_,sort/./g}.=$_,sort<>
xyzzy% perl -MO=Deparse anagrams.pl
foreach $_ (map(($%{join $;, '_', sort(/./g)} .= $_), sort(<ARGV>))) {
map((!s/\$\n/ /m | // || print($_)), sort(%%));
}
anagrams.pl syntax OK
xyzzy%
The $ gets escaped corretly.
--
Emacs er det eneste moderne styresystem der ikke er multitrådet.
