{"id":84,"date":"2014-09-11T20:44:37","date_gmt":"2014-09-11T20:44:37","guid":{"rendered":"http:\/\/baselines.com\/blog\/?p=84"},"modified":"2014-09-11T20:57:16","modified_gmt":"2014-09-11T20:57:16","slug":"84","status":"publish","type":"post","link":"https:\/\/baselines.com\/blog\/?p=84","title":{"rendered":"Perl MySQL Transaction example"},"content":{"rendered":"

\"transactions\"<\/a><\/p>\n

 <\/p>\n

use strict;
\nuse warnings;
\nuse v5.10; # for say() function<\/p>\n

use DBI;<\/p>\n

say “Perl MySQL Transaction Demo”;<\/p>\n

# MySQL database configurations
\nmy $dsn = “DBI:mysql:perlmysqldb”;
\nmy $username = “root”;
\nmy $password = ”;<\/p>\n

# connect to MySQL database
\nmy %attr = (RaiseError=&gt;1,\u00a0 # error handling enabled
\nAutoCommit=&gt;0); # transaction enabled<\/p>\n

my $dbh = DBI-&gt;connect($dsn,$username,$password, \\%attr);<\/p>\n

eval{
\n# insert a new link
\nmy $sql = “INSERT INTO links(title,url,target)
\nVALUES(?,?,?)”;
\nmy $sth = $dbh-&gt;prepare($sql);
\n$sth-&gt;execute(“Comprehensive Perl Archive Network”,”http:\/\/www.cpan.org\/”,”_blank”);
\n# get last insert id of the link
\nmy $link_id = $dbh-&gt;{q{mysql_insertid}};<\/p>\n

# insert a new tag
\n$sql = “INSERT INTO tags(tag) VALUES(?)”;
\n$sth = $dbh-&gt;prepare($sql);
\n$sth-&gt;execute(‘Perl’);<\/p>\n

# get last insert id of the tag
\nmy $tag_id = $dbh-&gt;{q{mysql_insertid}};<\/p>\n

# insert a new link and tag relationship
\n$sql = “INSERT INTO link_tags(link_id,tag_id)
\nVALUES(?,?)”;
\n$sth = $dbh-&gt;prepare($sql);
\n$sth-&gt;execute($link_id,$tag_id);<\/p>\n

# if everything is OK, commit to the database
\n$dbh-&gt;commit();
\nsay “Link and tag has been inserted and associated successfully!”;
\n};<\/p>\n

if($@){
\nsay “Error inserting the link and tag: $@”;
\n$dbh-&gt;rollback();
\n}<\/p>\n

# disconnect from the MySQL database
\n$dbh-&gt;disconnect();<\/p>\n","protected":false},"excerpt":{"rendered":"

  use strict; use warnings; use v5.10; # for say() function use DBI; say “Perl MySQL Transaction Demo”; # MySQL database configurations my $dsn = “DBI:mysql:perlmysqldb”; my $username = “root”; my $password = ”; # connect to MySQL database my %attr = (RaiseError=&gt;1,\u00a0 # error handling enabled AutoCommit=&gt;0); # transaction enabled my $dbh = DBI-&gt;connect($dsn,$username,$password, […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3],"tags":[],"class_list":["post-84","post","type-post","status-publish","format-standard","hentry","category-software-development"],"_links":{"self":[{"href":"https:\/\/baselines.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/84","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/baselines.com\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/baselines.com\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/baselines.com\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/baselines.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=84"}],"version-history":[{"count":6,"href":"https:\/\/baselines.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/84\/revisions"}],"predecessor-version":[{"id":91,"href":"https:\/\/baselines.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/84\/revisions\/91"}],"wp:attachment":[{"href":"https:\/\/baselines.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=84"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/baselines.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=84"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/baselines.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=84"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}