Posted By

illuzian on 12/04/10


Tagged

random fun useless


Versions (?)

feel_good.pl


 / Published in: Perl
 

A rather useless script I wrote while bored at work..

  1. #!/usr/bin/env perl
  2. use warnings;
  3. use strict;
  4. my %feelgoods = (
  5. a => "Such AN AWESOME person",
  6. b => "Such a BRIGHT personality",
  7. c => "Such a COOL customer",
  8. d => "Super DOOPER funky town person",
  9. e => "An ELEGANTLY EPIC thingo of a person",
  10. f => "A FANTASTIC person",
  11. g => "A GIANT super here",
  12. h => "A HELPFUL HANDY HOMOSAPIAN",
  13. i => "An INTELLIGENT person",
  14. j => "A JAZZY JIMMNY JONES",
  15. k => "A KEEN KRACKER of a person",
  16. l => "A LIKABLE LOVEABLE LUNATIC",
  17. m => "A MISTICAL MASTERFUL MAGICIAN",
  18. n => "A NICE happy NOSED person",
  19. o => "An OBSERVANT OWLY OSTRICH",
  20. p => "A PERFECTLY PRETTY PERSON who FEELS SO PRETTY",
  21. q => "A QUITE QUIRKY epic person",
  22. r => "A RESPECTFUL ROW BOATING person",
  23. s => "A SAVVY SUPER hero",
  24. t => "A TOTALLY TURBULAR person",
  25. u => "An UBERHERO",
  26. v => "A VICARIOUS VALIANT epic person",
  27. w => "A WISE WABBIT",
  28. x => "A very XENIAL person",
  29. y => "A YAWNY YIPPY person",
  30. z => "A ZANY person",
  31. 0 => "Totally full of epicness",
  32. 1 => "Full of pwnage",
  33. 2 => "So damn awesome",
  34. 3 => "So damn epic",
  35. 4 => "So damn cool",
  36. 5 => "A hero",
  37. 6 => "Fully sick",
  38. 7 => "So mad and full of rad",
  39. 8 => "Perfectly awesome",
  40. 9 => "So damn nice",
  41. );
  42.  
  43.  
  44.  
  45.  
  46.  
  47. my @user = (split(//,$ENV{USER})); #get the username and split into chars
  48. #code bellow makes each char unique
  49. my @uuser;
  50. my %seen;
  51. foreach( @user ) {
  52. next if $seen{ $_ }++;
  53. push @uuser, $_;
  54. }
  55. print "You are:\n";
  56. foreach( @uuser ) {
  57. print "$feelgoods{$_} \n";
  58. }

Report this snippet  

You need to login to post a comment.