the rest of chapter 8

Napier-JP · Oct 15, 2018 · 7523c39 · 7523c39
1 parent f0fba77
commit 7523c39
Show file tree

Hide file tree

Showing 2 changed files with 25 additions and 0 deletions.
diff --git a/ex8-5.pl b/ex8-5.pl
@@ -0,0 +1,14 @@
+#!perl
+use strict;
+use warnings;
+use utf8;
+
+while(<>){
+    chomp($_);
+    if(m/\b(?<word>\w*a)\b(?<after>.{0,5})/){
+        print "Matched: 'word' contains '$+{word}'\n";
+        print "'after' contains '$+{after}'\n";
+    }else{
+        print "No match: |$_|\n";
+    }
+}
diff --git a/ex8-6.pl b/ex8-6.pl
@@ -0,0 +1,11 @@
+#!perl
+use strict;
+use warnings;
+use utf8;
+
+while(<>){
+    chomp($_);
+    if(m/\s\z/){
+        print "'$_'";
+    }
+}