Skip to content

Instantly share code, notes, and snippets.

@heavenshell

heavenshell/sample.pl

Created March 7, 2012 12:52
Show Gist options
  • Save heavenshell/1992935 to your computer and use it in GitHub Desktop.
Save heavenshell/1992935 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
sample.pl
#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;
use DBI;
my $data_source = 'dbi:mysql:database=foo;host=localhost;mysql_socket=/var/run/mysql5/mysqld.sock';
my $username = 'bar';
my $auth = '';
my $dbh = DBI->connect($data_source, $username, $auth);
warn Dumper $dbh->get_info(18);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment