Cria_tabelas_datachk.pl

   1 #!/usr/bin/perl
   2
   3   use DBI(); # Usa o pacote de banco de dados
   4
   5   # Executa a conexão com o banco.
   6   #                          tipo       base a usar     endereço
   7   my $dbh = DBI->connect("DBI:mysql:database=datachk;host=localhost",
   8                          "root", "!P\@ssword", #login e senha
   9                          {'RaiseError' => 1});
  10
  11
  12 #Cria a Tabela placaderede
  13 #$dbh->do("CREATE TABLE placaderede (
  14 #pdr_id SERIAL,
  15 #fabricante VARCHAR(400),
  16 #modelo VARCHAR(400))
  17 #");
  18 #print "Criada Tabela: placaderede\n";
  19
  20 #Cria a Tabela memoria
  21 #$dbh->do("CREATE TABLE memoria (
  22 #mem_id SERIAL,
  23 #tipo VARCHAR(400),
  24 #tamanho VARCHAR(200),
  25 #fabricante VARCHAR(400),
  26 #frequencia VARCHAR(100)
  27 #)");
  28 #print "Criada Tabela: memoria\n";
  29
  30 #Cria a Tabela processador
  31 #$dbh->do("CREATE TABLE processador (
  32 #proc_id SERIAL,
  33 #tipo VARCHAR(400),
  34 #velocidade VARCHAR(200),
  35 #fabricante VARCHAR(400),
  36 #socket VARCHAR(100)
  37 #)");
  38
  39 #print "Criada Tabela: processador\n";
  40
  41 #Cria a Tabela placadevideo
  42 #$dbh->do("CREATE TABLE placadevideo (
  43 #pv_id SERIAL,
  44 #memoria VARCHAR(400),
  45 #processador VARCHAR(200),
  46 #aceleradora3d VARCHAR(20),
  47 #barramento VARCHAR(100)
  48 #)");
  49 #print "Criada Tabela: placadevideo\n";
  50
  51
  52 #Cria a Tabela placamae
  53 #$dbh->do("CREATE TABLE placamae (
  54 #pm_id SERIAL,
  55 #fabricante VARCHAR(400),
  56 #modelo VARCHAR(200),
  57 #socket VARCHAR(100),
  58 #quantidadeMemoria VARCHAR(100),
  59 #barramentoPCI VARCHAR(50),
  60 #barramentoISA VARCHAR(50),
  61 #barramentoAGP VARCHAR(50),
  62 #interfaceIDE VARCHAR(50),
  63 #interfaceSATA VARCHAR(50),
  64 #interfaceSCSI VARCHAR(50),
  65 #portaUSB VARCHAR(50),
  66 #somOnBoard VARCHAR(50)
  67 #)");
  68 #print "Criada Tabela: placamae\n";
  69
  70 #Cria a Tabela fonte
  71 #$dbh->do("CREATE TABLE fonte (
  72 #fonte_id SERIAL,
  73 #potencia VARCHAR(400),
  74 #tipo VARCHAR(200),
  75 #quantidadePinos VARCHAR(100)
  76 #)");
  77 #print "Criada Tabela: fonte\n";
  78
  79 #Cria a Tabela hd
  80 #$dbh->do("CREATE TABLE hd (
  81 #hd_id SERIAL,
  82 #fabricante VARCHAR(400),
  83 #tamanho VARCHAR(200),
  84 #tipo VARCHAR(100)
  85 #)");
  86 #print "Criada Tabela: hd\n";
  87
  88
  89 #Cria a Tabela driverOptico
  90 #$dbh->do("CREATE TABLE driverOptico (
  91 #driver_id SERIAL,
  92 #fabricante VARCHAR(400),
  93 #velocidade VARCHAR(200),
  94 #tipo VARCHAR(100)
  95 #)");
  96 #print "Criada Tabela: driverOptico\n";
  97
  98
  99 #Cria a Tabela disquete
 100 $dbh->do("CREATE TABLE disquete (
 101 disq_id SERIAL,
 102 fabricante VARCHAR(400)
 103 )");
 104 print "Criada Tabela: disquete\n";
 105
 106   # Desconecta do banco de dados
 107   $dbh->disconnect();