zydronium/imapsync
1
0
Fork 0
mirror of https://github.com/imapsync/imapsync.git synced 2025-08-04 16:01:29 +02:00
Code Issues Projects Releases Packages Wiki Activity

1.190

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

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";
}