ç„¡ç²¾ã§çŸæ°—ã§å‚²æ…¢ãªãƒ—ãƒã‚°ãƒ©ãƒž perl+DBI プãƒã‚°ãƒ©ãƒ ã®é‰„則68user çš„ perl+DBI プãƒã‚°ãƒ©ãƒ ã®ãƒ«ãƒ¼ãƒ«ã€‚åˆå¿ƒè€…ã«æ•™è‚²ã™ã‚‹ã¨ãã¯ã“ã®ã‚µãƒ³ãƒ—ルプãƒã‚°ãƒ©ãƒ を渡ã™ã“ã¨ã€‚é‡è¦–ã™ã¹ããªã®ã¯ã€ãƒã‚°ã®å…¥ã‚Šè¾¼ã¾ãªã„コーディングスタイルã§ã‚ã‚‹ã“ã¨ã¨ã€å¯èªæ€§ã‚’é‡è¦–ã™ã‚‹ã“ã¨ã€‚速度ã¯ãã®å¾Œã§ã‚ˆã„。 ã¾ãšã¯ã‚µãƒ³ãƒ—ルプãƒã‚°ãƒ©ãƒ 。解説ã¯å¾Œã»ã©ã€‚ #!/usr/bin/perl use strict; use DBI; my $dbh = DBI->connect($dsn, $user, $password, {RaiseError => 1, PrintError => 0, AutoCommit => 0 }) || die "$!"; eval { &mainwork(); $dbh->commit; $dbh->disconnect; }; if ( $@ ){ $dbh->rollback; $dbh->disconnect; } exit 0; #----
{{#tags}}- {{label}}
{{/tags}}