qmail.kldp.org 에서 퍼왔습니다.

문자열을 인코딩해주는 perl 스크립트입니다.


#!/usr/bin/perl -w -T
use strict;
use MIME::Base64;
use MIME::QuotedPrint;

my ($input,$base64, $qprint);

if ($#ARGV == 0) { $input = $ARGV[0]; }
else { $input = "광고문구"; }

$base64 = encode_base64($input);
$base64 =~ s/\n//;
$base64 =~ s/={1,2}$//;
chop $base64;
$base64 =~ s/\//\\\//g;
$qprint = encode_qp($input);

print "\n\n";
print "body MY_ADV_20 /($input|$qprint|$base64)/\n";
print "describe MY_ADV_20 성인광고문구\n";
print "score MY_ADV_20 2.0\n\n";