Monday, January 15, 2007
Perl/펄] 2자리수 년도 구하기, 두 자리 연도 출력; Two Digits Year
예를 들어 1985년을 85 로 표현하고, 2007년을 07로 2자리로 나타내는 방법입니다. "나머지 연산자"인 %(퍼센트 기호)를 사용하는 것입니다. 펄의 도움말에 있는 내용인데
perldoc -f localtime
이런 명령어로 도움말이 나옵니다.
다음 예제는 현재의 년을 4자리와 2자리로 출력합니다.
파일명: 0.pl
출력 결과 화면:
(1번째는 컴퓨터 날짜를 1985년으로 거꾸로 돌린 후 출력한 것이고, 2번째는 현재 날짜에 맞추어 놓고 실행한 결과입니다.)
▶▶ Perl/펄] 오늘 날짜/현재 시간 구하기 함수, 년월일/시분초; Get Print Date Time Current
펄 강좌와 각종 예제 ☞ Perl (펄)
perldoc -f localtime
이런 명령어로 도움말이 나옵니다.
다음 예제는 현재의 년을 4자리와 2자리로 출력합니다.
2자리 년도 구하기 예제
파일명: 0.pl
#!/usr/bin/perl
use strict; use warnings;
my $year = (localtime)[5];
printf("%04d\n", $year + 1900);
printf("%02d\n", $year % 100);
use strict; use warnings;
my $year = (localtime)[5];
printf("%04d\n", $year + 1900);
printf("%02d\n", $year % 100);
출력 결과 화면:
(1번째는 컴퓨터 날짜를 1985년으로 거꾸로 돌린 후 출력한 것이고, 2번째는 현재 날짜에 맞추어 놓고 실행한 결과입니다.)
D:\Z>0.pl
1985
85
D:\Z>0.pl
2007
07
D:\Z>
1985
85
D:\Z>0.pl
2007
07
D:\Z>
▶▶ Perl/펄] 오늘 날짜/현재 시간 구하기 함수, 년월일/시분초; Get Print Date Time Current
펄 강좌와 각종 예제 ☞ Perl (펄)
Post a Comment
<< Home