Komma-separierte Datei (war: LWP::UserAgent) (gelöst) (Fragen zu Perl-Modulen)

[thread]15553[/thread]

Komma-separierte Datei (war: LWP::UserAgent) [gelöst]

Leser: 18

Articles: hide open all | hide show old branches

+7 replies
Vagabundo

2010-10-19 19:41

User since
2009-02-08
4 Artikel
BenutzerIn

Hallo,
ich nutze LWP::UserAgent um bei meinen Lieferanten taeglich Preislisten abzufragen. Das klappt auch recht gut bei den meisten.

Jetzt habe ich zwei bei denen es nicht geht
Der eine bietet eine Liste an, die pro Zeile ungefaehr so aussieht:

448,"Afghanistan, Cellular Afghan Telecom",0.4344,,9375,

Bei den anderen Anbietern kann ich immer einen split auf das Komma machen. Hier geht das aber nicht, da dann auch der Text in ".....,....." gesplittet wird. In diesem Bereich ist manchmal ein Komma enthalten und manchmal nicht.

Gibt es da irgendeinen Trick zum Splitten oder muss man das parktisch mit der 'Hand' machen, also vielleicht den ganzen "..." Teil entfernen und danach einen Split machen.

Oder hat jemand eine bessere Idee?

Ein anderer Anbieter hat noch einige Abfragen vorgeschaltet (wie die Liste aussehen soll). So etwas habe ich mit LWP::UserAgent noch garnicht gemacht.

Kennt da jemand eine gute und praxisnahe Hilfe-Seite?
Die Infos in cpan sind mir da zu wenig praktisch und nicht besonders hilfreich fuer jemanden der mit UserAgent erst anfaengt.

Danke fuer Eure Hilfe.

Vagabundo
- +2 replies
- payx
  
  2010-10-19 19:58
  
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  
  Hallo Vagabundo,
  
  Nur zur ersten Frage:
  
  Deine Beispielzeile sieht nach einem csv-Format aus. Das Problem mit dem Record-Trenner innerhalb eines Feldes ist ja das klassische csv-Problem. Am besten sollte das mit Text::CSV zu lösen sein.
  
  HTH
  Grüße
  payx
  - Vagabundo
    
    2010-10-19 20:18
    
    User since
    2009-02-08
    4 Artikel
    BenutzerIn
    
    Danke,
    
    das Text::CSV kannte ich noch nicht. Werde ich mir gleich mal holen.
    
    Vagabundo
- +2 replies
- clms
  
  2010-10-19 20:06
  
  User since
  2010-08-29
  373 Artikel
  BenutzerIn
  
  Hi,
  
  Deine erste Frage habt mit LWP::UserAgent nix zu tun,
  dürfte aber schon beantwortet sein.
  
  Zur zweiten Frage fehlen mir ausreichende Infos.
  Sind dass immer die gleichen Vorschaltseiten mit den gleichen Antwotren?
  Dann genügt es evtl. nur den letzten HTTP-Request abzuschicken.
  
  In komplizierteren Fällen könnte WWW;:Mechanize helfen.
  
  Oder ist da ein CAPTCHA vorgeschaltet?
  - Vagabundo
    
    2010-10-20 00:07
    
    User since
    2009-02-08
    4 Artikel
    BenutzerIn
    
    Hallo,
    
    danke fuer Deinen Hinweis. Bin beim Suchen in den Vorschaltseiten nun noch darauf gestossen der der Anbieter sogar eine XML-API anbietet.
    
    Damit ist das Problem geloest.
    
    Vagabundo
- +2 replies
- topeg
  
  2010-10-19 20:09
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Du hast eine CSV-Datei. Um diese korrekt zu parsen sollte man ein passendes Modul nutzen. Text::CVS kann das:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
  
  use Text::CVS; my $csv = Text::CSV->new (); #... # CSV vom Server geholt.. if ($res->is_success) { # die Zeilen aufsplitten for my $line (split(/[\x0D\x0A]+/,$res->content) { # Zeile parsen if($cvs->parse($line)) { # gefundene Elemente auslesen my @data=$cvs->fields(); # mach was mit den Daten... # ... } } }
  - Vagabundo
    
    2010-10-19 20:19
    
    User since
    2009-02-08
    4 Artikel
    BenutzerIn
    
    Danke,
    
    Super - das praktische Beispiel macht es mir sehr leicht!
    
    Vagabundo

View all threads created 2010-10-19 19:41.