qoo eiji wrote:
Okay, I wrote this script because I've been trying to find a way to
search my attachments in Thunderbird.
I figured I'm not the only one but it's a quick hack and not a module
so I don't know where to post it, so here it is:
You can do anything you want with it. It's not very polished because I
thought I'd give myself more time before polishing it up and put
options into it. Right now it's just a pipe - cos I can't guarantee
that it won't kill your mbox!
After running your mbox through this code you should be able to search
your attachment names under the tage "X-META-01".
[ SNIP ]
sub getSubValues {
my $value = shift @_;
my %subvalues = ();
my $initial;
my $oldvalue = "";
($initial, $value) = $value =~ m/^([^;\n\r]*)[;[:space:]\n\r]*
(.*)/sg;
The [:space:] character class already includes the characters \n and \r.
$subvalues{""} = $initial;
while ($value) {
($key, $value) = $value =~ /([^=]*)=(.*)/s;
if ($value =~ /^"/) {
($keyvalue, $value) = $value =~ /"([^"]
*)"[[:space:]\n\r]*(.*)/s;
} else {
($keyvalue, $value) = $value =~ /\s*([^;
[:space:]]*)[;[:space:]\n\r]*(.*)/s;
}
$subvalues{$key} = $keyvalue;
if ($oldvalue eq $value) {
break;
'break' is not valid in this context, perhaps you meant 'last' instead.
}
$oldvalue = $value;
}
return %subvalues;
}
John
--
The programmer is fighting against the two most
destructive forces in the universe: entropy and
human stupidity. -- Damian Conway
