Problem mit WWW::Mechanize::Shell und gleichen Variablen (Fragen zu Perl-Modulen)

[thread]15560[/thread]

Problem mit WWW::Mechanize::Shell und gleichen Variablen

Leser: 19

Articles: hide open all | hide show old branches

+4 replies
zion2k

2010-10-21 17:01
User since
2010-10-20
2 Artikel
BenutzerIn
Hallo,
als totaler Anfänger dachte ich mit WWW::Mechanize::Shell kann ich mir schnell mal selber ein Script erzeugen. Ein kleines Problem habe ich jedoch... Ich möchte ein Formular ausfüllen und der Befehl forms gibt folgendes aus.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

hxxp://192.168.0.222/bm/uploadpr.php>forms Form [1] POST hxxp://192.168.0.222/bm/uploadpr.php (multipart/form-data) title= (text) theimage[]= (file) theimage[]= (file) theimage[]= (file) theimage[]= (file) theimage[]= (file) theimage[]= (file) duration=15 (option) keywords= (text) extra5= (text) extra6= (text) notify=yes (option) userid=x2xxx (hidden readonly) process=do (hidden readonly) category=45 (hidden readonly) MAX_FILE_SIZE=2000000 (hidden readonly) <NONAME>=Abschicken (submit) Form [2] GET hxxp://192.168.0.222/bm/index.php langid=7 (option) Form [3] POST http://192.168.0.222/forum/profile.php?do=dst [dstform] s= (hidden readonly) securitytoken=2b99a88985bc7a74 (hidden readonly) do=dst (hidden readonly) hxxp://192.168.0.222/bm/uploadpr.php>
Die Variablen theimage[] sollen Bilder sein, die man mit hochladen kann. Mein Problem ist nun, wie kann ich hier die Variable theimage[] mit 6 verschiedenen Bildern füllen? Ein ändern der Variablen-Namen fällt aus, da ich auf den Server auf dem das Script läuft keinen Einfluss habe.
Bin für alles offen :)

Gruß zion2k
Last edited: 2010-10-21 17:08:03 +0200 (CEST)
- +3 replies
- bianca
  
  2010-10-21 17:18
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  In der Doku zu Mechanize finde ich unter $mech->set_fields
  
  Quote
  $mech->set_fields( $name => $value ... )
  This method sets multiple fields of the current form. It takes a list of field name and value pairs. If there is more than one field with the same name, the first one found is set. If you want to select which of the duplicate field to set, use a value which is an anonymous array which has the field value and its number as the 2 elements.
  
  Code (perl): (dl )
  
  1 2
  
  # set the second foo field $mech->set_fields( $name => [ 'foo', 2 ] );
  
  The fields are numbered from 1.
  
  M.E. müsste dieses anonyme Array die Felder "theimage" füllen können.
  
  Kombiniert mit dem Abschnitt
  
  Quote
  If the field is of type file (file upload field), the value is always cleared to prevent remote sites from downloading your local files. To upload a file, specify its file name explicitly.
  
  würde ich die Dateinamen einsetzen.
  
  Edit: Link korrigiert
  Last edited: 2010-10-21 17:27:21 +0200 (CEST)
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - zion2k
    
    2010-10-31 02:03
    User since
    2010-10-20
    2 Artikel
    BenutzerIn
    
    So, ich hatte mal wieder ein bisschen Zeit mich mit meinem Problem zu beschäftigen. Dazu musste ich mich aus aus der Mechanize:Shell herauswagen und am endgültigen Script arbeiten. Für mich als absoluter Laie gar nicht so einfach. Die Shell spuckte mir folgendes aus
    
    Code (perl): (dl )
    
    { local $^W; $agent->current_form->value('theimage[]', '/home/zion2k/Bilder/bild1.jpg'); };
    
    Ich versuchte nun also den Befehl von bianca anzuwenden und bin leider gescheitert.
    Mein Versuch sah so aus
    
    Code (perl): (dl )
    
    1 2 3
    
    { local $^W; $agent->current_form->value(['theimage[]',1], '/home/zion2k/Bilder/bild1.jpg'); }; { local $^W; $agent->current_form->value(['theimage[]',2], '/home/zion2k/Bilder/bild2.jpg'); }; { local $^W; $agent->current_form->value(['theimage[]',3], '/home/zion2k/Bilder/bild3.jpg'); };
    
    Was habe ich falsch gemacht? Wie sieht die richtige Syntax aus?
    
    Danke
    zion2k
    - Gast wer
      
      2010-10-31 02:40
      
      Versuch mal:
      
      Code (perl): (dl )
      
      $agent->current_form->param( 'theimage[]', ['/home/zion2k/Bilder/bild1.jpg','/home/zion2k/Bilder/bild2.jpg','/home/zion2k/Bilder/bild3.jpg'] )
      
      Last edited: 2010-10-31 02:36:47 +0100 (CET)

View all threads created 2010-10-21 17:01.