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

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 a 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