きつね♪っとWiki

Perlメモ

CSVファイルのカテゴリ一括置換

すぐ忘れるPerlの置換演算子（おぃ）

$text = "abcd";
if ($text =~ /bc/) {          # 文字列$textが文字bcを含んでいたら~
    print "含んでまぁす！\n";
}

大量のCSVデータをカテゴリ分けするのによく利用。

foreach・・・・{
if ($name eq 'スキンケア'){ $CATE1 = '01&';} 
elsif ($CATE0 eq 'クレンジング'){ $CATE1 = '01_01&';} 
elsif・・・・・・・・以下大量に続く・・・・・
else { $CATE0 = ''; }

$name（例：商品名）に「スキンケア」が含まれていたらカテゴリ01に分類etc。
文字コードEUCでないと認識してくれないけどもぉ(;´▽｀A``。

んで

print OUT "$no<>$name<>$url・・・・<>$CATE0$CATE1・・・・<>\n"}~

でファイルに書き出す。（Yomiだってばればれ？）(￣w￣)
日付も実行時の日付を挿入してしまえば新着になるし。
ただ同時に実行した全商品新着になるから意味あるのか？って感じですが。

$DATE_NOW=&get_time(0,1);
{local(@time);
@time=split(/_/,$Spre_log[11]); $times=time();
$DATE2= $times . "_0";}

・・・絶対自分のパソコン内で実行してね(;´▽｀A``。