This commit is contained in:
Nick Bebout 2011-03-12 02:44:29 +00:00
parent 6bb9d52826
commit ff7c4df85f
10 changed files with 78 additions and 26 deletions

19
learn/uppercase_header Executable file
View file

@ -0,0 +1,19 @@
#!/usr/bin/perl
@val = (
"aBaBaBBaa: aBaBaB: aBaBaB",
" message-ad : ",
"Message-Id blabla",
" aaaa : aaaaa BBBB",
" aaaa : aaa:aa BBBB",
"",
);
foreach $val (@val) {
$val = $val;
print "[$val]", "\n";
$val =~ s/^\s*(.+?):(.+)$/\U$1\E:$2/;
print "[$val]", "\n\n";
}