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

※数文字以内にして表示させるコード
$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])