Perlで配列のデータをCSV出力する方法・join †配列変数に格納されているデータをjoinを使ってCSV出力する方法を以下に記します。 スポンサーリンク 関連資料 †
動作確認環境 †
配列をCSVに変換するサンプルコード †join関数を使用すると簡単に配列をCSV形式に変更することができます。 戻り値 = join("区切り文字", 配列変数) 以下にサンプルコードを紹介します。
#!/usr/bin/perl use strict; use warnings; my @items = ("sakura", "tsubaki", "suzuran", "azisai", "kiku"); print join(",", @items) . "\n"; 上記サンプルコードを実際に動作させた時の出力です。 $ chmod +x csv.pl $ ./csv.pl sakura,tsubaki,suzuran,azisai,kiku 区切り文字にカンマを指定したため、CSV出力されているのが確認できます。 スポンサーリンク |