Leser: 24
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
my @h = '';
my $h = '';
sysopen (HTML, "/root/bin/KnowledgeBase/update/$code.html", O_RDONLY, 0600) or die "can not read: $!";
@h = <HTML>;
close (HTML);
foreach $h (@h) {
$browser->form_number(1);
$browser->field('wikitext', $h);
}
$browser->click('do[save]') or die "can not send:\n $!";
}
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 $!";
1 2 3
# open... my $content = do { local $/; <HTML> }; $browser->field( wikitext => $content );
$variable = (defined $variable ? $variable : '') . $neuevalue;
2009-11-06T11:58:07 biancaCode (perl): (dl )$variable = (defined $variable ? $variable : '') . $neuevalue;
2009-11-06T15:52:10 ?*Ausruf des Erschreckens* Warum denn so? ;)
$foo .= $bar tut das selbe.