教你用Perl 实现Base64编码
发布时间:2020-12-16 00:07:00 所属栏目:大数据 来源:网络整理
导读:在用脚本后台发送邮件时,需要将html的内容转换成Base64编码的形式,这样邮件客户端会自动对Base64编码的内容进行解码,还原成原来的内容。 Base64.pl: #!/usr/bin/perluse strict;use warnings;use MIME::Base64;my $line;my $code;if (@ARGV 1){ die "usa
在用脚本后台发送邮件时,需要将html的内容转换成Base64编码的形式,这样邮件客户端会自动对Base64编码的内容进行解码,还原成原来的内容。 Base64.pl: #!/usr/bin/perl use strict; use warnings; use MIME::Base64; my $line; my $code; if (@ARGV < 1) { die "usage: ThisCmd <filename>"; } open(IN,$ARGV[0]) or die "open $ARGV[0] fail"; { $/ = undef; $line = <IN>; } $code = encode_base64($line); print "$code"; close IN; 运行方式: ./Base64.pl a.txt a.txt就是需要进行编码的文件。 原创文章,转载请注明: 转载自成长的企鹅 本文链接地址:教你用Perl 实现Base64编码 关于我:成长的企鹅简介 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |