advanced code snippet search

Posted By

p1p1092 on 01/13/12


Tagged


Versions (?)

Hello World

 / Published in: Perl
 

Simple Helo World Example

Expand | Embed | Plain Text 
  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. 		exit
  79. 	}
  80. }

Report this snippet  

You need to login to post a comment.