PERL----名符其实的“胶水语言”

前端之家收集整理的这篇文章主要介绍了PERL----名符其实的“胶水语言”前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
@H_301_6@ JAVA代码部分:
  1. BufferedReader br null 
  2. try  
  3.     br new BufferedReader(new FileReader("test.txt"));  
  4.     String line br.readLine();  
  5.     while (null != line)  
  6.         if (line.startsWith("http:"))  
  7.             System.out.print(line);  
  8.         line br.readLine();  
  9.      
  10. catch (FileNotFoundException e)  
  11.     System.out.println("Can't open file:" e.getMessage());  
  12. catch (IOException e)  
  13.     e.printStackTrace();  
  14. finally  
  15.     if (null != br)  
  16.         try  
  17.             br.close();  
  18.         catch (IOException e)  
  19.             e.printStackTrace();  
  20.          
  21.      
  22. }

PERL代码部分:

  1. BEFOREHAND: close door, each window exit;  wait until time.  
  2.     open spellbook, study, read (scan, select, tell us);  
  3. write it, print the hex while each watches,  
  4.     reverse its length, write again;  
  5.         kill spiders, pop them, chop, split, kill them.  
  6.             unlink arms, shift, wait listen (listening, wait),  
  7. sort the flock (then, warn the "goats" kill the "sheep");  
  8.     kill them, dump qualms, shift moralities,  
  9.          values aside, each one;  
  10.              die sheep! die to reverse the system  
  11.                   you accept (reject, respect);  
  12. next step,  
  13.     kill the next sacrifice, each sacrifice,  
  14.          wait, redo ritual until "all the spirits are pleased" 
  15.     do it ("as they say").  
  16. do it(*everyone***must***participate***in***forbidden**s*e*x*).  
  17. return last victim; package body;  
  18.     exit crypt (time, times "half time"close it,  
  19.          select (quickly) warn your next victim;  
  20. AFTERWORDS: tell nobody.  
  21.              wait, wait until time;  
  22.                   wait until next year, next decade;  
  23.                       sleep, sleep, die yourself,  
  24.                            die at last 

猜你在找的Perl相关文章