Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use warnings;
- use strict;
- use DBI;
- use DBD::mysql;
- package MysqlTest;
- sub new{
- my $class = shift;
- my $query={};
- bless($query, $class);
- }
- sub conexion{
- my $self=shift;
- my($database, $host, $user, $pwd)=@_;
- my $connect = DBI->connect("DBI:mysql:$database:$host", $user, $pwd) or die $DBI::errstr;;
- $self->{"host"}="$host";
- $self->{"database"}="$database";
- $self->{"user"}="$user";
- $self->{"pass"}="$pwd";
- my $mysqlopen = 1;
- return;
- }
- sub consulta{
- my $self=shift;
- if (!$mysqlopen) { &conexion; }
- my $id = "SELECT * FROM save_bookmarks WHERE id='123'";
- $result = $connect->prepare($id);
- $result->execute();
- my @resultado = $result->fetchrow_array();
- print "@resultadon";
- return;
- }
- sub datos{
- my $self=shift;
- print "::DATOS DE ACCESO::n";
- while (($key, $value)=each(%$self)){
- print "$key => $valuen";
- }
- }
- 1;
- #!/usr/bin/perl
- use MysqlTest;
- use warnings;
- use strict;
- my $mysqltest = MysqlTest->new();
- $mysqltest->conexion("bookmarks", "localhost", "root", "pass");
- $mysqltest->consulta();
- DBI connect(':','',...) failed: Access denied for user 'delkav'@'localhost' (using password: NO) at MysqlTest.pm line 17.
- Access denied for user 'delkav'@'localhost' (using password: NO) at MysqlTest.pm line 17.
- my $connect = DBI->connect("DBI:mysql:$database:$host", $user, $pwd) or die $DBI::errstr;
- my $connect = DBI->connect("DBI:mysql:database=$database;host=$hostname;", $user, $pwd) or die $DBI::errstr;
Add Comment
Please, Sign In to add comment