Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Hello World

by LeGo (Chaplain)
on Aug 25, 2000 at 22:01 UTC ( [id://29671]=note: print w/replies, xml ) Need Help??


in reply to Hello World

I just started to take a intro to perl course. So we get the hello world example for HW. So I decided to have fun with it a bit. Below are 2 examples in one script of how to do "HELLO WORLD!" that print a tad bit funky.
#!/user/local/bin/perl -w #hello world twice funky use strict; my @hello=('H','E','L','L','O',' ','W','O','R','L','D','!'); my $i = 0; foreach my $var(@hello){ while($i < 10000){ my @letters = ('A'..'Z'); my $m = $letters[int rand @letters]; print "$m\b"; $i++ } $i = 0; print $var; } @hello = reverse(@hello); print "\n "; foreach my $var(@hello){ print "\b\b"; sleep 1; $i++; print $var; }
LeGo

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://29671]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others romping around the Monastery: (5)
As of 2024-03-28 11:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found