WWW::Mechanize setzt leerzeichen in array (Allgemeines zu Perl)

[thread]17983[/thread]

WWW::Mechanize setzt leerzeichen in array

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+3 replies
homosapien

2012-12-11 18:26
User since
2012-10-30
11 Artikel
BenutzerIn
Hallo zusammen, ich hätte mal eine frage bezüglich WWW::Mechanize

Versuche ich in einem formular einem array zu übermitteln packe mechanize vor jede zeile ein Leerzeichen...

Beispiel:
Code: (dl )

1 2 3 4 5 6

$mech->submit_form( form_number => 5, fields => { message => "@message", }, );
Kann ist das irgendwie deaktivieren?
Oder wie könnte ich das sonst schreiben, sodass es nicht immer das unnötige leerzeichen setzt?
wenn ich "$message[0].$message[1]$message[2]" mache geht es ohne leerzeuichen, kann man da was mit foreach machen? (@message kann beliebig viele zeichen haben)

Vielen dank im vorraus, mfg
- bianca
  
  2012-12-11 18:53
  
  User since
  2009-09-13
  6977 Artikel
  BenutzerIn
  
  Das macht nicht der Mech sondern das ist immer so, wenn man ein Array als Scalar verwenden will.
  Verwende das Array als Array und mache einen ordentlichen Scalar daraus.
  Z.B. mit join('',@message)
  10 print "Hallo"
  20 goto 10
- Linuxer
  
  2012-12-11 20:08
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Hi,
  
  das Verhalten basiert darauf, dass Du den Array in "" gepackt hast.
  Dadurch werden (als default) Leerzeichen zwischen die Elemente gepackt.
  Wenn Du das so nicht möchtest, verwende den bereits erwähnten join() Befehl.
  
  Ersetze also "@array" durch join( '', @array ).
  Die Klammern sind wichtig, weil join() eine Liste verarbeitet, und ohne Klammern nicht zu erkennen ist, wann die Argumentliste des join() zu Ende ist. Sollten später mal Felder dahinter angefügt werden, landen die (ohne Klammern) im Feld "message".
  
  Code: (dl )
  
  1 2 3 4 5
  
  fields => { message => join '', @message, ### Oops, also joined into message title => 'other title', },
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2012-12-11 18:26.