Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

60 Acme Modules

by cog (Parson)
on Jun 29, 2006 at 05:20 UTC ( #558220=perlmeditation: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
      use Acme::ProgressBar;
    
      progress { sleep 5; }
    
  2. or download this
      <Directory /fullmoon>
          PerlAccessHandler Acme::Apache::Werewolf
          PerlSetVar MoonLength 4
      </Directory>
    
  3. or download this
      use Acme::Current;
    
      printf "It's now %04d/%02d/%02d.\n",
        $Acme::Current::YEAR,
        $Acme::Current::MONTH,
        $Acme::Current::DAY;
    
  4. or download this
      use Acme::Time::Baby;
    
      print babytime;
    
  5. or download this
      use 5.6;            # I use our(), so 5.6 is required
      no  6.0;            # but this was coded for perl 5, not perl 6
                          # and the perl 6 compat layer isn't really 5.6
    ...
      use mod_perl 1.27;  # we need at least version 1.27
      no mod_perl 2.0;    # but mod_perl 2.0 is entirely different than 1.
    +0
                          # so keep my cpan email to a minimum
    
  6. or download this
      use Acme::MetaSyntactic; # loads the default theme
    
      print metaname();
    
  7. or download this
      use Acme::NumericMethod;
    
      print one(); # 1
    
  8. or download this
      use Acme::Comment type => 'C++', own_line => 1;
    
      /*
    ...
      */
    
      // I prefer beer.  --sqrn
    
  9. or download this
      use Acme::AutoColor;
    
      $red   = RED();    # 'ff0000'
    
      @green = GREEN();  # (0, 255, 0)
    
  10. or download this
      use Acme::PerlTidy;
    
      # your code here.
    
  11. or download this
      use Acme::landmine; # crucial, this line
    
      tie $scalar, "Acme::landmine" => "first use of \$scalar";
    
  12. or download this
      $c = Acme::Colour->new("black");
    
      $colour = $c->colour; # black
    ...
      $c->add("green");
    
      $colour = $c->colour; # yellow
    
  13. or download this
      use Acme::Octarine;
    
      $c = Acme::Colour->new("octarine");
    
  14. or download this
      $c = Acme::Orange->new();
    
      $colour = $c->colour; # orange
    ...
      $c = Acme::Orange->new("pink");
    
      $colour = $c->colour; # orange.
    
  15. or download this
      use Acme::LAUTER::DEUTSCHER;
        
      print "Timmy pet the cute puppy.\n";
    
  16. or download this
      use Acme::Bleach;
    
      print "Hello world";
    
  17. or download this
      use Acme::Morse;
    
      print "S-O-S\n";
    
  18. or download this
      use Acme::Morse;
      .--.-..--..---.-.--..--.-..--..---.-.--.
      .-.-........---..-..---.-..-.--..---.--.
      ..-.---......-...-...-..--..-.-.-.--.-..
      ----..-.-.--.-..--..-.-...---.-..---.--.
      .-...-..--.---...-.-....
    
  19. or download this
      use Acme::Buffy;
    
      print "Hello world";
    
  20. or download this
      use Acme::Buffy;
      BUffY bUFFY BUffY bUFFY bUfFy buffy BUFfy     buFFY BufFy     BufFY 
    +  bUFfy BuFFY buffy       bufFy bUffy bUffY BuFfy BuffY   bUFfy BUfFY
    + BUFFy       Buffy bUffY     
      BuFFY BUFFy   BufFy BUFfy BUfFY buFfy BuffY   BuFfy   BUfFY bUffy   
    +  buFFy   BUffy   bUffy 
    
  21. or download this
      use Acme::Pony;
    
      print "Hello world";
    
  22. or download this
      use Acme::Pony;
    
                 b U                               
    ...
                     BUf                 FyB       
                   UFF                  YbU        
                  fXXX                  XX         
    
  23. or download this
      use Acme::EyeDrops qw(sightly);
    
      print sightly( { Shape       => 'camel',
                       SourceFile  => 'eyesore.pl' } );
    
  24. or download this
                              .('`'^'/').('['^
                           ')').('`'|'!').('`'|'.'
                      ).('`'|"'").('`'|'%').('{'^'['
    ...
             (                 (                    (     (
            (                    '`'              ))       )
           )                          )))))))))))            )
    
  25. or download this
      use Acme::PerlML;
      
      print "Hello World!\n";
    
  26. or download this
      use Acme::Palindrome;
    
      print "Hello world";
    
  27. or download this
      use Acme::Palindrome;
    
      ;"dlrow olleH" tnirp
    
  28. or download this
      use Acme::Python;
    
      print "Hello world\n";
    
  29. or download this
      use Acme::Python;
      Hisssssssssssssssss
      hiss Hiss hiss Hiss hisssssssss Hissss hisss 
    ...
      Hiss hisss Hisss hissss Hissss hiss Hiss 
      hisss Hissss hiss Hisss hisss Hiss hissss 
      Hiss hisss Hisss hiss Hissss hisss
    
  30. or download this
      use Acme::Bleach::Numerically;
    
      print "Hello, world!\n";
    
  31. or download this
      
    0.04077830385217895611955160212512929196016776281431819016525415740357
    +276847685546830674148636286630688176512385587746157153993832269969945
    +108065634565146854816801317130164957814821591216272596262777549929907
    +106239320662736498321147589742139555335498357635515276342630386352539
    +0625
    
  32. or download this
      use Acme::DoubleHelix;
    
      print "Hello";
    
  33. or download this
       CG
      T--A
      A---T
    ...
         C---G
        A----T
       A----T
    
  34. or download this
      use Smirch;
    
      Smirch::smear("tooClean.pl");
    
  35. or download this
                                              $==$'; 
                                             $;||$.| $|;$_
                 ='*$ (                  ^@(%_+&~~;# ~~/.~~
    ...
                          ;,.*+        ,./|,.);  ~~@-         );;;,.(
                        ),.*+);                              ;#~~/|@-
                      __~~;#~~                                $';$;;
    
  36. or download this
      use Acme::Everything;
    
      Any::Module->any_method;
    
  37. or download this
      #!/usr/bin/perl
      use Acme::Lingua::NIGERIAN;
    
    ...
      TRANSFER_DISCREETLY SWISS_BANK_ACCOUNT US$17 MILLION, "\N";
    
      TRANSFER_DISCREETLY SWISS_BANK_ACCOUNT US$17 MILLION + 25, "\N";
    
  38. or download this
      use Acme::Scurvy::Whoreson::BilgeRat;
      
      my $insultgenerator = Acme::Scurvy::Whoreson::BilgeRat->new(
    ...
      );
      
      print $insultgenerator; # prints a piratical insult
    
  39. or download this
       use Acme::Scripticide qw(good_bye_cruel_world);
    
       if(i_take_medication_and_therapy()) {
    ...
       else {
           good_bye_cruel_world();
       }
    
  40. or download this
      use Acme::ScriptoPhrenic;
      path/to/script.pl
      path/to/another_script.pl  
      path/to/you/guessed/it/another/script.pl
    
  41. or download this
      use Acme::JAPH
      a;ltiucqpoc3iqp04tu1 -394t8[ieufea[=09E U 0ET 9u [4tu]]]
    
  42. or download this
      use Acme::MJD;
    
      print "Hello world";
    
  43. or download this
      use Acme::MJD;
    
      Read.  Learn.  Evolve.
        --  Mark Jason Dominus
    
  44. or download this
      use Acme::DeepThoughts;
    
      print "Hello world";
    
  45. or download this
      use Acme::DeepThoughts
    
      To us, it might look like just a rag. But to the brave, embattled me
    +n
    ...
      after that, it was torn up and used for shoe-shine rags, so the men
      would look nice for the surrender.
              --  Jack Handey
    
  46. or download this
      use Acme::Bushisms;
    
      print "Hello world";
    
  47. or download this
      use Acme::Bushisms;
    
      "Families is where our nation finds hope, where wings take dream."
      --George W Bush, LaCrosse, Wis., Oct. 18, 2000
    
  48. or download this
      use Acme::MorningMusume;
    
      my $musume = Acme::MorningMusume->new;
    ...
      my @active_members       = $musume->members('active');
      my @graduate_members     = $musume->members('graduate');
      my @at_some_time_members = $musume->members(Date::Simple->new('2001-
    +01-01'));
    
  49. or download this
      use Acme::Playmate;
    
      my $playmate = new Acme::Playmate("2003", "04");
    ...
      print "Hips" . $playmate->{ "Hips" } . "\n";
      print "Height" . $playmate->{ "Height" } . "\n";
      print "Weight" . $playmate->{ "Weight" } . "\n";
    
  50. or download this
      use Data::Dumper;
      use Acme::Your "Data::Dumper";
    
      your $Varname;  # This is really $Data::Dumper::Varname
    
      print "The default variable name for DD is $Varname";
    
  51. or download this
      use Acme::ButFirst;
    
      # Print a greeting, but first find caffiene.
    ...
      } but first {
              print "I need a coffee\n";
      }
    
  52. or download this
      use Acme::Don't;
    
      don't { print "This won't be printed\n" };
    
  53. or download this
      package Foo;
      use Acme::Dot;
      sub new { bless {}, shift }
    ...
      package main;
      my $x = new Foo;
      $x.hello(1,2,3); # Calls the method
    
  54. or download this
      use Acme::Damn;
    
      my $ref = ... some reference ...
    ...
         $ref = damn $obj;   # recover the original reference (unblessed)
    
      ... neither $ref nor $obj are Some::Class objects ...
    
  55. or download this
      use Acme::Holy;
    
      my $ref = ... some reference ...
    ...
      
      print holy( $obj );                           # prints 'Some::Class'
      print ( holy [] ? 'object' : 'not object' );  # prints 'not object'
    
  56. or download this
      use Acme::Currency '„';
    
      „money = '„1.12';
      @time  = ( „money, „and_I_mean_it );
    
  57. or download this
       use Acme::ComeFrom;
    
        sub func { print "@_" }; func("start\n");
    ...
    
        expr0: print "to be\n"; exit;
        comefrom "expr".int(rand(2)); print "not to be\n";
    
  58. or download this
      use Acme::DWIM;
    
      my ($x) = +("Hullo " x 3 . "world" & "~" x 30) =~ /(.*)/;
      $x =~ tr/tnv/uow/;
      print $x;
    
  59. or download this
      use Acme::DWIM;
    
      my ($x) ... ...("Hullo " ... 3 ... "world" ... "~" ... 30) ... /(...
    +)/;
      $x ... tr/tnv/uow/;
      print $x;
    
  60. or download this
      use Acme::Pythonic; # this semicolon yet needed
    
      sub delete_edges:
    ...
                  my @e = $G->edges($u)
                  while ($u, $v) = splice(@e, 0, 2):
                      $G->delete_edge($u, $v)
    
  61. or download this
      use Acme::Method::CaseInsensitive;
      
      package Class;
    ...
      }
      
      Class->FoO_bAR;
    
  62. or download this
      use Acme::Goto::Line;
      print "This is a loop\n";
      goto(2);
    
  63. or download this
      use Acme::VerySign;
    
      sub hello { "Hello World" }
    ...
      print "Did you mean: $_ ?" foreach @{ helo() }
      helo()->buy();
      print helo();
    
  64. or download this
      #!/usr/bin/perl
      use Acme::Code::Police;
    
  65. or download this
      #!/usr/bin/perl
      use Acme::Code::FreedomFighter;
      use Acme::Code::Police;
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlmeditation [id://558220]
Approved by grinder
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (7)
As of 2014-07-24 09:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (158 votes), past polls