¹Ø¿¡ ±Û¿Ã¸° ³ð ÀÔ´Ï´Ù..
ºü¸¥ ´äº¯ °¨»ç µå¸®±¸¿ä.. ^^*
ÇÑ°¡Áö´õ Áú¹®ÀÌ ÀÖ´«µ¥¿ä....
ÀÏ´Ü ¼Ò½º¸¦ ¸ÕÀú...

#!/usr/bin/perl -w

use DBI;

$dbh = DBI->connect(
DBI:mysql:test:localhost
,
USER
,
PASSWORD
);
$table = "test";

$sql = "select DATE_FORMAT(now(),
Ymd
)";
$result = $dbh->prepare($sql);
$result->execute;
@a = $result->fetchrow_array;
$log_file = $a[0];

$sql = "select * from $table order by no desc";

$result = $dbh->prepare($sql);
$result->execute;
$num = $result->rows;
for($i=0;$i<$num;$i  ) {
        @temp = $result->fetchrow_array;
        $time = time();
        if($temp[2] < $time) {
                $que = "update test set ing=
n
where aud_id=
$temp[3]
";
                $result2 = $dbh->prepare($que);
                $result->execute;
        }
}
$result->finish;
$dbh->disconnect;

ÀÌ°É ½ÇÇàÀ» ÇϸéÀº.. µðºñ¿¡¼­.. ³¯Â¥¸¦ ºñ±³Çؼ­... ÇöÀç¶û ºñ±³Çؼ­..
Áö³­³¯Â¥´Â ing¶ó´Â Ä÷³¿¡´Ù°¡
n
À¸·Î ¾÷µ¥ÀÌÆ® Çϴ°ÍÀä...
½Ã°£ ºñ±³´Â ŸÀÓ½ºÅÆÇÁ¸¦ ºñ±³Çؼ­... µðºñ¿¡µÎ ŸÀÓ½ºÅÆǪ·Î...
±Ùµ¥ ÀÌ°É ½ÇÇà½ÃÅ°¸é.. ÀÌ·± ¿¡·¯°¡ ³ª¿É´Ï´Ù..

Name "main::result2" used only once: possible typo at test.pl line 30.
Name "main::log_file" used only once: possible typo at test.pl line 13.
¾î¶² Àǹ̸¦ ¸»Çϴ°ÇÁö...
Á¦°¡ ºÁµÎ Áú¹®ÀÌ ¸»ÀÌ Àß ¾ÈµÇ´Â°Å °°³×¿è...