perl 하루 다음날짜 구하기
#!/usr/bin/perl use strict; use POSIX qw(mktime strftime); my($date) = strftime("%Y%m%d", localtime()); if($ARGV[0] >= $date) { print "date < 현재일자","\n"; exit; } my $yyyy = substr $ARGV[0], 0, 4; my $mm = substr $ARGV[0], 4, 2; my $dd = substr $ARGV[0], 6, 2; print strftime("%Y%m%d", localtime( mktime( 0,0,0,$dd,$mm-1,$yyyy-1900 ) + 86400 )), "\n";
더보기
php로 mysql 사용하기
$connect = mysql_connect("localhost","m02351010","jun0235"); // DB 연결 mysql_select_db("db02351010", $connect); // DB 선택 if ($mode == "insert") // 데이터 입력하기 { $sum = $kor + $eng + $math; // 합계 구하기 $avg = $sum/3; // 평균 구하기 $sql = "insert into student (name, kor, eng, math, sum, avg) values"; $sql .= "('$name', $kor, $eng, $math, $sum, $avg)"; $result = mysql_query($sql, $connect); } ?> . . . //////..
더보기