Leser: 2
![]() |
|< 1 2 >| | ![]() |
14 Einträge, 2 Seiten |
Wie frage ich & perlintro
brian's Leitfaden für jedes Perl-Problem1
2
3
4
5
6
7
8
my %db = (
userdb => 'userdb',
sessiondb => 'sessions'
);
my %tables = (
userdata => 'userdata',
items => 'items',
);
1
2
3
4
5
6
7
8
9
10
sub update_userstatus {
my ($self, $uid, $new_status) = @_;
my $sql = <<"EOM";
UPDATE $db{userdb}.$tables{userdata}
SET status = ?
WHERE id = ?
EOM
#execute
}
...
Wie frage ich & perlintro
brian's Leitfaden für jedes Perl-Problem
Class::DBI online haben. Irgendwo unter corion.net (http://corion.net/talks/index.html )
![]() |
|< 1 2 >| | ![]() |
14 Einträge, 2 Seiten |