This page has been translated from Italian
January
18

Declaration of love in Perl

| 2 commenti | TrackBack | | | 2 comments | TrackBack |
una stelladue stelletre stellequattro stellecinque stelle (Rate this article!)
Loading ... Loading ...

Here's how we perlisti declare our love

  #! / usr / bin / perl-w
 use strict; 
      my $ f = $ [; my $ ch = 0; sub l (length) sub r (join "", reverse split ("",$_[$[])} sub ss (substr ($ _ [0], $ _ [1 ],$_[ 2])) sub be {$_=$_[ 0], p (ss ($_,$ f, 1)), $ f + = l () / 2, $ f % = l (), $ f + + if $ ch% 2; $ ch + +) my $ q = r ( "\ ntfgpfdfal, ATG? bngbj". "naxfpacd ");$_=$ q, $ q = ~ tr / f [az] / [l-za-k] /; my @ .. ever = 1 & l; my $ mine = $ q; sub p (print @ _;) 
  be $ mine for ever @ 

The sentence resulting from the compilation and execution of this program is left as an exercise for the student house.

Satisfy even those who wanted a colored version to be sent by post to his beloved.

But be sure that the name will match or your cabbage :-D

This article has been viewed 67 times

2 Responses to "Declaration of love in Perl"

Leave a comment

/ me runs

Training

Racing

Categories