mehrzeiliges Formularfeld in array splitten (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

[thread]13952[/thread]

mehrzeiliges Formularfeld in array splitten

Leser: 18

Articles: hide open all | hide show old branches

+6 replies
Superfrank

2009-08-28 15:27
User since
2006-09-05
164 Artikel
BenutzerIn
Hallo,
ich schaffe es einfach nicht ein mehrzeiliges Formularfeld in ein Array zu bekommen.
Code (perl): (dl )

my @array = split(/\r\n/, $list);
funktioniert nicht. Das Encoding des Formulares ist das normale ""application/x-www-form-urlencoded" und die Zeilen sind nach Erreichen im Perlscript auch mit CRLF getrennt. HTML-Dokument und Perlscript sind utf8-codiert. Was habe ich übersehen?

Beste Grüsse

Frank
- +4 replies
- pq
  
  2009-08-28 15:40
  User since
  2003-08-04
  12208 Artikel
  Admin1
  wenn die zeilen jeweils \r\n als trenner haben und das split an \r\n nicht klappt, dann ist es ziemlich wahrscheinlich, dass deine erste aussage nicht stimmt.
  prüf es doch einfach nach. würde ich auch machen an der stelle.
  wenn du Data::Dumper noch nicht kennst, solltest du es schleunigst ausprobieren, denn auch wir arbeiten mit sowas, wenn unsere glaskugeln mal kaputt sind:
  
  Code (perl): (dl )
  
  1 2 3
  
  use Data::Dumper; local $Data::Dumper::Useqq = 1; print STDERR Dumper $daten_aus_textarea;
  
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +3 replies
  - Superfrank
    
    2009-08-28 15:46
    User since
    2006-09-05
    164 Artikel
    BenutzerIn
    
    2009-08-28T13:40:08 pq
    wenn die zeilen jeweils \r\n als trenner haben und das split an \r\n nicht klappt, dann ist es ziemlich wahrscheinlich, dass deine erste aussage nicht stimmt.
    
    soweit ich es feststellen konnte stimmt meine Aussage. Aus dem Formular kommt z.B.
    
    Code (perl): (dl )
    
    1 2
    
    aaa@aaa.aa bbb@bbb.bb
    
    und ein ord() auf jedes Zeichen ergibt:
    
    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
    
    97 97 97 64 97 97 97 46 97 97 13 10 98 98 98 64 98 98 98 46 98 98
    
    2009-08-28T13:40:08 pq
    prüf es doch einfach nach. würde ich auch machen an der stelle.
    wenn du Data::Dumper noch nicht kennst, solltest du es schleunigst ausprobieren, denn auch wir arbeiten mit sowas, wenn unsere glaskugeln mal kaputt sind:
    
    Code (perl): (dl )
    
    1 2 3
    
    use Data::Dumper; local $Data::Dumper::Useqq = 1; print STDERR Dumper $daten_aus_textarea;
    
    Vielen Dank, werde ich ausprobieren. Deinen Glaskugenspruch kannst dir bitte trotzdem schenken...
    - pq
      
      2009-08-28 15:52
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2009-08-28T13:46:51 Superfrank
      Vielen Dank, werde ich ausprobieren. Deinen Glaskugenspruch kannst dir bitte trotzdem schenken...
      
      na ganz ehrlich, was soll man auf eine solche frage antworten?
      "ein string enthält \r\n, aber wenn ich daran splitte, kriege ich es nicht in ein array".
      
      "ja, wenn man an \r\n splitten will, klappt das nur an jedem dritten neumond."
      
      der erste schritt ist nunmal, dass du die daten preisgibst, sonst können wir halt auch nix machen.
      du wirst sehen, Data::Dumper nimmt dir genau diese arbeit ab, da steht alles drin, was man wissen muss.
      netterweise kann man diesen dump dann auch benutzen, um ein reproduzierendes skript zu erzeugen, mit dem die helfenden forenteilnehmer den fehler nachvollziehen können (so wie es auch in unserer faq steht).
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - pq
      
      2009-08-28 15:56
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      so, ich habe deine daten mal ausprobiert. einfach:
      
      Code (perl): (dl )
      
      1 2 3 4
      
      my $string = join "", map chr $_, @ord; use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper $string;
      
      Ausgabe:
      
      Code: (dl )
      
      $VAR1 = "aaa\@aaa.aa\r\nbbb\@bbb.bb";
      
      soweit, so gut.
      weiter:
      
      Code (perl): (dl )
      
      1 2
      
      my @a = split /\r\n/, $string; print "($_)\n" for @a;'
      
      Ausgabe:
      
      Code: (dl )
      
      1 2
      
      (aaa@aaa.aa) (bbb@bbb.bb)
      
      jetzt verstehe ich nicht, wie du "ich schaffe es einfach nicht ein mehrzeiliges Formularfeld in ein Array zu bekommen" meinst.
      klappt doch hier ganz gut.
      
      edit: zweites skript um \n ergänzt
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- Gast wer
  
  2009-08-28 16:36
  Ich vermute mal, dass du Windows benutzte und da ist "\n" nicht "\x0A", sondern meist "\x0D\x0A".
  
  Wenn du nach NewLines splitten willst mach es besser so:
  
  Code (perl): (dl )
  
  my @array = split(/\x0D?\x0A/, $list);
  
  Oder wenn du mehrere NewLines hintereinander nicht brauchst:
  
  Code (perl): (dl )
  
  my @array = split(/[\x0D\x0A]+/, $list);

View all threads created 2009-08-28 15:27.