普段ふとしたときに使うのに、忘れっぽいコードをメモ。

※数文字以内にして表示させるコード
$doc_text =~ s/\r//g;
$doc_text =~ s/\n//g;
ﾂꀀﾂꀀﾂꀀ
ﾂꀀﾂꀀﾂꀀ if( length($doc_text) >300){
ﾂꀀﾂꀀﾂꀀ ﾂꀀ$doc_text = substr($doc_text, 0, 300);
ﾂꀀﾂꀀﾂꀀ ﾂꀀ$doc_text = HTML_ToJava($doc_text).”…”;
ﾂꀀﾂꀀﾂꀀ ﾂꀀ}

※newを出す

my $hikaku_start_d = $rec->{doc_start_d};
my $cur_date = (GetFormatDate); # 今日の日付

ﾂꀀﾂꀀﾂꀀ my $hikaku = “”;
ﾂꀀﾂꀀﾂꀀ my $startday;
ﾂꀀﾂꀀﾂꀀ my $todayplus;
ﾂꀀﾂꀀﾂꀀ my $s_y;
ﾂꀀﾂꀀﾂꀀ my $s_m;
ﾂꀀﾂꀀﾂꀀ my $s_d;
ﾂꀀﾂꀀﾂꀀ my $t_y;
ﾂꀀﾂꀀﾂꀀ my $t_m;
ﾂꀀﾂꀀﾂꀀ my $t_d;
ﾂꀀﾂꀀﾂꀀ
ﾂꀀﾂꀀﾂꀀ ($s_y, $s_m, $s_d) = split(/\//, $hikaku_start_d );
ﾂꀀﾂꀀﾂꀀ ($t_y, $t_m, $t_d) = split(/\//, $cur_date );
ﾂꀀﾂꀀﾂꀀ $startday = $s_y*365+$s_m*30+$s_d;
ﾂꀀﾂꀀﾂꀀ $todayplus = $t_y*365+$t_m*30+$t_d;
ﾂꀀﾂꀀﾂꀀ
ﾂꀀﾂꀀﾂꀀ if($todayplus-$startday <= 14){
ﾂꀀﾂꀀﾂꀀ DW(“　<span class=’new’>NEW</span>”);
ﾂꀀﾂꀀﾂꀀ }

でも、なんか、文字数は文字化けしてしまいます。
下記記事を参考

マルチバイト文字列の部分取得方法は？(@OKWave)

if文を一行で書く

if(条件文）　真の場合; else 偽の場合;

や、■[PHP][メモ]1行比較（if文の代わり）のサンプル（@プラズマコイの[hatena]）