ããã¯ãã¡ã¼ã«æ¬æã«è²ã æ¸è¾¼ãPerlã¹ã¯ãªããã®ã¡ã¢ã FromãToã®æ¸ãæãã¯ããè¦ããã©æ¬æã®æ¸ãæãã¯ãã¾ãè¦ãªãã£ãã®ã§æ¸ããã æ¯åº¦ããªãã¿ã® MIME-Tools ã使ã£ã¦ã¾ãã ãã¡ã¤ã«å㯠sign.pl ã¨ã§ããã¾ããããã sign.pl #!/usr/local/bin/perl use MIME::Parser; my $parseObj = MIME::Parser->new(); my $entity; my $body,$bodyHandle; my $lines; $parseObj->output_dir('./'); $entity = $parseObj->parse(\*STDIN); $body = $entity->is_multipart ? $entity->parts(0) : $entity; $bodyHandle = $body-
{{#tags}}- {{label}}
{{/tags}}