 |
 |
 |
構文 |
|
|
reverse リスト |
|
返り値 |
|
|
逆順にしたリスト |
|
説明
- リストを逆順にして返します。
- スカラー・コンテキストで使用した場合には，リストを連結した上で文字単位で逆順にしたものを返します。
使用例
配列@fooの要素の順番を逆にする
#!/usr/bin/perl
use strict;
use warnings;
my @foo = (
'hoge',
'fuga',
'piyo',
);
# 逆順にする
my @bar = reverse @foo;
foreach my $item (@bar) {
print $item, "\n";
}配列@fooの要素を逆順にソートする
#!/usr/bin/perl
use strict;
use warnings;
my @foo = (
'hoge',
'fuga',
'piyo',
'alfa',
'bravo',
'charlie',
);
# ソートして逆順にする
my @bar = reverse sort @foo;
foreach my $item (@bar) {
print $item, "\n";
}変数$fooの文字を逆順にする
#!/usr/bin/perl
use strict;
use warnings;
my $foo = 'Delta';
my $bar = reverse $foo; # 逆順にする
print $bar, "\n";ハッシュ$fooのキーと値を入れ替える
#!/usr/bin/perl
use strict;
use warnings;
my %foo = (
A => 'Alfa',
B => 'Bravo',
C => 'Charlie',
D => 'Delta',
E => 'Echo',
);
# 元のハッシュを表示する
foreach my $key (sort keys %foo) {
printf "%s => %s\n", $key, $foo{$key};
}
print "\n";
# キーと値を入れ替える
my %bar = reverse %foo;
# キーと値を入れ替えたハッシュを表示する
foreach my $key (sort keys %bar) {
printf "%7s => %s\n", $key, $bar{$key};
}
print "\n";
