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

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?