Perl的grep用法
#!/usr/bin/perl
@list = (1,”Test”, 0, “foo”, 20 );
@has_digit = grep ( !/\d/, @list ); #!非真
print ”@has_digit\n”;
结果如下：
Test foo
#!/usr/bin/perl
@list = (1,”Test”, 0, “foo”, 20 );
@has_digit = grep ( !/\d/, @list ); #!非真
print ”@has_digit\n”;
结果如下：
Test foo