Posted By

p1p1092 on 01/13/12


Tagged


Versions (?)

Hello World


 / Published in: Perl
 

Simple Helo World Example

  1. #!/usr/bin/perl
  2.  
  3. $var = 20000;
  4.  
  5. while ($var>0){
  6. $var = $var-1000;
  7.  
  8. print "$!\n";
  9.  
  10. if ($var=20000){
  11. print "**** **** ******** **** **** ********"
  12. }
  13.  
  14. print "$!\n";
  15.  
  16. if ($var=18000){
  17. print "**** **** ** **** **** ** **"
  18. }
  19.  
  20. print "$!\n";
  21.  
  22. if ($var=16000){
  23. print "************ **** **** **** ** **"
  24. }
  25.  
  26. print "$!\n";
  27.  
  28. if ($var=14000){
  29. print "**** **** ** **** **** ** **"
  30. }
  31.  
  32. print "$!\n";
  33.  
  34. if ($var=12000){
  35. print "**** **** ******** ******** ******** ********"
  36. }
  37.  
  38. print "$!\n";
  39.  
  40. if ($var=11000){
  41. print "$!\n";
  42. }
  43.  
  44. print "$!\n";
  45.  
  46. if ($var=10000){
  47. print "** ** ** ******** ******** **** ******"
  48. }
  49.  
  50. print "$!\n";
  51.  
  52. if ($var=8000){
  53. print "** ** ** ** ** * * **** ** *"
  54. }
  55.  
  56. print "$!\n";
  57.  
  58. if ($var=6000){
  59. print "** ** ** ** ** ******** **** ** *"
  60. }
  61.  
  62. print "$!\n";
  63.  
  64. if ($var=4000){
  65. print "** ** ** ** ** * * **** ** *"
  66. }
  67.  
  68. print "$!\n";
  69.  
  70. if ($var=2000){
  71. print "************ ******** * * ******** ******"
  72. }
  73.  
  74. print "$!\n";
  75. print "$!\n";
  76.  
  77. if ($var=0){
  78. }
  79. }

Report this snippet  

You need to login to post a comment.