#navi_header|Perl|

- 頻繁に見かけるが、今ひとつ何をするものか分からない"qw()"表現。
- とりあえず、リストを作るものであることは分かったので、試すだけ試してみる。

- コードピース
 #!/usr/bin/perl
 use strict;
 use warnings;
 
 my @ary1 = qw(abc def 123);
 my %h1 = qw( foo 123 bar 456 buz 789 );
 
 print join " ", @ary1;
 print "\n----------\n";
 
 while(my ($key, $val) = each(%h1)) {
 	print "$key => $val\n";
 }
 print "\n----------\n";
 
 my $val1 = 0.123;
 my $val2 = 4.56;
 my $val3 = 78.9;
 
 my @ary2 = qw ( $val1 $val2 $val3 val4 );
 print join " ", @ary2;

- 出力
 abc def 123
 ----------
 bar => 456
 buz => 789
 foo => 123
 
 ----------
 $val1 $val2 $val3 val4

例えば"use XXXX"の後ろに、"()"でパラメータを渡すように書いてあるのと、"qw( ... )"で渡すように書いてあるものが有ったりする。qw()の方だと、"$val"としても変数展開されないので、そう言った需要があるときにqw()を使用するようである。

今ひとつ納得しきれないので、また後でリベンジを仕掛けるときもあるかもしれない。

#navi_footer|Perl|