This is a precursor to a real JAPH signeture (I need to learn more perl
before I can write a really obfuscated one), and I have already gotten it to
print what it was supposed to, but I changed print chr($letter); to print
chr(@word); to see if it would work, which is when I got the happy face
output in perl. Any ideas?
(By the way, I haven't fixed the while loop yet so be ready to quit fast to
read the output.)
Joel
#!usr/bin/perl
use Warnings;
use Strict;
my $h=4;
my @word = (0x4E, 0x65, 0x72, 0x64);
while ($h > 0) {
$h++;
$letter=shift @word;
print chr(@word);
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
