Perlで配列のデータをCSV出力する方法・join

配列変数に格納されているデータをjoinを使ってCSV出力する方法を以下に記します。

htmlinsert(): The given local file does not exist or is not readable.

関連資料

動作確認環境

配列をCSVに変換するサンプルコード

join関数を使用すると簡単に配列をCSV形式に変更することができます。
join関数の構文は以下の通りです。

戻り値 = join("区切り文字", 配列変数)

以下にサンプルコードを紹介します。

filecsv.pl 改行コード:LF

#!/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出力されているのが確認できます。
以上、join関数を使用して配列変数に格納されている値をCSV出力する方法でした。


添付ファイル: filecsv.pl 1072件 [詳細]

トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2025-03-12 (水) 11:38:38