This page has been translated from Italian
Janvier
18

Déclaration d'amour en Perl

| 2 commenti | TrackBack | | | 2 commentaires | TrackBack |
una stelladue stelletre stellequattro stellecinque stelle (Noter cet article!)
Loading ... Chargement ...

Voici comment nous perlisti déclarons notre amour

  #! / Usr / bin / perl-w
 use strict; 
      my $ f = $ [; my $ ch = 0; sous l (longueur) r (sous-join "", Reverse split art sous ("",$_[$[])} (substr ($ _ [0], $ _ [1 ],$_[ 2])) sous être {$_=$_[ 0], p (f ($_,$ SS, 1)), $ f + = L () / 2, $ f % = l (), $ f + + if $% CH 2; $ ch + +) ma $ q = r ( "\ ntfgpfdfal, ATG? bngbj". "naxfpacd ");$_=$ q, q = ~ tr / f [az] / [l-za-k] /; my @ .. ever = 1 & L; my $ moi = $ q, p (sous-print @ _;) 
  Be $ à moi pour toujours @ 

La peine résultant de la compilation et l'exécution de ce programme est laissé comme exercice pour la maison des étudiants.

Satisfaire même ceux qui voulaient une version colorée pour être envoyés par la poste à sa bien-aimée.

Mais soyez sûr que le nom sera match ou votre chou :-D

Cet article a été lu 57 fois

2 réponses à "déclaration d'amour en Perl"

Laissez un commentaire

/ Me va

Formation

Racing