Monday, January 15, 2007
Perl/펄] 오늘 요일 이름 구하기, 요일명 출력; Get-Print DAY OF THE WEEK
펄에서, 오늘의 요일을 구하는 방법입니다. (localtime)[6]으로 요일 번호를 구한 후, 요일명들이 들어 있는 배열에 요일 번호를 첨자로서 넣어주면, 오늘의 요일명이 구해집니다.
파일명: 0.pl
위의 예제 실행 결과 화면:
localtime 함수는 년월일 시분초 요일 등의 리스트를 반환하는데, 6번 요소가 '요일 번호'입니다. 펄에서, 일요일의 요일 번호는 0(제로)입니다.
(localtime)[6] 이것은 6번 요소만 꺼내는 것입니다.
▶▶ Perl/펄] 오늘 날짜/현재 시간 구하기 함수, 년월일/시분초; Get Print Date Time Current
오늘의 요일 이름 구하기 예제 소스
파일명: 0.pl
#!/usr/bin/perl
use strict; use warnings;
my @week = qw( 일 월 화 수 목 금 토 ); # 배열 정의
my $s = $week[(localtime)[6]];
printf("오늘 요일: %s요일\n", $s);
use strict; use warnings;
my @week = qw( 일 월 화 수 목 금 토 ); # 배열 정의
my $s = $week[(localtime)[6]];
printf("오늘 요일: %s요일\n", $s);
위의 예제 실행 결과 화면:
D:\Z>0.pl
오늘 요일: 월요일
D:\Z>
오늘 요일: 월요일
D:\Z>
localtime 함수 설명
localtime 함수는 년월일 시분초 요일 등의 리스트를 반환하는데, 6번 요소가 '요일 번호'입니다. 펄에서, 일요일의 요일 번호는 0(제로)입니다.
(localtime)[6] 이것은 6번 요소만 꺼내는 것입니다.
▶▶ Perl/펄] 오늘 날짜/현재 시간 구하기 함수, 년월일/시분초; Get Print Date Time Current
tag: perl
Perl | 펄
<< Home