Thread Problem mit dem Einlesen (55 answers)
Opened by Gast at 2006-05-17 13:33

Strat
 2006-05-18 13:47
#7618 #7618
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
nebenbei: wenn du in einer datei eine globale variable mit local $VAR = 'xyz' ueberdeckst, dann ist dies nur in dieser Datei gueltig. Verwende da in drow_pwdx.pl besser eins der folgenden konstrukte:
Code: (dl )
1
2
3
4
5
6
7
use vars qw($DATABASE $DB_TABLE $DB_USERNAME $DB_PASSWORD);
$DATABASE = "XXX";
$DB_TABLE = "drow_dictionary";
$DB_USERNAME = "XXX";
$DB_PASSWORD = "XXX";

1;

oder besser noch, das Modul CPAN:Readonly
Code: (dl )
1
2
3
4
5
6
7
8
use Readonly;

Readonly $DATABASE => "XXX";
Readonly $DB_TABLE => "drow_dictionary";
Readonly $DB_USERNAME => "XXX";
Readonly $DB_PASSWORD => "XXX";

1;


(wenn du use strict sowohl im modul als auch im code verwendet haettest, haette es dir diesbezuegliche Hinweise gegeben).

Im Hauptprogramm kannst du alle local ... durch my ... ersetzen.

Code: (dl )
$dbh->query( "delete from $DB_TABLE" );

wenn du eine tabelle leeren willst, ist meist
[sql]TRUNCATE $DB_TABLE
[/sql]
um einiges schneller
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

View full thread Problem mit dem Einlesen