Community  »  Perl: Allgemeines Forum

Problem beim Textzerlegen	Seitenanfang
Habe folgendes Codefragment . . while(<SOURCE_FH>){ push(@lines,$_); } for (@lines){print $_;} @word_array = "ewords('\s+', 0, @lines); my $list_length=@word_array; print "Länge: $list_length\n\n"; for(@word_array){ print "$_\n"; } Ich will damit einen Text aus einer Textdatei in Wörter zerlegen. Geht mit selbsterstellten Textdateien auch ganz prima. Sobald ich aber eine importiere oder per Copy & Paste erstelle, bleibt das Ergebnis von "ewords leer. Hat jemand eine schlaue Idee? Vielen Dank. Datum: 10.05.2005-14:29
re: Problem beim Textzerlegen	Seitenanfang
Hallo, haette dir gene geholfen, kann aber mit >>"ewords('\s+', 0, @lines);<< nichts anfangen. Wahrscheinlich >>use newregexp;<< irgendwo am Anfang deines Quellcodes, da steckt dann das quotewords drin. Es gab da mal diverse Artikel, wie man so >>"<< mit perl zerhackt, insbesondere Excel *.csv. Schau mal in >>http://www.cpan.org/<<. Oh, bist du auf MsDos oder Win98? Da unterscheidet das perl pingelig nach Unicode oder einfach-Ascii (oder tut meistens nur mit Ascii). Gruss Datum: 10.05.2005-20:40
re: Problem beim Textzerlegen	Seitenanfang
Hallo, eventuell hilft dir, dass Folgende mal zu lesen: http://www.cis.uni-muenchen.de/~hbosk/perl2_ws03/pm_locales.html Da wird etwas zur Berücksichtigung von lokalen Zeichensätzen erklärt. Ciao Ingo Datum: 11.05.2005-07:39
re: Problem beim Textzerlegen	Seitenanfang
System ist debian. "ewords stammt aus dem Perl-Modul Text::ParseWords. Wühle mich mal durch die Artikel...Danke Datum: 11.05.2005-11:22