mirror of
https://github.com/imapsync/imapsync.git
synced 2025-06-08 13:44:31 +02:00
14 lines
236 B
Perl
Executable file
14 lines
236 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
|
|
use Unicode::IMAPUtf7;
|
|
|
|
my $t = Unicode::IMAPUtf7->new();
|
|
|
|
while (<>) {
|
|
chomp ;
|
|
#push( @result, sprintf( "%33s %s\n", $_, $t->decode($_) ) ) ;
|
|
push( @result, sprintf( "%s\n", $t->decode($_) ) ) ;
|
|
}
|
|
|
|
print @result ;
|