Opened by steinwolf at 2006-05-04 20:36
User since
2003-08-04
5246 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
5246 Artikel
ModeratorIn
um die explizite schleife zu sparen, koennte man das folgendermaszen machen (vorausgesetzt, du hast keine RE-spezifischen sonderzeichen in @array:
falls du doch die schleife verwendest (koennte schneller sein), dann <!--perldoc_f1--><a href="http://faq.perl-community.de/bin/view/Perldoc/perl..." target="_blank"><img alt="perldoc " src="/iB_html/non-cgi/Skin/SKIN-3/images/perldoc.gif" border="0"> <!--perldoc_f2-->-f study<!--perldoc_f3--></a><!--perldoc_f4-->
auch die RE-option /o koennte interessant sein
Code: (dl
)
1
2
3
4
5
6
my @array = qw(wort1 wort2 .... wortn);
my $re = join ("|", @array);
my %statistics = ();
foreach ( $string =~ m/($re)/g ) {
$statistics{$_}++;
}
falls du doch die schleife verwendest (koennte schneller sein), dann <!--perldoc_f1--><a href="http://faq.perl-community.de/bin/view/Perldoc/perl..." target="_blank"><img alt="perldoc " src="/iB_html/non-cgi/Skin/SKIN-3/images/perldoc.gif" border="0"> <!--perldoc_f2-->-f study<!--perldoc_f3--></a><!--perldoc_f4-->
auch die RE-option /o koennte interessant sein
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
http://www.fabiani.net/