Perl-mysql - Revision history

Raj at 08:02, 27 February 2010

2010-02-27T08:02:51Z

← Older revision		Revision as of 08:02, 27 February 2010
Line 27:		Line 27:

	</source>		</source>
			[[Category:Bioinformatics]]

Raj at 08:00, 27 February 2010

2010-02-27T08:00:23Z

← Older revision		Revision as of 08:00, 27 February 2010
Line 6:		Line 6:
	# Setting the SQL global limits		# Setting the SQL global limits
	$dbh->do("SET GLOBAL max_allowed_packet=1610241024");		$dbh->do("SET GLOBAL max_allowed_packet=1610241024");


	#Creating the Database		#Creating the Database
Line 24:		Line 23:
	# Insert		# Insert
	$dbh->do("INSERT INTO $table (ID, scaf_nr, c_seq, sequence) VALUES ('$i', '$scaf_nr', '$c_seq', '$sequence')" );		$dbh->do("INSERT INTO $table (ID, scaf_nr, c_seq, sequence) VALUES ('$i', '$scaf_nr', '$c_seq', '$sequence')" );



	</source>		</source>

Raj: Created page with ' # Connecting to the database my $dbh = DBI->connect('DBI:mysql:euc:127.0.0.1', 'raj', 'treebase') or die $!; # Setting the SQL global limits $dbh->do("SET …'

2010-02-27T08:00:06Z

Created page with '<source lang=perl> # Connecting to the database my $dbh = DBI->connect('DBI:mysql:euc:127.0.0.1', 'raj', 'treebase') or die $!; # Setting the SQL global limits $dbh->do("SET …'

New page

<source lang=perl>

# Connecting to the database
my $dbh = DBI->connect('DBI:mysql:euc:127.0.0.1', 'raj', 'treebase') or die $!;

# Setting the SQL global limits
$dbh->do("SET GLOBAL max_allowed_packet=16*1024*1024");

#Creating the Database
eval { $dbh->do("DROP TABLE IF EXISTS $table") };
$sql = "
CREATE TABLE $table
(ID INT(10) NOT NULL,
scaf_nr VARCHAR(255) NOT NULL,
c_seq VARCHAR(10) NOT NULL,
sequence text NOT NULL,
KEY ID (ID))
ENGINE=MyISAM DEFAULT CHARSET=latin1;
";
$dbh->do($sql);

# Insert
$dbh->do("INSERT INTO $table (ID, scaf_nr, c_seq, sequence) VALUES ('$i', '$scaf_nr', '$c_seq', '$sequence')" );
</source>