(thing) by ariels Tue Jan 16 2001 at 9:23:28

Perl makes for easy quines. Many famous BASIC quines used DATA; here's a Perl translation, that uses reverse to make life more interesting. 


#!/usr/local/bin/perl -w
use strict;
my @x = <DATA>;
print ((reverse @x), @x);
__END__
__END__
print ((reverse @x), @x);
my @x = <DATA>;
use strict;
#!/usr/local/bin/perl -w

del.icio.us Facebook Digg StumbleUpon Reddit (I like it!)
Y'know, if you log in, you can write something here, or contact authors directly on the site. Create a New User if you don't already have an account.