mwultong Blog ... 프로그래밍 / 계산기

컴퓨터 엑셀 워드 포토샵 구글어스 WINDOWS JAVASCRIPT JAVA C++

 
Monday, January 15, 2007

Perl/펄] 오늘 날짜/현재 시간 구하기 함수, 년월일/시분초; Get Print Date Time Current


펄에서 오늘 현재의 날짜와 시간을 구하는 방법입니다. 연월일 시분초 별로 나누어서, 화면에 출력합니다.

localtime 이라는 함수에 인수를 주지 않고 실행하면, 현재 시간이 연월일 시분초 별로 들어 있는 리스트를 반환합니다.

날짜, 시간 (년/월/일 시/분/초) 얻기, 출력 예제 소스


파일명: 0.pl
※ 아래 박스 클릭 후, 키보드 화살표 키로 좌우 스크롤 가능함
#!/usr/bin/perl
use strict; use warnings;


  my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime;


  printf("현재 년: %04d\n", $year + 1900);
  printf("현재 월: %02d\n", $mon + 1);
  printf("현재 일: %02d\n", $mday);

  print "\n"; # 줄바꿈

  printf("현재 시: %02d\n", $hour);
  printf("현재 분: %02d\n", $min);
  printf("현재 초: %02d\n", $sec);

  print "\n"; # 줄바꿈

  printf("오늘 요일: %d\n", $wday);       # 일요일 = 0
  printf("올해 몇번째 날: %d\n", $yday);  # 1월1일 = 0
  printf("서머타임 여부: %d\n", $isdst);  # 서머타임 없음 = 0




실행 결과 화면:
D:\Z>0.pl
현재 년: 2007
현재 월: 01
현재 일: 15

현재 시: 11
현재 분: 24
현재 초: 59

오늘 요일: 1
올해 몇번째 날: 14
서머타임 여부: 0

D:\Z>

예를 들어 위와 같이 출력됩니다.



▶▶ Perl/펄] 오늘 요일 이름 구하기, 요일명 출력; Get-Print DAY OF THE WEEK

▶▶ Perl/펄] 어제 날짜 구하기, 전날 날짜 알아내기; Yesterday Date

▶▶ Perl/펄] 내일 날짜 구하기, 다음날 날짜 얻기; Tomorrow Date

▶▶ Perl/펄] 2자리수 년도 구하기, 두 자리 연도 출력; Two Digits Year

2007-01-15 14:20:02 형식으로 출력: ▶▶ Perl/펄] 한국식 날짜/시간 문자열(타임 스탬프) 출력: ISO Time Stamp

▶▶ Perl/펄] 영문(미국식) 날짜/시간 문자열 간단히 출력; scalar localtime

▶▶ Perl 펄] 이번 달은 몇 분기, 몇 사분기 구하기 함수; Quarter of the Year

▶▶ [Perl] 펄로, 현재 날짜(연월일)와 시분초 쉽게 다루는 서브루틴: GetTimeStr




tag: perl
Perl | 펄

0 Comments:

<< Home RSS 2.0 feed

구글 Google 에서 제공하는 무료 블로그 서비스인 블로거 Blogger 의 인터넷 주소는 www.blogger.com 입니다. Blogger 에 블로그를 만들면, blogspot.com 이라는 주소에 블로그가 생성됩니다.
블로그를 직접 방문하지 않고도 최신 게시물을 구독하려면 RSS 2.0 feed 주소를 리더기에 등록하시면 됩니다.
Previous Posts
Monthly Archives
Top