base64エンコードã•ã‚ŒãŸç”»åƒã‚’デコードã—ã¦ãƒ•ã‚¡ã‚¤ãƒ«ã«ä¿å˜ã™ã‚‹ - handlename's blogMIME::Base64 を使用。 perl v5.12.1 use MIME::Base64; my $image_base64 = '<base64エンコードã—ãŸç”»åƒ'>; # base64å½¢å¼ã‹ã‚‰ãƒ‡ã‚³ãƒ¼ãƒ‰ my $image_bin = decode_base64($image_base64); # ファイルを開ã open $fh, '+>', '/path/to/file' or die "Cannot open : $!"; # ファイルをãƒã‚¤ãƒŠãƒªãƒ¢ãƒ¼ãƒ‰ã« binmode $fh; # 書ã込㿠print $fh $image_bin; # ファイルを閉ã˜ã‚‹ close $fh;
{{#tags}}- {{label}}
{{/tags}}