핵커의 프로그래밍 세상

Perl에서 시간을 Unix time (Epoch Time)으로 전환하는 방법입니다.
Epoch Time은 1970-01-01 00:00:00 UTC 시간 이후로 지나간 second(초)를 계산한 것을 말합니다.
Perl에서는 이 시간으로 전환하고 다시 일반 date로 전환하는 방법이 간혹 필요합니다.
또한 RRD 데이터베이스에서는 이 Epoch Time으로 저장이 되므로, 반드시 필요합니다.
Linux나 AIX에서는커맨드라인에서 date 명령어 수행시 %s 옵션을 이용하여
Epoch Time을 구할 수 있습니다.(HP-UX에서는 없음)
 
 
How to convert epoch / UNIX timestamps to normal readable date/time using Perl.
 
​
Getting current epoch time in Perl
​
​
Time returns an integer with the current epoch:
​
time
​
Converting from epoch to normal date in Perl
​
Using the internal localtime or gmtime functions, localtime and gmtime return an array:
​
my $time = time; # or any other epoch timestamp
​
my @months = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
​
my ($sec, $min, $hour, $day,$month,$year) = (localtime($time))[0,1,2,3,4,5];
​
# You can use 'gmtime' for GMT/UTC dates instead of 'localtime'
​
print "Unix time ".$time." converts to ".$months[$month]." ".$day.", ".($year+1900);
​
print " ".$hour.":".$min.":".$sec."\n";
​
​
​
But you can also use the scalar function to display your date with far less code:
print scalar localtime(946684800);returns Sat Jan 1 01:00:00 2000 (in my timezone).
​
​
For more advanced date manipulation, try using the DateTime module:
​
use DateTime;
​
$dt = DateTime->from_epoch( epoch => $epoch );
​
$year = $dt->year;
​
$month = $dt->month; # 1-12 - you can also use '$dt->mon'
​
$day = $dt->day; # 1-31 - also 'day_of_month', 'mday'
​
$dow = $dt->day_of_week; # 1-7 (Monday is 1) - also 'dow', 'wday'
​
$hour = $dt->hour; # 0-23
​
$minute = $dt->minute; # 0-59 - also 'min'
​
$second = $dt->second; # 0-61 (leap seconds!) - also 'sec'
​
$doy = $dt->day_of_year; # 1-366 (leap years) - also 'doy'
​
$doq = $dt->day_of_quarter; # 1.. - also 'doq'
​
$qtr = $dt->quarter; # 1-4
​
$ymd = $dt->ymd; # 1974-11-30
​
$ymd = $dt->ymd('/'); # 1974/11/30 - also 'date'
​
$hms = $dt->hms; # 13:30:00
​
$hms = $dt->hms('|'); # 13|30|00 - also 'time'
​
Converting from normal date to epoch in Perl
​
Using the Time::Local module:
​
use Time::Local;
​
my $time = timelocal($sec,$min,$hours,$day,$month,$year);
​
# replace 'timelocal' with 'timegm' if your input date is GMT/UTC
​
​
​
Using the DateTime module:
​
use DateTime;
​
$dt = DateTime->new( year => 1974, month => 11, day => 30, hour => 13, minute => 30,
​
second => 0, nanosecond => 500000000, time_zone => 'Asia/Taipei' );
​
$epoch_time = $dt->epoch;
​
Find more detailed information on CPAN: Time::Local,DateTime. You can also use Date::Manip if you need more advanced date manipulation routines.
Using the Date::Parse module (thanks to ericblue76):
​
use Date::Parse;
​
print str2time("02/25/2011 11:50AM");
​
The Perl Cookbook, Second Editiongives detailed information on manipulating dates and times in chapter 3 (pages 90-110).
 
 
 
**************************************************************************************************************
 
Epoch Time을 구하는 방법에는 여러가지 방법이 존재하는데, 아래는 그 예제들입니다.
 
 
Note that the month starts out as 0 for some inscrutable reason, so you'll have use
timelocal($sec,$min,$hours,$day,$month-1,$year); to get this to work.

