完成正则表达式

helloworld.pl

@@ -0,0 +1,18 @@
+use strict;
+use warnings;
+# Question:
+# 这两行的含义？
+
+# Usage
+die "perl $0 <word>\n" if(@ARGV==0);
+# Question:
+# @ARGV==0 是啥意思？
+
+# 接收参数
+my($word) = @ARGV；
+# Question:
+# @ARGV是一个什么变量？
+
+print "hello $word\n";
+# Question
+# print 的用法

operatePerl.pl

@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+##Copyrigh (C) 2011 by linchao
 #Program:
 #       练习Perl的运算符
 #2017/01/22     林超      First release

regexPerl.pl

@@ -1,3 +1,4 @@
+#!usr/bin/perl -w
 =cut
 while(<>)
 {
@@ -33,10 +34,19 @@
 #s#<a>.*</a>#$1#g;
 print("Matched:|$`----$&-----$'|\n");
 print($_);
+# 小骆驼第九章第三题
+$^I = ".out";
+while(<>)
+{
+  s/print/!!!!!!!!!!!!!!!!!!!!/g;
+  s/#/print/g;
+  s/!!!!!!!!!!!!!!!!!!!!/#/g;
+  print($_);
 =cut
+# 小骆驼第九章第四题
 $^I = ".out";
 while(<>)
 {
-  s/print/say/g;
+  s/(#!.*\n)/$1##Copyrigh (C) 2011 by Alice Zhao\n/g;
   print($_);
 }

varPerl.pl

@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+##Copyrigh (C) 2011 by linchao
 #Program:
 #   Perl变量练习
 #2017/01/21     林超      First release