join と split で文字列を操作する場合

質問

にんにちは、
うまく解決する方法を思いつかないので、質問させてください。
以下のスクリプトを実行すると、a から z を * で join して、
その後、* で split するかなと思ったら、split は正規表現として
とらえるためでしょうか、エラーになります。

#! /usr/bin/perl -w
use strict;
my $a = '*';
my $b = join $a , ('a'..'z');
print "$b\n";
my @result = split /$a/,$b;
print "$_\n" foreach @result;
exit();

$a = '\*'; にすると、split したときに、
余計な \ が残ってしまいます。

任意の（書く時点では分からない）いろんな文字列で
連結したり分割したりする場合のスマートな方法が
ありましたら、教えていただけませんか？
Perl 5.8 です。お願いします。

回答No.1

sakusaker7 · ベストアンサー

#! /usr/bin/perl -w
use strict;
my $a = '*';
my $b = join $a , ('a'..'z');
print "$b\n";
my @result = split /$a/,$b; ← ここを
split quotemeta $a, $b; ← こう
#split /\Q$a\E/, $b; でもできますけど
print "$_\n" foreach @result;
exit();

かな。

あくまでも例なんでしょうけど$a, $b という名前の変数は使わない方がいいです。

お礼

sakusaker7 様 ありがとうございます。

quotemeta 、\Q \E どれも知りませんでした。

質問してよかったです。本当にありがとうございました。

>あくまでも例なんでしょうけど$a, $b という名前の変数は使わない方がいいです。
はい、普段は使いません。でも気をつけます。