Perl-users.jp

リスト処理

List::Utilでできないリスト操作はList::MoreUtils を覗くと見つかるかも

つかいかた

use strict;
use warnings;
use List::MoreUtils qw(any all);

List::MoreUtilもメソッドをExportしないから注意が必要です。 使いたいものだけExportするか

use List::MoreUtils qw(:all);

で全部Exportして使えます。

any

$v = any {$_ < 10} 1..10; # 真

リストを評価して要素の一つでも条件を満たすと真、満たさなかったら偽を返します。 リストが空ならundefを返します。

all

$v = all {$_ < 10} 1..10; # 偽

リストを評価して全ての要素が条件を満たすと真、満たさなかったら偽を返します。 リストが空ならundefを返します。

none

$v = none {$_ < 10} 1..10; # 偽

リストを評価して全て要素が条件を満たさなかったら真、一つでも満たしたら偽を返します。 リストが空ならundefを返します。 anyの逆です。

notall

$v = notall {$_ < 10} 1..10; # 真

リストを評価して一つでも要素が条件を満たさなかったら真、全て満たしたら偽を返します。 リストが空ならundefを返します。 allの逆です。

true

$v = true {$_ < 10} 1..10; #9

リストを評価して条件を満たした要素数を返します。

false

$v = true {$_ < 10} 1..10; #1

リストを評価して条件を満たさなかった要素数を返します。

他にもたくさんあります。


目次へ

Last modified: $Date: 2008-05-22T09:21:23.154313Z $