html Textfeld (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

[thread]14212[/thread]

html Textfeld

Leser: 24

Articles: hide open all | hide show old branches

Teilbäume:
LiveHTTPHeaders (22 Artikel) 2012-02-27 22:05
WWW::Mechanize Fehler (9 Artikel) 2012-02-27 22:08
WWW::Mechanize - Feld mit Zeilen befüllen (13 Artikel) 2012-02-27 22:12

+73 replies
LE

2009-11-03 12:03
User since
2009-10-23
80 Artikel
BenutzerIn
Hallo zusammen,

ich habe mit Hilfe von PERL eine Seite ausgelesen nach Formularen. Jetzt Habe ich dort ein Textfeld entdeckt in das ich etwas reinschreiben möchte und zwar sieht das ganze so aus:
Code: (dl )

1 2 3 4 5 6 7

{{NEWPAGE>[]}} (textarea) do[save]=Speichern (submit) do[preview]=Vorschau (submit) do[draftdel]=Abbrechen (submit) summary= (text) minor=<UNDEF> (checkbox) [*<UNDEF>/off|1]
Meine Frage jetzt: Wie kann ich mit PERL in dieses feld reinschreiben? Ich habe eine html-Datei und will ihren inhalt in das feld einschreiben. Wie geht das.

Danke Gruß LE
Last edited: 2009-11-03 14:16:25 +0100 (CET)
- +72 replies
- renee
  
  2009-11-03 12:48
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Wie hast Du die Formulare ausgelesen?
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - +71 replies
  - LE
    
    2009-11-03 12:55
    User since
    2009-10-23
    80 Artikel
    BenutzerIn
    
    mit:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
    
    #!/usr/bin/perl -w use strict; use warnings; use WWW::Mechanize; my $browser = WWW::Mechanize->new(); $browser->get("http://internetseite"); my @formulare = $browser->forms(); foreach my $formular ( @formulare ) { printf $formular->dump(), "\n"; }
    - +68 replies
    - renee
      
      2009-11-03 13:03
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Schau Dir im HTML-Code mal den Feldnamen an. Das Feld kannst Du dann mit
      
      Code: (dl )
      
      $mech->field( $feldname, $value );
      
      setzen.
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
      - +67 replies
      - LE
        
        2009-11-03 13:27
        
        User since
        2009-10-23
        80 Artikel
        BenutzerIn
        
        Also ich meine das es der Teil ist der das Textfeld beschreibt:
        
        {{NEWPAGE>[]}} (textarea)
        
        Weiß aber nicht wie ich darauf zugreifen kann.
        
        +66 replies
        
        bianca
        
        2009-11-03 13:30
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Du befüllst das Feld mit Inhalt wie renee geschrieben hat. Dann machst Du ggf. noch andere Einträge im Formular und schickst es am Ende mit $mech->submit ab.
        10 print "Hallo"
        20 goto 10
        
        +65 replies
        
        LE
        
        2009-11-03 16:21
        
        User since
        2009-10-23
        80 Artikel
        BenutzerIn
        
        So ich habe das mit dem Weg ausprobiert. Leider ist es aber so das dass so nicht funktioniert.
        
        Sonst hat man ja immer dastehen: GET ...
        POST ...
        
        oder so wenn man die Seite ausliest aber dies mal steht ja in dem Fall:
        
        {{NEWPAGE>[]}} (textarea)
        
        Und das ist ja eigentlich der Platz für den "Formularbegin". Weiß momentan auch net weiter. Habe schon mehreres probiert und gescheitert.
        
        +5 replies
        
        bianca
        
        2009-11-03 16:24
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Ehrlich gesagt weiß ich garnicht, was Du da immer postest. Was ist dieses
        
        Quote
        {{NEWPAGE>[]}} (textarea)
        
        Wo steht das?
        Wo hast Du das her?
        10 print "Hallo"
        20 goto 10
        
        renee
        
        2009-11-03 16:31
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Das dürfte ein Teil des WWW::Mechanize-Dumps sein. Nur dass der Name der Textarea hier etwas "komisch" aussieht...
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        +3 replies
        
        LE
        
        2009-11-03 16:42
        
        User since
        2009-10-23
        80 Artikel
        BenutzerIn
        
        Also wenn ich eine Seite nach Formularen auslese dann bekomme ich immer sowas:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
        
        POST http://irgend/eine/page [editform] np_cat= (hidden readonly) title= (text) do=edit (hidden readonly) <NONAME>=Seite hinzuf�gen (submit) POST http://irgend/eine/page do=edit (hidden readonly) rev= (hidden readonly) id=erste.seite (hidden readonly) <NONAME>=Diese Seite bearbeiten (submit) GET http://irgend/eine/page do=logout (hidden readonly) sectok=540e1ff31859ff071bbf4e6aae35c114 (hidden readonly) id=erste.seite (hidden readonly) <NONAME>=Abmelden (submit) GET http://irgend/eine/page do=search (hidden readonly) id= (text) <NONAME>=Suche (submit)
        
        In diesem Fall ist es aber so das ich sowas bekomme: (sieht vom Aufbau her komplett gleich aus, bloß das ich jetzt sowas stehen habe)
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
        
        {{NEWPAGE>[]}} (textarea) np_cat= (hidden readonly) title= (text) do=edit (hidden readonly) <NONAME>=Seite hinzuf�gen (submit) POST http://irgend/eine/page do=edit (hidden readonly) rev= (hidden readonly) id=erste.seite (hidden readonly) <NONAME>=Diese Seite bearbeiten (submit) GET http://irgend/eine/page do=logout (hidden readonly) sectok=540e1ff31859ff071bbf4e6aae35c114 (hidden readonly) id=erste.seite (hidden readonly) <NONAME>=Abmelden (submit) GET http://irgend/eine/page do=search (hidden readonly) id= (text) <NONAME>=Suche (submit)
        
        +2 replies
        
        bianca
        
        2009-11-03 16:47
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Besteht die Möglichkeit, dass Du einfach mal den Quelltext der echten Seite hier postest? Oder würde das zuviel werden?
        10 print "Hallo"
        20 goto 10
        
        LE
        
        2009-11-03 16:49
        
        User since
        2009-10-23
        80 Artikel
        BenutzerIn
        
        Es würde denk ich mal zuviel werden. Außerdem darf ich den Quelltext nicht posten.
        
        +59 replies
        
        renee
        
        2009-11-03 16:31
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Hast Du Dir im HTML-Code angeschaut, wie die Textarea heißt?
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        +58 replies
        
        LE
        
        2009-11-03 16:45
        
        User since
        2009-10-23
        80 Artikel
        BenutzerIn
        
        Ja ich habe es mir angeschaut. Habe es aber leider nicht gefunden, könnte aber daran liegen das ich noch weniger ahnung von html habe als von PERL.
        
        +57 replies
        
        renee
        
        2009-11-03 16:59
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Such doch einfach mal nach "<textarea". Und rund um die Textarea müssen die anderen Felder vorkommen.
        
        Nur so ins Blaue hinein kann ich Dir auch nicht weiter helfen...
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        +56 replies
        
        LE
        
        2009-11-04 08:43
        
        User since
        2009-10-23
        80 Artikel
        BenutzerIn
        
        So ich habe jetzt mal danach gesucht und habe auch was gefunden:
        
        textarea name="wikitext"
        
        Habe dann das ganze mal so probiert:
        
        Code: (dl )
        
        $browser->field('wikitext', $html);
        
        Leider hat das aber auch nicht funktioniert.
        Last edited: 2009-11-04 08:50:07 +0100 (CET)
        
        +55 replies
        
        bianca
        
        2009-11-04 09:48
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2009-11-04T07:43:49 LE
        Leider hat das aber auch nicht funktioniert.
        
        LE, ich für meinen Teil finde Deine Auskünfte allmählich nervig. Kannst Du Dich nicht ein klein wenig in einen Antwortgeber hineinversetzen und Dir vorstellen, dass dieser mit dem Satz "Leider hat das aber auch nicht funktioniert" rein garnichts anfangen kann?
        
        EDIT: Du machst es Dir und allen anderen mit solchen unkonkreten Angaben unnötig schwer und ziehst jeden Thread damit nah an die Unendlichkeit.
        
        Edit2: Test, ob nach 1 Minute changelog passiert. Geil! Danke, pq!
        Last edited: 2009-11-04 09:56:01 +0100 (CET)
        10 print "Hallo"
        20 goto 10
        
        +54 replies
        
        LE
        
        2009-11-04 10:03
        
        User since
        2009-10-23
        80 Artikel
        BenutzerIn
        
        Da hast du natürlich recht, verzeiht bitte.
        
        Dann jetzt etwas konkretter.
        
        ICh habe es wie gesagt dann mit dieser Varaiante ausprobiert:
        
        Code: (dl )
        
        $browser->field('wikitext', $html);
        
        Und habe es dann mit:
        
        Code: (dl )
        
        $browser->submit() or die "can not send: \n $!";
        
        abgeschickt.
        
        Wenn ich dann meinen Browser öffne und auf die Seite gehe um zuschauen ob in dem Feld der Text gespeichert ist, finde ich weiterhin ein leeres Feld vor.
        Leider ist mir noch nicht bewusst woran das liegt, kann es sein das das Feld nicht als Formular zu erkennen ist? Aber was könnte es sonst sein und wie könnte ich das herraus bekommen?
        
        +53 replies
        
        bianca
        
        2009-11-04 10:33
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Au weia, Du machst etwas mit Mechanize und öffnest dann einen Browser um das zu überprüfen? Das funktioniert so nicht.
        
        Dein Mechanize "simuliert" eine eigenen Browserinstanz. Das läuft alles im script ab und hat keinen Einfluß auf irgendwelche Anzeigen in Deinem Browser! Nicht einmal angenommene Cookies von Mechanize können durch andere von Dir verwendete Browser mitverwendet werden.
        
        Du kannst das korrekte submitten eines Formulars nur dadurch überprüfen, dass Du Dir die Rückgabe in Deinem Script ausprintest und mit dem vergleichst, was Du bekommst, wenn Du in Deinem Browser exakt das gleiche machst wie Mechanize.
        
        Edit: Ich mach es nochmal andersherum deutlich:
        Wenn Du wollen würdest, dass ein Programm für Dich Eingaben in Deinem geöffneten Browser macht (z.B. Textfelder befüllen) dann müsstest Du dafür ein Makro in einer entsprechenden Software bauen. Das geht nicht mit Mechanize, weil Mechanize soll ja später im "Untergrund" unbemerkt die Dinge ausführen. Geht ja nicht, dass da immer einer einen Browser aufmacht, damit das Ding läuft, oder?
        Last edited: 2009-11-04 10:51:19 +0100 (CET)
        10 print "Hallo"
        20 goto 10
        
        +52 replies
        
        LE
        
        2009-11-04 10:53
        
        User since
        2009-10-23
        80 Artikel
        BenutzerIn
        
        Also ist es nicht möglich einer bestehenden Seite etwas hin zu zufügen?
        
        Ich erklär noch mal die Hintergründe das das vllt alles Verständlicher wird:
        
        Meine Aufgabe ist es eine bestehende Firmen Knowledge Base (KB) auf den neusten Stand zu bringen bzw. dies zu automatisiern mit einem PERL-Script.
        Die Aktualisierung läuft eigentlich direkt über die KB. Dort gibt es eine Seite wo ich bestehende Seiten bearbeiten bzw neue hinzufügen kann. Auf dieser Seite gibt es dieses umminöse Feld, in dieses Feld soll der Quelltext der neuen Seite eingefügt werden und abgespeichert werden. Und wenn man dann auf der KB im Suchfeld nach der Seite sucht findet man die erstellte Seite. Und wenn mann auf Bearbeiten geht und die Seite eingibt erscheint wieder die Erstellungsseite und in dem Feld steht der Quellcode.
        
        Und ich habe nun zur Überprüfung die Seite, die das Script erstellen sollte, im Bearbeiten gesucht und nur wieder ein leeres Feld im Erstellungsmodus bekommen.
        
        renee
        
        2009-11-04 11:03
        
        Subtree with 45 replies: LiveHTTPHeaders
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Meine Vorgehensweise bei so etwas ist:
        
        Firefox starten
        Firefox-AddOn LiveHTTPHeaders installieren (wenn noch nicht installiert)
        LiveHTTPHeaders starten
        gewünschte Seite aufrufen
        gewünschte Aktion durchführen
        LiveHTTPHeaders stoppen
        Aufzeichnung von LiveHTTPHeaders "analysieren"
        
        LiveHTTPHeaders zeichnet alles auf. Dann weißt Du genau, welche Felder übertragen werden, ob Du ein Cookie brauchst, welche Header gesetzt sind. Dann kann man die Antworten, die mit LiveHTTPHeaders aufgezeichnet sind, rauslöschen, so dass nur noch die Requests vorhanden sind.
        
        Die Requests kann man dann sehr einfach mit WWW::Mechanize nachbauen.
        
        Wenn es ok ist, wenn beim Skript ein Browserfenster geöffnet wird, kannst Du Dir auch das Selenium-Plugin für Firefox installieren, starten, die Aktionen aufzeichnen und direkt als Perl-Programm speichern (das dann WWW::Selenium verwendet). Das musst Du noch ein wenig nachbearbeiten...
        
        modedit Editiert von pq: Teilbaum LiveHTTPHeaders
        Last edited: 2012-02-27 22:05:09 +0100 (CET)
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        +6 replies
        
        bianca
        
        2009-11-04 11:05
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Achso, ok, das ist was anderes.
        
        Dann hat das submit tatsächlich nicht geklappt.
        Welche Rückmeldung erhält Mechanize nach dem submit? Ist das eine Bestätigungsseite der KB nach dem Motto "Ihre Änderungen wurden gespeichert" oder kommt eine Fehlerseite?
        
        Mal einfach nach dem submit wieder ein print oder dump oder get oder was auch immer hier erforderlich ist von der Folgeseite machen und das überprüfen, ob es das gleiche ist, als hättest Du die Änderung selbst von Hand im Browser gemacht.
        10 print "Hallo"
        20 goto 10
        
        +5 replies
        
        LE
        
        2009-11-04 11:15
        
        User since
        2009-10-23
        80 Artikel
        BenutzerIn
        
        renee:
        
        Das mit den beiden Sachen schau ich mir mal an und probiere das ganze mal aus. Danke für den Tip.
        
        bianca:
        
        Ich habe mir das mal angesehen was dort Auftritt.
        Es ist so das das submit nicht fehlschlägt. Es wird ein Wandfrei durchgeführt das einzige ist das er halt nix in das Feld einträgt. Und sozusagen ein leeres Feld abschickt. Die Variable die eingefügt werde soll ist auch nicht leer, die habe ich mir vorher mal ausgeben lassen.
        Ich kann mir nur Vorstellen das er das Feld nichterkennt, aber ich weiß nicht warum.
        
        +4 replies
        
        bianca
        
        2009-11-04 11:42
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Auf jeden Fall schon mal eine sehr präzise Fehlerbeschreibung: Lob!
        
        Dann schlägt Deine Zeile
        
        Code (perl): (dl )
        
        $browser->field('wikitext', $html);
        
        oder der Submit fehl.
        
        Ist $browser wirklich Dein Objekt zu Mechanize?
        Ist $html wirklich belegt mit korrektem Inhalt?
        Heißt das Feld wirklich 'wikitext'?
        Hat Mechanize zu diesem Zeitpunkt wirklich das richtige <FORM> im Scope?
        Gibt es mehrere <FORM> auf der Seite?
        Gibt es noch weitere HIDDEN oder TEXT Felder, die belegt werden müssen, weil nur dann das Textfeld von KB beachtet wird?
        Wird da mit Cookies gearbeitet?
        
        Kannst Du im Logfile der KB erkennen, dass das Formular wirklich von Deinem Mechanize abgesendet wurde mit leerem Textfeld? Ist das garantiert eindeutig zuzuordnen? Nicht das wir hier nach dem falschen Übeltäter suchen?
        10 print "Hallo"
        20 goto 10
        
        +3 replies
        
        LE
        
        2009-11-04 15:23
        
        User since
        2009-10-23
        80 Artikel
        BenutzerIn
        
        So bianca, ich gebe mal einen Zwischenbericht von meinen Überprüfungen:
        
        1. $browser ist das Objekt zu Mechanize.
        2. $html ist belegt und mit korrektem Inhalt
        
        Hier noch eine Zwischen Frage. Ich habe eine fertige Datei.html. Den kompletten Inhalt dieser Datei, möchte ich ein lesen und in das Feld setzen! Wie mache ich das am günstigsten? Bis jetzt habe ich das so gelöst:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        sysopen (HTML, "/root/bin/Datei.html", O_RDONLY, 0600) or die "can not read: $!"; while (<HTML>){ chomp; $h=$_; $browser->form_number(1); $browser->field('wikitext', $h); $browser->submit() or die "can not send:$!"; } close (HTML);
        
        3.Ob das Feld wirklich so heißt ist fraglich. Weil wie gesagt, wenn ich es mit dem PERL-Script auslese dann bekomme ich das: {{NEWPAGE>[]}} (textarea)
        
        Und im Quellcode habe ich die textarea gesucht und dort gibt es nur eine und dort lässt sich das finden:
        
        .../><textarea name="wikitext" id="wiki_text" ...
        
        4.Was meinst du genau mit <FORM>? Wenn du Formulare meinst. Ja da bin ich im richtigen. War das erste was ausgelesen wurde und da habe ich das so angewählt.(siehe oben im Code)
        
        5.Ja es gibt mehrere.
        
        6.In diesem Punkt bin ich mir nicht sicher. Jedoch wenn eine Seite per Hand hinzufüge, muss kein weiteres Feld ausgefüllt werden. Von daher gehe ich davon aus das das nicht nötig ist.
        
        7. Wie erkenne ich ob ein Cookie genutzt wird. Bzw nochmal zum verständnis was in diesem Fall ein Cookie ist.
        
        8. Wie kann ich mir die Logfile anschauen?
        
        So hoffe ich habe nix vergessen.
        
        Ich habe dort einen Speicher-Button, den ich auch mit ausgelesen habe.
        
        do[save]=Speichern (submit)
        
        Wie kann ich diesen auswählen?
        Ich das es die Möglichkeit mit:
        
        Code: (dl )
        
        $browser->click();
        
        gibt, aber was muss ich dann in die () schreiben?
        Last edited: 2009-11-04 15:54:48 +0100 (CET)
        
        +2 replies
        
        Gast wer
        
        2009-11-04 15:53
        
        Nur um das auszuschließen.
        Teile des Formulars werden nicht mit Javascript generiert?
        
        LE
        
        2009-11-04 16:04
        
        User since
        2009-10-23
        80 Artikel
        BenutzerIn
        
        Nein, nicht das mir bekannt ist.
        
        Aber wie würde ich das erkennen?
        Last edited: 2009-11-04 16:16:41 +0100 (CET)
    - +2 replies
    - pq
      
      2009-11-03 13:05
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      gibt's nen grund, warum du meine rückfrage(n) in sysopen erstellt keine Datei von gestern und heute ignorierst?
      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
      - LE
        
        2009-11-03 13:11
        
        User since
        2009-10-23
        80 Artikel
        BenutzerIn
        
        Sorry, ich war der festen Überzeugung ich hätte gestern den Abschluss darauf Verfasst. War echt nicht meine Absicht.

View all threads created 2009-11-03 12:03.