Antw: Stringmanipulationen

[Roland Bauer]

* * * vienna-pm-list * * *


Hallo Peter,

an sich gibt es fuer comma separated Files auf CPAN ein
spezielles Modul: Text-CSV,

Aaaaaaaaaaaaber ...

Das Modul mag offenbar nicht, wenn vor einem String,
der mit " eingegrenzt ist ein Blank kommt. Wenn man das
ausbessert, funktioniert es:

#----------------------------------------------------------
  require Text::CSV;
  

my $text = <<END_OF_TEXT;  
#CONTROL ,"", -1,"static", SS_ETCHEDFRAME | WS_CHILD | WS_VISIBLE, -4, -16, 128, 86
END_OF_TEXT
#CONTROL "", -1, "static", SS_ETCHEDFRAME | WS_CHILD | WS_VISIBLE, -4, -16, 128, 86
#CONTROL "Wir haben einen Text; zum bearbeiten bitte auf ""oeffnen"" klicken.", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 6, 6, 151, 18
#CONTROL "Bitte geben Sie \"&eine\" uahl ein", 121, "button", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 16, 88, 131, 12

my (@text) = split /\n/, $text;

for $line (@text) {

  my $csv = Text::CSV->new;

  my $column = '';
  if ($csv->parse($line)) {
    my @field = $csv->fields;
    my $count = 0;
    for $column (@field) {
      print ++$count, " => ", $column, "\n";
    }
    print "\n";
  } else {
    my $err = $csv->error_input;
    print "parse() failed on argument: ", $err, "\n";
  }

}
#----------------------------------------------------------------

Ich weiss jetzt nicht, ob Dir das recht weiterhilft.
Aber eventuell bessert das der Autor aus oder
das Modul gibt Dir ein paar Ideen zur Optimierung
Deines Codes.

Und dann gibt es noch Text::CSV_XS, aber das
macht bei mir Probleme bei der Installtion.

Schoene Gruesse
Roland

-- 
Interesse an einem freien deutschen Woerterbuch? Helfer gesucht!
Projekt Woerterbuch: <URL:http://Free-Dict.bzs.tu-graz.ac.at/>
###
You are subscribed to vienna-pm-list
http://www.fff.at/fff/vienna.pm/


--
roland.bauer at mediaprint.at
internet-applikationen
TEL: +43-1-36000/3949

###
You are subscribed to vienna-pm-list
http://www.fff.at/fff/vienna.pm/