>On Sat, 15 Dec 2001 09:56:25 -0500 (EST), [EMAIL PROTECTED] (Jeff
>'Japhy' Pinyan) wrote:
>>Do you know that the "printable" range of characters is from 32 to 126?
>>
>>Specifically...
>>
>> character 8 is backspace
>> character 9 is tab
>> character 10 is newline
>> character 13 is carriage return
>>
>>See the ascii(5) documentation.
>
>Ok, so those odd graphic looking characters outside the range 32-126
>should not be used as input to the chr() function? Is this what
>causes my program to give irregular output?
Heh heh...I think I got the hang of it now.
My humble submission( everyone has a first, right?)
####################################################################
!/usr/bin/perl
use strict;
use warnings;
use Time::HiRes qw (time alarm sleep);
$|=1;
my @out = qw(J u s t _ A n o t h e r _ W a n n a b e _ P e r l _ H a c k e r);
while(1){
for (my $i=0; $i<32; $i++){
print "$out[$i]";
sleep(.05);
}
sleep(1);
for (my $j=1; $j<33; $j++){
print chr(8);
print chr(32);
print chr(8);
print chr(7);
sleep(.05);
}
}
exit;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
