in reply to Seasons Greetings

um, exactly what do you think you're doing?

that's my JAPH, as this PerlMonks post and this Google Groups post can attest.

you can't just go around stealing JAPH's like that. just because it prints a different message doesn't mean it's OK to steal code.

but, aristotle, i like your modifications very much.

Replies are listed 'Best First'.
Re^2: Seasons Greetings
by Aristotle (Chancellor) on Dec 23, 2002 at 19:35 UTC
    Thanks batkins. And here's one for the folks who want to make one of their own. :) 
    #!/usr/bin/perl -w
use strict;
undef $/;

my @body = <DATA> =~ /(.)/sg;

my %index_for;
push @{$index_for{$body[$_]}}, $_ for 0 .. $#body;

my @idx =
    map $_->[rand @$_],
    map +($index_for{$_} || [ @body + 1 ]),
    (<> =~ /(.)/sg);

print << "END";
\$/ = \\1;
print +(<DATA>)[qw(@idx)];
__DATA__
@{[ join '', @body ]}
END

__DATA__
You cannot pass,' he said. The orcs stood still and a silence fell. `I
am a servant of the Secret Fire, wielder of the Flame of Anor. You
cannot pass. The dark fire will not avail you, flame of Udun.

    [download]
    
$ echo Some random phrase | perl listify | perl
Some random phrase
    Writing programs that write other programs is still the biggest fun. :)

    Makeshifts last the longest.

[reply]
[d/l]
A reply falls below the community's threshold of quality. You may see it by logging in.

In Section Meditations