KENT-WEB サポートコーナー 過去ログ [ 0153 ]


記事No: 14120
投稿日: 2015/07/21(Tue) 12:34:11
タイトルclipmailでダウンロードしたファイルについて
ID情報: goweb
投稿者: ひろ
URLhttp://**********/admin.cgi

いつも大変お世話になっております。
素晴らしいスクリプトのご提供に感謝しております。
さて、'clipmail v5.02でダウンロードしたファイルについて質問させてください。
入力項目に、[1,000]円のようなカンマ区切りの項目があった場合ですが、ダウンロードしたファイルの項目は、[1,000]となっていまして、別の項目に分割されてしまいます。
["1,000"]のように編集するにはどのようにすればよいでしょうか。
ご教示いただければ幸いです。
どうぞよろしくお願いいたします。


記事No: 14123
投稿日: 2015/07/21(Tue) 20:21:57
タイトルRe: clipmailでダウンロードしたファイルについて
ID情報: hirayama
投稿者: hirayama
URLhttp://shade-search.com/sts/fsw/wiki.cgi

カンマの入ったデータを扱うならCSVの区切り文字をカンマ以外にするのが簡単だと思います。
カンマの代わりにTAB記号を区切り文字にするなら、admin.cgi sub menu_list内の

# 項目
print qq|Date,IP,|, join(',', @item), $br{$in{br}};

# CSV
foreach (1 .. $i) {
my $csv;
foreach my $key (@item) {
$csv .= qq|$csv{"$_<>$key"},|;
}
$csv =~ s/,$//;

print "$head{$_}$csv$br{$in{br}}";
}

を以下のように変更します。

# 項目
print qq|Date\tIP\t|, join("\t", @item), $br{$in{br}};

# CSV
foreach (1 .. $i) {
my $csv;
foreach my $key (@item) {
$csv .= qq|$csv{"$_<>$key"}\t|;
}
$csv =~ s/\t$//;

print "$head{$_}$csv$br{$in{br}}";
}


記事No: 14128
投稿日: 2015/07/27(Mon) 10:22:20
タイトルRe^2: clipmailでダウンロードしたファイルについ
ID情報: goweb
投稿者: ひろ

hirayama様
ご教示頂きありがとうございました。

区切り文字をカンマ以外にする発想がありませんでした。
なるほどと思いました。柔軟に対応しないといけませんね。
ありがとうございました。
お礼申し上げます。


[検索ページ] [掲示板]