mirror of
https://github.com/imapsync/imapsync.git
synced 2025-08-03 07:31:48 +02:00
1.190
This commit is contained in:
parent
6bb9d52826
commit
ff7c4df85f
10 changed files with 78 additions and 26 deletions
19
learn/uppercase_header
Executable file
19
learn/uppercase_header
Executable 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";
|
||||
}
|
Loading…
Add table
Add a link
Reference in a new issue