人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

perlで連想配列をまわしてSQL文を作成したいのですが、
一番最後の文字列にもカンマがはいってしまうので
それを削除したいです。
どうしたら宜しいでしょうか?

open(OUT,"> $sql_filename");
#print OUT "Filename is $sql_filename\n";
foreach $ref_array (@$data) { # $ref_arrayには各行データの配列のリファレンスが格納される
print OUT "INSERT INTO aaaa VALUES ( ";
foreach $scalar (@$ref_array) { # @$ref_arrayは行データの配列で、$scalarにはセルデータが格納される
#空の場合は空文字を設定。
if (!defined $scalar){
$scalar = "";
}
#右側部分の余分なスペースを排除します。
$scalar =~ s/[\s ]+//g;
print OUT "'",$scalar, "',";
}
print OUT ")\n";
}
close(OUT);

●質問者: hopefully
●カテゴリ:就職・転職 ウェブ制作
✍キーワード:open Out Perl print SQL
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● goodvn
●60ポイント

配列に代入しておいて,join ですね

端折りますね

@values = ();
foreach $scalar (@$ref_array) {
 puch(@values, $scalar);
}
$value = join(',', @values);
◎質問者からの返答

出来ましたーー。ありがとうございます。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