#!/usr/local/bin/perl #================================================= # ShoppingCart ログ変換ツール # v4 -> v5 # *ただし画像は再登録のこと #================================================= # # [ 使い方 ] # # (1) dataディレクトリの中に、旧ログファイル data1.cgiと # 新ログファイル data.cgi を置く # (2) cartディレクトリに変換プログラム（cart_conv4to5.cgi）をアスキー # モードでFTP転送し、パーミッションを755にする。 # (3) ブラウザから「cart_conv4to5..cgi」にアクセスし、「OK」が表示 # されたら成功。 use strict; use CGI::Carp qw(fatalsToBrowser); # 旧ログ my $old = './data/data1.cgi'; # 新ログ my $new = './data/data.cgi'; my @log; open(IN,"$old") or die; while() { chomp; my ($no,$item,$price,$size,$color,$img,$memo,$w,$h,$intax,$nmb,$id,$cate,$link,$tail) = split(/<>/); push(@log,"$no<>$item<>$price<>$size<>$color<>$memo<>$id<>$cate<><><><><><>\n"); } close(IN); open(OUT,"+> $new") or die; print OUT @log; close(OUT); print "Content-type: text/html\n\n"; print < OK! EOM exit;