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";