Opened by LE at 2009-11-03 12:03
User since
2009-09-13
6978 Artikel
BenutzerIn
2009-09-13
6978 Artikel
BenutzerIn
Ich darf da mal was vorschlagen:
Und in einer späteren Übung noch lexikalische Filehandles, dann sieht es schon ganz gut aus.
Code (perl): (dl
)
1 2 3 4 5 6
undef local $/; sysopen (HTML, "/root/bin/KnowledgeBase/update/$code.html", O_RDONLY, 0600) or die "can not read: $!"; $browser->form_number(1); $browser->field('wikitext', <HTML>); close (HTML); $browser->click('do[save]') or die "can not send:\n $!";
Und in einer späteren Übung noch lexikalische Filehandles, dann sieht es schon ganz gut aus.
10 print "Hallo"
20 goto 10
20 goto 10