Perl의 세계에 온 것을 환영합니다.
Perl은 스크립팅 언어의 Swiss Army chainsaw(스위스 군용 전기 톱)이라고 합니다: 강력하고 이식성이 뛰어나기 때문입니다. Perl은 1980년대 후반 NASA에서 시스템 관리자로 일하던 언어학자인 Larry Wall에 의해, 보고서 처리를 보다 쉽게 하기 위해, 처음 개발되었습니다. 그 이후로 Perl은 아주 많은 역할을 하게 되었습니다: 다른 컴퓨터 시스템들 사이를 연결하여 시스템 관리를 자동화할 뿐만 아니라, 물론 웹 상에서 CGI 프로그래밍에 대해 가장 인기있는 언어의 하나가 되었습니다.
​
왜 Perl이 Web과 함께하며 그렇게 인기있게 되었을까요? 거기엔 2가지 이유가 있습니다: 첫째로 웹 상에서 수행되는 대부분의 것들은 text 형태로 일어나고, text 처리를 위해 고안된 언어에서 가장 잘 수행되기 때문입니다. 보다 중요하게, Perl은 사람들이 이용할 어떤 것이 필요할 때 다른 선택사항들보다 눈에 띄게 좋았습니다. C는 복잡하고 보안 문제를 일으킬 수 있었고 (특히 신뢰되지 않는 데이터일 경우), Tcl은 불편할 수 있고 Python은 정말 기반이 없었습니다.
또한 Perl은 사용하기 쉬운 친절한 언어이기 때문에 당신을 고통스럽게 하지는 않습니다. 당신의 개인적인 프로그래밍 스타일과 잘 어울릴 것입니다. Perl의 슬로건은 "그것을 하는데 하나 이상의 방법이 있다," 이며, 크고 작은 문제 모두 똑같이 유용할 것입니다.
​
연재의 첫번 째 부분에서, Perl에 대한 몇 가지 기본 사항을 배우고, 작은 샘플 프로그램을 볼 수 있습니다.
- Operating System에 대해
이 연재에서, Unix 시스템을 사용하고 Perl interpreter가 /usr/local/bin/perl에 위치하고 있다고 가정하겠습니다.
Windows를 구동해도 괜찮습니다: 대부분의 Perl 코드는 플랫폼과 무관합니다.
​
- 첫번째 Perl Program
​
아래 텍스트 내용으로 first.pl을 만드십시오:
#!/usr/local/bin/perl
print "Hi there!\n";
​
(전통적으로, 첫 프로그램은 Hello world! 라고 말하는게 일반적입니다^^)
​
이제, Perl 인터프리터로 실행하세요. 커맨드 라인에서, 파일이 있는 디렉토리로 가서 perl first.pl을 실행하면 아래와 같이 보게 될 것입니다.
Hi there!
​
\n은 newline 문자를 나타냅니다: 그것이 없다면, Perl은 스스로 텍스트의 new line으로 넘어갈 수 없습니다.
​
- 함수와 문장 (Functions and Statements)
Perl은 많은 함수 라이브러리를 갖고 있습니다. 그들은 인터프리터가 수행하는 명령들, Perl의 동사들입니다. perlfunc man 페이지에서 모든 내장 함수들의 목록을 확인할 수 있습니다. 거의 모든 함수들은 일련의 파라미터를 받을 수 있고, 그것들은 컴마에 의해 구분이 됩니다.
print 함수는 Perl의 가장 자주 사용되는 부분 중의 하나입니다. 스크린에 표시하거나 또는 파일에 정보를 보내기 위해 사용합니다. print 함수는 출력하기 위한 일련의 것들을 그것의 파라미터로서 가집니다.
print "This is a single statement.";
print "Look, ", "a ", "list!";
​
Perl 프로그램은 세미콜론으로 끝나는 문장들로 이루어져 있습니다. 문장들은 분리된 라인들일 필요는 없습니다; 하나의 줄에 다수의 문장들이 있거나 하나의 문장이 다수의 라인들에 분리되어 있을 수도 있습니다.
​
print "This is "; print "two statements.\n"; print "But this ",
"is only one statement.\n";
- 숫자, 문자열, 쌍따옴표 (Numbers, Strings and Quotes)
Perl에는 2개의 기본적인 데이터 형태가 있습니다: 숫자와 문자열
숫자는 쉽습니다; 우리는 그것들을 모두 다뤄왔습니다. 알아야 하는 것은 Perl에서 숫자 속에 컴마(,)나 스페이스를 넣으면 안된다는 것입니다. 10,000 또는 10 000이 아닌 10000이라고 항상 쓰세요.
문자열들은 보다 조금 복잡합니다. 문자열은 작은 따옴표 또는 큰 따옴표에 있는 문자들의 집합입니다:
'This is a test.'
"Hi there!\n"
​
작은 따옴표와 큰 따옴표의 차이는 큰 따옴표는 그 내용이 해석되어야(interpreted) 하는 것을 의미하는 반면, 작은 따옴표는 그 내용이 문자 그대로 받아들여져야 하는 것을 의미합니다.
예를 들면, 문자 시퀀스 \n은 큰 따옴표를 가진 문자열에서 나타나면 newline 문자이지만,
작은 따옴표에서 나타나면 문자 그대로 2개의 문자, 백슬래쉬와 n입니다.
print "This string\nshows up on two lines.";
print 'This string \n shows up on only one.';
(2개의 유용한 백슬래쉬 시퀀스는 탭 문자를 입력하는 \t 와, 큰 따옴표 안에 백슬래쉬를 입력하기 위한 \\입니다.)
​
- 변수(Variables)
함수들이 Perl의 동사라면, 변수들은 명사입니다. Perl은 3개 형식의 변수를 가지고 있습니다: 스칼라, 배열, 해쉬. 그것들을 "물건" "목록", "사전"이라고 생각하세요. Perl에서 모든 변수 이름들은 문자 또는 밑줄(_), 그리고 하나 이상의 영숫자 문자이거나 또는 밑줄들로 된 구두점 문자이다.
스칼라는 하나의 것들입니다. 숫자 또는 문자열일 수 있습니다. $abacus처럼 스칼라의 이름은 $ 표시로 시작합니다. 다음과 같이 = 기호를 사용하여 스칼라에 값을 할당할 수 있습니다:
$i = 5;
$pie_flavor = 'apple';
$constitution1776 = "We the People, etc.";
​
스칼라가 숫자인지 문자열인지 지정할 필요가 없습니다. Perl이 문자열로 처리해야 할 필요가 있을 때 그렇게 하고; 숫자로 처리해야 할 필요가 있을 때 그렇게 하기 때문에 문제가 되지 않습니다. 변환은 자동으로 일어납니다. (이것은 문자열들과 숫자들이 구별되는 데이터 형식인 다른 많은 언어들과는 다릅니다.)
큰 따옴표 문자열을 사용하는 경우, Perl은 문자열에 당신이 이름지은 스칼라 변수들의 값을 삽입할 것입니다. 이것은 문자열을 직접 채우는데 자주 사용한다:
​
$apple_count = 5;
$count_report = "There are $apple_count apples.";
print "The report is: $count_report\n";
​
이 코드의 마지막 출력은 The report is: There are 5 apples 입니다.
Perl의 숫자는 일반적인 수학적 연산으로 조작할 수 있습니다: 덧셈, 곱셈, 나눗셈과 뺄셈. (곱하기와 나누기는 Perl에서 *와 / 로 표시됩니다.)
​
$a = 5;
$b = $a + 10; # $b is now equal to 15.
$c = $b * 10; # $c is now equal to 150.
$a = $a - 1; # $a is now 4, and algebra teachers are cringing.
​
또한 ++, --, +=, -=, /=, *= 같은 특수 연산자를 사용할 수 있습니다. 이것들은 방정식의 2가지 요소를 필요로 하지 않고 스칼라의 값을 조작할 수 있습니다. 어떤 이들은 그것들을 좋아하고, 어떤 이들은 좋아하지 않습니다. 저는 그것들이 코드를 보다 명확하게 만들 수 있다는 사실을 좋아합니다.
​
$a = 5;
$a++; # $a is now 6; we added 1 to it.
$a += 10; # Now it's 16; we added 10.
$a /= 2; # And divided it by 2, so it's 8.
​
Perl의 문자열은 많은 유연성을 가지고 있지는 않습니다. 문자열에서 사용할 수 있는 유일한 기본 연산자는, "함께 합치다"고 말하는, 연결입니다. 연결 연산자는 마침표입니다. 연결과 더하기는 별개의 것입니다.
​
$a = "8"; # Note the quotes. $a is a string.
$b = $a + "1"; # "1" is a string too.
$c = $a . "1"; # But $b and $c have different values!
​
Perl은 필요할 때 숫자를 문자열로 변환한다는 것을 기억하세요, $b의 값을 얻기 위해서 Perl 인터프리터는 2개의 문자열 "8"과 "1"을 숫자로 변환하고, 그것들을 더합니다.
$b의 값은 숫자 9입니다. 하지만, $c는 연결을 사용했기 때문에, 그것의 값은 문자열 "81"입니다.
+ 표시는 숫자를 더하고 마침표(.)는 문자열들을 함께 합진다는 것을 꼭 기억하세요.
배열은 스칼라의 나열입니다. 배열 이름은 @로 시작합니다. 컴마(,)로 구분지어, 괄호() 안에 내용들을 나열함으로서 배열을 정의할 수 있습니다:
​
@lotto_numbers = (1, 2, 3, 4, 5, 6); # Hey, it could happen.
@months = ("July", "August", "September");
​
배열의 내용들은 0부터 시작하여 인덱싱됩니다. 배열의 요소들을 검색하려면, @ 표시를 $ 표시로 바꾸어야 합니다, 그리고 원하는 요소의 인덱스 위치를 가지고 따르면 됩니다. (스칼라 값을 얻는 것이기 때문에 $표시로 시작합니다.). 또한 다른 스칼라처럼, 위치에 있는 값을 수정할 수도 있습니다.
​
@months = ("July", "August", "September");
print $months[0]; # This prints "July".
$months[2] = "Smarch"; # We just renamed September!
​
그런데, 만일 배열이 존재하지 않을 경우, 그것의 요소중 하나에 값을 할당하려고 할 때 그 배열이 생성될 것입니다.
​
$winter_months[0] = "December"; # This implicitly creates @winter_months.
​
배열들은 같은 순서로 그것의 내용을 반환합니다; @months를 처음부터 끝까지 조사하면, 몇 번을 하더라도, July, August, September 순서대로 돌려받을 것입니다. 배열의 길이를 찾아내고 싶다면 $#array_name 값을 이용하세요. 이 값은 배열의 요소의 숫자보다 하나 작은 값입니다. 만일 그저 배열이 존재하지 않거나 비어있다면, $#array_name은 -1 입니다. 만일 배열의 크기를 조정하고 싶다면 그저 $#array_name의 값을 조정하면 됩니다.
​
@months = ("July", "August", "September");
print $#months; # This prints 2.
$a1 = $#autumn_months; # We don't have an @autumn_months, so this is -1.
$#months = 0; # Now @months only contains "July".
​
해시는 몇몇 프로그래밍 언어에서는 "사전"이라고 불립니다, 그리고 그들은 용어와 정의, 또는 보다 정확한 말로 키와 값입니다. 해시에서 각 키는 하나의 유일한 매치되는 값을 갖고 있습니다. %parents처럼 해시의 이름은 %표시로 시작합니다. 다음과 같이 컴마로 구분된 키와 값의 쌍에 의해 해시를 정의할 수 있습니다:
​
%days_in_summer = ( "July" => 31, "August" => 31, "September" => 30 );
​