平成30/ 2018-12-14 11:06
perl qw演算子

qw/ 東京 大阪 名古屋 福岡 /
とスペースで区切ると、配列で取得できるみたい。
my @pref = qw/ 東京 大阪 名古屋 福岡 /;
な感じで。

( Thanks. )
http://webcache.googleusercontent.com/search?q=cache:3D6B8VyZNCoJ:www.perlplus.jp/perl/array/index6.html+perl+qw&cd=1&hl=ja&ct=clnk&gl=jp&source=www.google.co.jp

配列の初期化を行う時に便利な演算子にqw演算子がよく利用されます。qw演算子は一覧の文字列を空白文字を区切りとして分割したリストを返してくれます。書式は次の通りです。

qw/ 対象となる文字列 /

対象となる文字列には例えば「東京 大阪 名古屋 福岡」のような文字列を指定します。

qw/ 東京 大阪 名古屋 福岡 /

この文字列を空白文字(スペースや改行、タブなど)を区切りとして文字列を分割します。そして分割された単語を要素とするリストを作成します。この時連続した空白文字は1つの区切りとして扱われます。つまり次のように記述した場合と同じです。

('東京', '大阪', '名古屋', '福岡')

qw演算子で指定した文字列はシングルクォートで囲まれたものとして扱われますので文字列の中にエスケープシーケンス(一部除く)や変数などを記述しても特別な意味は持ちません。

複数の文字列をリスト形式ではなくqw演算子を用いて記述することで配列の初期化が簡単に記述できます。

my @pref = qw/ 東京 大阪 名古屋 福岡 /;