1 #-----------------------------------------------------------#
 2 # Source: Learning Perl, chapter3
 3 # Date:   2012-01-13
 4 # Author: xiaodongrush
 5 #-----------------------------------------------------------#
 6 #                          code-1                           #
 7 #-----------------------------------------------------------#
 8 $split = "-------------------------------------------------";
 9 $code1 = 'chomp(@strs = <STDIN>);'     . "\n" . 
10          'foreach(reverse(@strs)) {'   . "\n" .
11          '  print $_ . "\n";'               . "\n" .
12          '}';
13 print "code-1\n" . $code1 . "\n" . $split;
14 #-----------------------------------------------------------#
15 #                          execute-1                        #
16 #-----------------------------------------------------------#
17 print "\nexecute-1\n";
18 chomp(@strs = <STDIN>);
19 foreach(reverse(@strs)) {
20   print $_ . "\n";
21 }
22 #-----------------------------------------------------------#
23 #                          code-2                           #
24 #-----------------------------------------------------------#
25 $code2 = '@names = qw { fred betty barney dino wilma pebbles bamm-bamm };'     . "\n" . 
26          'chomp(@indexes=<STDIN>);'                                            . "\n" .
27          'foreach(@indexes) {'                                                 . "\n" .
28          '  print @names[($_-1)%7] . "\n";'                                    . "\n" .
29          '}';
30 print $split . "\ncode-2\n" . $code2 . "\n" . $split;
31 #-----------------------------------------------------------#
32 #                          execute-2                        #
33 #-----------------------------------------------------------#
34 print "\nexecute-2\n";
35 @names = qw { fred betty barney dino wilma pebbles bamm-bamm };
36 chomp(@indexes=<STDIN>);
37 foreach(@indexes) {
38   print @names[($_-1)%7] . "\n";
39 }
40 #-----------------------------------------------------------#
41 #                          code-3                           #
42 #-----------------------------------------------------------#
43 $code3 = 'chomp(@strs=<STDIN>);'      . "\n" . 
44          'foreach(sort(@strs)) {'     . "\n" .
45          '  print $_ . " ";'          . "\n" .
46          '}'                          . "\n" .
47          'print "\n";'                . "\n" .
48          'foreach(sort(@strs)) {'     . "\n" .
49          '  print $_ . "\n";'         . "\n" .
50          '}';
51 print $split . "\ncode-3\n" . $code3 . "\n" . $split;
52 #-----------------------------------------------------------#
53 #                          execute-3                        #
54 #-----------------------------------------------------------#
55 print "\nexecute-3\n";
56 chomp(@strs=<STDIN>);
57 foreach(sort(@strs)) {
58   print $_ . " ";
59 }
60 print "\n";
61 foreach(sort(@strs)) {
62   print $_ . "\n";
63 }
64 #-----------------------------------------------------------#
65 print "END!!!";
66 <STDIN>
67 #-----------------------------------------------------------#
68 # 总结
69 # 1. @str_array = <STDIN>; 每次读入一行，数组增加一个元素，
70 #    直到读入文件为空或者输入Control+Z(Windows),Control+D(Unix)
71 # 2. $_表示一些省略参数的变量，比如foreach()省略，print的省略。
72 # 3. reverse，sort，这些函数与chomp不同，更像返回值，而chomp直接修改了原数组，或者原变量