perl シングルコーテーションを含んだ文字編集

質問

active perl(アクティブパール)で

以下の文字列編集を行いたいのですが、
シングルコーテーションの編集で上手く出来ずに困っています。

どなたか経験豊富な方、良いコーディング方法があれば
ご教授下さい。

やりたい事としては、

文字列

aaaaaa
bbbbbb
cccccc
dddddd

といった内容を
取り込んで

'aaaaaa','bbbbbb','cccccc','dddddd'

といった文字列の出力を行います。
上記の例では文字はddddddまでですが、
場合により bbbbbbまでたったりといった感じで
変換前の文字の行数は可変で、2行でも3行でも4行でも、
各行の文字をシングルコートで囲って、カンマでつなげた文字列を出力します。

上記の仕様内容で、こうすれば出来る！
といったサンプルコードを教えていただけると助かります。

回答No.3

pick52

スカラー変数からならこうしてはどうでしょうか。

my $str = <<'TEXT';
aaaaaa
bbbbbb
cccccc
dddddd
TEXT

print join(',', map {"'$_'"} split(/\n/, $str));

回答No.2

Tacosan

全くテストしてないけど
chomp (my @lines = <>);
print join(',', map {qq{'$_'}}, @lines), "\n";
とか.

補足

回答ありがとうございます。

明日職場で試してみます。

回答No.1

sakusaker7

#!/usr/bin/perl
use strict;
use warnings;

use feature ':5.10';

undef $/;
my $data = <DATA>;

say q{'}, join(q{','}, split("\n", $data)), q{'};

__END__
aaaaaa
bbbbbb
cccccc
dddddd

実行結果:
'aaaaaa','bbbbbb','cccccc','dddddd'

>ご教授下さい。
×教授
○教示

補足

こちらも回答ありがとうございます。
明日職場で試してみます。

（「ご教示」の指摘もありがとうございます。
OTNのサイトでは大喜びしてたくさんの指摘を
もらえそうなネタを提供してしまいました（笑））