Aktív témák

• #1 benczeb aktív tag

  2004-05-24 09:22:53 #1

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  benczeb

  aktív tag

  Sziasztok!
  
  Perlből házit kell írnunk (CGI), a lényeg, hogy egy mysql adatbázishoz csatlakozunk a DBI modulon keresztül, és nem tudunk megírni egy lekérdezést. Nem étrjük, hogy hogy adja vissza, illetve milyen függvénnyel.
  
  Így próbálkozunk:
  
  #!/usr/bin/perl
  
  print ''Content-type: text/html '';
  use strict;
  use DBI;
  
  my $q = $ENV{'QUERY_STRING'};
  my @param = split (/&/, $q);
  my %c = ();
  my $p;
  
  my %hash=();
  
  foreach $p (@param) {
  my ($n, $v) = split (/=/, $p);
  $v =~ tr/+/ /;
  $v =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack(''C'', hex($1))/eg;
  $c{$n} = $v;
  # print $n, '':'', $c{$n}, '' <BR>'';
  
  $hash{$n}=$c{$n};
  
  }
  
  my $database = ''A'';
  my $hostname = ''localhost'';
  my $user = ''A'';
  my $password = 'A';
  
  my $dsn = ''DBI:mysql:database=$database;host=$hostname;mysql_socket=/var/run/mysqld/mysqld.sock'';
  my $dbh = DBI->connect($dsn, $user, $password, { PrintError=>0 }) || die $DBI::errstr;
  
  
  ########## ÉS EZ NEM MŰKÖDIK!!!! ##############
  
  # lekérdezés az adatbázisból
  if ($hash{'mit_csinal'}==''lekerdez'') {
  # my $sql_text = ''SELECT * FROM tabla_1 WHERE nev=($hash{'nev'})'';
  my $sql_text = ''SELECT * FROM tabla_1'';
  my $sql = $dbh->prepare($sql_text);
  $sql->execute();
  #print $sql->rows, '' '';
  :((########### ITT MILYEN FÜGGVÉNYT, HOGYAN???????? #########xx
  $dbh->do($sql_text) || die $DBI::errstr;
  $sql->finish();
  
  
  }
  
  $dbh->disconnect();
  

Aktív témák