Thread Perl Problem Code (48 answers)
Opened by zeus75 at 2006-07-18 10:52

zeus75
 2006-07-20 11:16
#8380 #8380
User since
2006-02-19
35 Artikel
BenutzerIn
[default_avatar]
guten morgen,

ersteinmal danke.. für eure antworten.

also.. ich habe am anfang der datei nun folgendes eingetragen

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use CGI::Cookie;
use DBI;
use CGI;

my $db = DBI->connect( 'dbi:mysql:usr_web41_1', 'web41', 'xxxxxx') ||
     die "Kann keine Verbindung zum MySQL-Server aufbauen: $DBI::errstr\n";

my %cookies = fetch CGI::Cookie;
my @userinfo;


my $sth = $db->prepare("SELECT *, siteid FROM sites WHERE webmaster_email=? AND domain=? LIMIT 1")
        or die( "cant prepare SQL: $DBI::errstr");
 $sth->execute($cookies{'counti_email'}, $cookies{'url'} ) 
        or die "Can't execute statement: $DBI::errstr";  
 $userinfo = $sth->fetchrow_hashref; # Hashreferenz!f;


und dort wo es angezeigt werden soll dies

Code: (dl )
1
2
3
4
5
6
print qq~<td width=30% bgcolor=#f8f8f8 height=50>
 <font face=verdana color=#666666 size=2 valign=top>
 <input size=38 type=text name=domain disabled value=http://$userinfo->{domain}></font></td>
<td width=30% bgcolor=#f8f8f8 height=50>
 <font face=verdana color=#666666 size=2 valign=top>
 <input size=38 type=text name=email disabled value=http://$userinfo->{webmaster_email}></font></td>~;


seite läuft ohne Fehler aber in den inputfehler wird nur "http" angezeigt. es ist unglaublich... es will und will einfach nicht funktionieren.

kann man die Ausgabe der daten zum anfang der datei mit einem code ersteinmal testen... ob die richtigen daten überhaupt erscheinen?

gruss

View full thread Perl Problem Code