Monday, January 15, 2007

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

펄에서, 오늘의 요일을 구하는 방법입니다. "(localtime)[6]"으로 요일 번호를 구한 후, 요일명들이 들어 있는 배열에 요일 번호를 첨자로서 넣어주면, 오늘의 요일명이 구해집니다.

파일명: 0.pl

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

my @week = qw( 일 월 화 수 목 금 토 ); # 배열 정의

my $s = $week[(localtime)[6]];

printf("오늘 요일: %s요일\n", $s);

위의 예제 실행 결과 화면:

D:\Z>0.pl
오늘 요일: 월요일

D:\Z>

localtime 함수는 년월일 시분초 요일 등의 리스트를 반환하는데, 6번 요소가 '요일 번호'입니다. 펄에서, 일요일의 요일 번호는 0(제로)입니다.
(localtime)[6] 이것은 6번 요소만 꺼내는 것입니다.

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

펄 강좌와 각종 예제 ☞ Perl (펄)

0 Comments:

구글 Google 에서 제공하는 무료 블로그 서비스인 블로거 Blogger 의 인터넷 주소는 www.blogger.com 입니다. Blogger 에 블로그를 만들면, blogspot.com 이라는 주소에 블로그가 생성됩니다.

블로그를 직접 방문하지 않고도 최신 게시물을 구독하려면

주소를 리더기에 등록하시면 됩니다.