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

 
Previous Post C언어] 플러스 마이너스 부호 항상 출력, 음수 양수 기호 포맷; printf() Plus...C언어] 2진수 문자열을, 10진수 정수 숫자로 변환 함수; Base-2 String to...C언어] 헥사(HEX; 16진수) 문자열을, 10진수 정수 숫자로 변환 함수; Hex St...Java/자바] 플러스 마이너스 부호 항상 출력, 음수 양수 기호 포맷; Plus Minu...Java/자바] 가 ~ 힣 까지의 무작위 한글 음절 출력; 랜덤 한글 낱자 생성, Rand...Java/자바] A~Z의 무작위 문자 난수, 랜덤 알파벳 문자 생성; Random Lett...구글어스 피라밋 (이집트) 위치, 위도 경도; Google Earth Pyramid Loc...중국 구글 검색 사이트 주소 / 구글의 중국식 한자 표기? : Google China (谷...Java/자바] 백슬래쉬(\; ₩) 문자 바꾸기, 문자열/정규식에 백슬래시 자체 표현 방법...C 자료형 리스트, 값의 범위 목록, C언어 데이터형 변환; Data Type

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

Sunday, December 10, 2006

어제 날짜를 알기 위해서는, 단순히 오늘 날짜에 -1을 한다고 되는 것이 아니겠지요.

오늘이 1일이라면, 어제 날짜는 30일이 될 수도 있고, 31일이 될 수도 있고, "어제 달", "어제 년"의 문제도 있습니다.

따라서, time 함수로 현재의 "유닉스 타임"을 구한 후, "하루의 초(sec)"에 해당하는
(24 * 60 * 60) = 86400 초
라는 숫자를 빼면 어제 날짜의 유닉스 타임이 구해집니다. 그 유닉스 타임을 날짜로 변환하면, 어제 날짜가 구해집니다.


어제 날짜, 어제 년 어제 월 구하기 예제


#!/usr/bin/perl
use strict; use warnings;

  my $rightnow = time - (24 * 60 * 60);

  printf("어제 년: %04d\n", (localtime $rightnow) [5] + 1900 );
  printf("어제 월: %02d\n", (localtime $rightnow) [4] + 1 );
  printf("어제 일: %02d\n", (localtime $rightnow) [3] );



실행 결과 화면:
(현재 날짜가 2006-01-01일일 경우)
D:\Z>date /t
2006-01-01 일

D:\Z>0.pl
어제 년: 2005
어제 월: 12
어제 일: 31

D:\Z>



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

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

▶▶ 펄,Perl] 유닉스 시간 구하기, 유닉스 타임(Unix Time; POSIX time)

펄 강좌와 각종 예제

0 Comments:

Post a Comment

<< Home RSS 2.0 feed

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