12个Geek的求婚方式

dirk

goole map 很好

991man

hu花样多

losange

我想和君长相随,日夜不离相依偎.
　　只因人鬼不同路,只有独自空伤悲.

nonparler

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4.      my$f=           $[;my
   
5.    $ch=0;sub       l{length}
   
6. sub r{join"",   reverse split
   
7. ("",$_[$[])}sub ss{substr($_[0]
   
8. ,$_[1],$_[2])}sub be{$_=$_[0];p
   
9. (ss($_,$f,1));$f+=l()/2;$f%=l
   
10.   ();$f++if$ch%2;$ch++}my$q=r
    
11.    ("\ntfgpfdfal,thg?bngbj".   
    
12.     "naxfcixz");$_=$q; $q=~
    
13.       tr/f[a-z]/ [l-za-k]
    
14.         /;my@ever=1..&l
    
15.           ;my$mine=$q
    
16.             ;sub p{
    
17.              print
    
18.               @_;
    
19.                }
    
20.                         
    
21.        be $mine for @ever
    
22. 
    
23. 
    
24. 试着运行了下，还是真的呢
    
25. 
    
26. $ perl heart.pl
    
27. kristen, will you marry me?
    
28. 
    
29. 
    

复制代码