| 記事No | ： 14120 |
| 投稿日 | ： 2015/07/21(Tue) 12:34:11 |
| タイトル | ： clipmailでダウンロードしたファイルについて |
| ID情報 | ： goweb |
| 投稿者 | ： ひろ |
| URL | ： http://**********/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 |
| URL | ： http://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様
ご教示頂きありがとうございました。
区切り文字をカンマ以外にする発想がありませんでした。
なるほどと思いました。柔軟に対応しないといけませんね。
ありがとうございました。
お礼申し上げます。