09/01/2007, 15:57
|
| | | Fecha de Ingreso: septiembre-2003 Ubicación: Región Metropolitana, Santiago, Chile
Mensajes: 706
Antigüedad: 20 años, 7 meses Puntos: 16 | |
Re: Prueba con esto Cita:
Iniciado por BooMeranGz Código PHP: #!perl my $title = "MySQL Sample Test Script V1.0"; my ($dbname, $user, $password, $host, $port, $socket) = ("test", "", "", "localhost", "", ""); BEGIN { $| = 1; open (STDERR, ">&STDOUT"); #uncomment line below to view compiler errors #print "Content-type: text/html\n\n<pre>\n"; } use strict; use DBI; print "Content-type: text/html\n\n"; print "<html><body>\n"; print "$title on ", scalar localtime(), "<br><hr>\n"; my $dbh; $socket = "/tmp/mysql.sock" if ($host eq "localhost" && $^O ne "Win32"); my $dsn = "DBI:mysql:$dbname:host=$host:port=$port:mysql_socket=$socket"; my $dbh = db_connect($dsn, $user, $password); my $table = "test_table"; my $sql; db_dosql($dbh, "DROP TABLE IF EXISTS $table"); db_dosql($dbh, "CREATE TABLE $table ( subject varchar(80), msg varchar(255) )"); db_addrow("$table", "subject" => "This is subject1", "msg" => "This is message 1"); db_addrow("$table", "subject" => "This is subject2", "msg" => "This is message 2"); db_listrows($table); $dbh->disconnect; print "</body></html>\n"; exit(0); sub db_connect { my ($dsn, $user, $password) = @_; #print "Connecting to dsn = $dsn<br>\n"; my $dbh = DBI->connect($dsn, $user, $password, {PrintError => 0}) || quit("Can't connect to the mysql server.\n"); return $dbh; } sub db_dosql { my ($dbh, $sql) = @_; $dbh->do($sql) || quit("db_do error, sql = '$sql'\n"); return $dbh; } sub quit { print @_, "<br>" if @_; print "$DBI::errstr <br>\n"; exit 1; } sub db_addrow { my ($table, %data) = @_; my @keys = keys %data; my @values = map($dbh->quote($_), values %data); my $query = "INSERT INTO $table (" . join(",", @keys) . ")\n"; $query .= "VALUES (" . join(",", @values) . ")"; #print "query = \n$query\n"; $dbh->do($query) || quit(); } sub db_listrows { my ($table) = @_; my $sth = $dbh->prepare ("SELECT * FROM $table"); $sth->execute() || quit(); print "Contents of table $table<br>\n"; my $hashref; while ($hashref = $sth->fetchrow_hashref()) { my $f; foreach $f (keys (%{$hashref}) ) { print "$f = " . $hashref->{$f} . "<br>\n"; } } } Salu2 disculpa ... pero he estado intentando hacer eso desde mucho ... habilitar mysql con mi base d edatos pero no me resulta ... lo otro .. no se porque mis php no muestran todas las variables (solo algunas siendo que en internet las muestran todas)
Muchas gracias.-
Pablo Araya.-
__________________ Adios ...!!!! |