Community  »  Perl: Allgemeines Forum

word count unter perl	Seitenanfang
Hallo, ich habe eine csv Datei in welcher folgende beispieleinträge stehen: 123;2 234;7 789;5 Die erste "Spalte" ist ein Muster und die zweite die Anzahl. Jetzt möchte ich in einem Verzeichnis zählen, wieviele txt files existieren, welche nacheinander dem muster enstprechen um festzustellen ob die Anzahl überein mit der zweiten Spalte stimmt. ZB wie viele txt files beinhalten das Muster 123 im dateiname? Ich habe es mit einem recht umfangreichen weg gemacht ähnlich wie bei http://www.perlunity.de/perl/forum/thread_012582.shtml aber die Frage die mir bleibt ob es eine Art wordcount funktion unter perl existiert. Beim googlen hatte ich kein Erfolg. Thx Theo Datum: 24.02.2009-15:45
re: word count unter perl	Seitenanfang
Hi friends This is good thought. I think that every member of this site should appreciate your thought. Joseph [url=http://www.healthycircles.com]PHR[/url] Datum: 27.02.2009-10:42
re: word count unter perl	Seitenanfang
So kannst Du Treffer zählen: my @matches = $text =~ /\bgesuchtesWort\b/g; Also z.B.: #!/usr/bin/perl use strict; use warnings; my $text = 'Dies ist ein ganz langer Text, den ich pruefen moechte, ob das Wort "Text" darin vorkommt'; my @matches = $text =~ /\bText\b/g; my $anzahl = @matches; print "Text kommt $anzahl mal vor"; Das \b ist wichtig, da damit "Wortgrenzen" gemeint sin. Sonst würde auch "QuellText" gefunden werden. Siehe auch perldoc perlre Datum: 28.02.2009-11:55
re: word count unter perl	Seitenanfang
Danke dir! das macht mein Skript um einiges einfacher :o) Datum: 04.03.2009-08:41