Browse files

finished containsCapitalization script

  • Loading branch information...
1 parent f099307 commit 9ed81e38a32f630f22ac45a095512c227fc578a9 @crlane committed Feb 27, 2012
Showing with 7 additions and 0 deletions.
  1. +7 −0 chapter7/containsCapitalization
View
7 chapter7/containsCapitalization
@@ -0,0 +1,7 @@
+#!/usr/bin/perl -w
+use strict;
+use 5.010;
+
+while (<>){
+ print $_ if (m/\b(?:.*[A-Z]+.*)\b/ and ($_ !~ m/\b[A-Z]+\b/));
+}

0 comments on commit 9ed81e3

Please sign in to comment.