#!/usr/bin/perl # by collin chua use Sound::Effect qw~samuraiSwordSound~; use CGI qw~:cgi~; $me = Sound::Effect->new(); $me->set_volume("loud"); # This routine depictng me as how gracious I handle my virtual sword, +even come with superb sound effects too :) &cut_enemy_with_my_katana( $me->get_sound("fast_draw"), $me->get_sound("angular_slash"), $me->get_sound("scabbard_return") ); $me = CGI->new(); # After my valourous deed, its me back to search for more virtual swor +d techniques... $me->redirect('http://www.google.com'); sub cut_enemy_with_katana{ #Very elegant sword techniques but gory details here.... }

Janitored by Arunbear - replaced pre and br with code tags

Replies are listed 'Best First'.
Re: Bushido In Perl
by Happy-the-monk (Canon) on Oct 11, 2004 at 12:57 UTC

    I'd believe a Bushi or Samurai would first of all   require strict;

    Care of sounds and effects should be left to be optional,
    but technique and the art therein should get quite some emphasis.

    Thank you for this meditative piece of code.

    Cheers, Sören

      I am glad you found it useful.
Re: Bushido In Perl
by lwicks (Friar) on Oct 11, 2004 at 13:25 UTC
    Perhaps also -T

    I can't believe a samurai would go into battle tainted.

    Kia Kaha, Kia Toa, Kia Manawanui!
    Be Strong, Be Brave, Be perservering!

      Oops I forgot! Btw Samurai also led a very strict life, therefore:

      use strict;
Re: Sword Sounds In Perl
by kutsu (Priest) on Oct 12, 2004 at 02:47 UTC

    Though this is an interesting snippet of perl, it has little to do with Bushido. Bushido is 義 (Facing Difficulty), 勇 (Courage), 仁 (Benevolence), 礼 (Respect), 誠 (Honesty), 名誉 (Honor), 尽忠 (Loyalty) - a possibly better explaination may be found at shotokai's website. If you wish to call this Bushido in perl, please show something of Bushido besides the sound a katana makes (which could be mistaken for a great many swords based solo on the sounds provided)

    Minor Note: "scabbard_return" should be "return to place of peace" in any case

    "Cogito cogito ergo cogito sum - I think that I think, therefore I think that I am." Ambrose Bierce

      Interesting points you have. But I still stick to the "Bushido in Perl +" concept. Bushido in Perl(or rather, Perl in the Bushido context) is + just a metaphorical interpretation in the essence for all Perl progr +ammers. If you take it too literally, you should not be in this poetr +y page. For proof : (Facing Difficulty) - Remember how you tamed the beasts of those line +noises? I am sure many does, just like those Bushido facing his great +est sworn enemy. (Courage) - We all have the courage(even confident) in our art to the +extreme that we even play Golf with it. We don't see people in other +camps does this. (Benevolence) - I have notice Perl programmers don't snob at newbies. +I can't say this to other kind of programmers. (Respect) - We hold great respect for all supra-mundane codes, this wa +y we will all learn. (Honesty) - You must be true to your own self, else your code will not + execute. (Honor) - We all hold great honor of being a Perl programmer, perhaps +feeling a little too much in the honor to the state that we all becam +e hubris about it. (Loyalty) - I had notice all true Perl programmer hold a great loyalty + to this language, even to the extend of waxing poetries in this page + ;)

        You have some excellent ideas there, though they could be refined a bit with a further understanding of bushido.

        I don't think the grandparent was suggesting that there can be no link between bushido and Perl. Merely that your published poem doesn't really demonstrate that link. As a comedic piece, it's mildly amusing, but it doesn't address any of the ideals of bushido -- in fact, those who follow that path might even take offense.

        It's OK if you were trying to be offensive -- art that offends is sometimes the most useful -- but if you were trying to extoll bushido, you need to rework some of its concepts into your poem.

        radiantmatrix
        require General::Disclaimer;
Re: Bushido In Perl
by CountZero (Bishop) on Oct 11, 2004 at 19:34 UTC
    Nice, but is it poetry?

    CountZero

    "If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law

      Poetry has rules?
      such strict things can be very bad
      invisible gerbil!
        There once was a young Monk (that's me!) Who deigned to write lymericks with glee. It was ever so fun But before he was done He completely lost all sense of meter and rhyming.
        radiantmatrix
        require General::Disclaimer;
Re: Bushido In Perl
by SpanishInquisition (Pilgrim) on Oct 11, 2004 at 17:40 UTC
    Powerful samurai implement cross-platform CGI based sound delivery!