07/07/11 12:12:54
sub conv_img_tag {
my( $prefix, $src, $suffix, $imghash ) = @_;
return unless ref $imghash;
# "" で囲まれていたら
$src = $1 if ( $src =~ /^["'](.*)["']$/s );
# cid は img01 からカウントアップ
my $cnt = scalar keys %$imghash;
my $cid = sprintf( "cid%02d", $cnt + 1 );
# 既に同じ画像を使っていたら同じ cid とする
foreach my $prev ( sort keys %$imghash ) {
if ( $imghash->{$prev} eq $src ) {
$cid = $prev;
last;
}
}
$imghash->{$cid} = $src;
my $ret = sprintf( '%s"cid:%s"%s', $prefix, $cid, $suffix );
$ret;
}
引用元：Kawa.net xp (URLﾘﾝｸ(www.kawa.net))
URLﾘﾝｸ(www.kawa.net)