Perl/codepiece/qw1

• [ Prev ]
• [ Next ]
• [ 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()を使用するようである。

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

• [ Prev ]
• [ Next ]
• [ Perl ]