Linux伊甸园论坛 » PHP,PERL,Python » 趣味Perl＜二＞

Edward_chen 发表于 2004-9-23 17:01

趣味Perl＜二＞

#!/usr/bin/perl

$LOVE=               AMOUR.
    true.cards.        ecstacy.crush
  .hon.promise.de    .votion.partners.
tender.truelovers. treasure.affection.
devotion.care.woo.baby.ardor.romancing.
enthusiasm.fealty.fondness.turtledoves.
lovers.sentiment.worship.sweetling.pure
.attachment.flowers.roses.promise.poem;
$LOVE=~ s/AMOUR/adore/g; @a=split(//,
  $LOVE); $o.= chr (ord($a[1])+6). chr
   (ord($a[3])+3). $a[16]. $a[5]. chr
    (32). $a[0]. $a[(26+2)]. $a[27].
      $a[5].$a[25]. $a[8].$a[3].chr
        (32).$a[29]. $a[8].$a[3].
          $a[62].chr(32).$a[62].
           $a[2].$a[38].$a[4].
               $a[3].'.';
                 print
                  $o;

Roc.Ken 发表于 2004-9-25 17:31

:D
不错，不错，两个都收下~~~~~

linux_learning 发表于 2004-11-14 19:21

呵呵，有意思！

查看完整版本: 趣味Perl＜二＞