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

 
Previous Post Perl/펄] 윤년 평년 여부 판단 함수; is Leap YearHTML-CSS] 텍스트 중앙(가운데) 정렬, 양쪽/우측/좌측 맞춤 태그; Text Ali...일본어 가운뎃점, '가운데 점' 입력 방법; Japanese 'Katakana Middle...Python/파이썬] 이진파일 열기/읽기/출력 예제: Binary File Open-Rea...C, Perl에서, 연 파일을 닫아야 하는 이유는? fclose() close()로Python/파이썬] 텍스트 파일 열기/읽기/출력 예제: Text File Open-Rea...Python/파이썬] 표준 에러 출력으로, 에러 메시지 출력하는 법: STDERRPython/파이썬] 외부 명령어 실행 함수, 외부 프로그램 호출 실행; System, E...Java/자바] 일시 중지/정지 Pause 시키기; Enter키를 누르면 계속됩니다 메시지...Java/자바] 올해가 윤년인지 평년인지 여부 판단; Current Year is Leap...

Perl/펄] 올해가 윤년인지 평년인지 판단 예제; Current Year is Leap Year?

Tuesday, January 30, 2007

이번 해가 윤년인지 아닌지 알아내는 방법입니다. 여기에 있는 isLeapYear 함수를 사용합니다: ▶▶ Perl/펄] 윤년 평년 여부 판단 함수; is Leap Year

그리고
(localtime)[5] + 1900
이렇게 하면 현재 연도를 4자리로 구할 수 있습니다.

이번 해가 윤년인지 평년인지 알아내기 예제


파일명: example.pl
#!/usr/bin/perl
use strict; use warnings;

  my $current_year = (localtime)[5] + 1900;

  print "올해는 ", $current_year, " 년입니다.\n";


  if (isLeapYear($current_year)) {
    print "윤년입니다\n";
  } else {
    print "평년입니다\n";
  }




sub isLeapYear {
  my $year = shift;

  return 0 if $year % 4;
  return 1 if $year % 100;
  return 0 if $year % 400;

  return 1;
}



출력 결과 (올해가 2007년일 경우) :
올해는 2007 년입니다.
평년입니다


출력 결과 (올해가 2008년일 경우) :
올해는 2008 년입니다.
윤년입니다


펄 강좌와 각종 예제

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