.forward ã§å—信メールをã©ã†ã“ã†ã™ã‚‹ - IT戦記書ã„ã¨ã‹ãªã„ã¨å¿˜ã‚Œãã†ãªã®ã§ãƒ¡ãƒ¢ãƒ¡ãƒ¢ .forward ファイルã«ã‚³ãƒžãƒ³ãƒ‰ã‚’書ã„ã¦ãŠã "| exec /Users/amachang/hoge.pl" ã§ã€ãã®ãƒ¡ãƒ¼ãƒ«ã®ãƒ‡ãƒ¼ã‚¿ã‚’オブジェクトã«ã™ã‚‹ use MIME::Parser; my $parser = MIME::Parser->new; $parser->output_to_core; my $entity = $parser->parse(\*STDIN); オブジェクトã‹ã‚‰ãã‚Œãžã‚Œã®ãƒ‡ãƒ¼ã‚¿ã‚’å–り出㙠use Encode; # Subject my $subject = decode('MIME-Header', $entity->head->get('Subject')); # From my $from = do { $entity->head->get('From') =~ /([^<]+\@(?:[-a-z0-9]+\
{{#tags}}- {{label}}
{{/tags}}