zydronium/imapsync
1
0
Fork 0
mirror of https://github.com/imapsync/imapsync.git synced 2025-06-15 17:04:45 +02:00
Code Issues Projects Releases Packages Wiki Activity

1.504

Browse source
This commit is contained in:
Nick Bebout 2012-09-02 19:08:57 -05:00
parent 495d5a9526
commit c08a56e486
277 changed files with 692 additions and 10803 deletions
Download patch file Download diff file Expand all files Collapse all files

19
learn/uppercase_header
View file

@ -1,19 +0,0 @@
#!/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";
}