준호씨의 블로그

[% foo = 'Foo' items = [ 'one', 'two', 'three' ] %] Things: [% FOREACH thing IN [ foo 'Bar' "$foo Baz" ] %] * [% thing %] [% END %] Items: [% FOREACH i IN items %] * [% i %] [% END %] Stuff: [% stuff = [ foo "$foo Bar" ] %] [% FOREACH s IN stuff %] * [% s %] [% END %] IN 대신 = 을 사용 할 수도 있음 [% FOREACH i = items %] [% userlist = [ { id => 'tom', name => 'Thomas' }, { id => 'dick', name => 'Richard'..

다음과 같이 hash 데이터가 있다고 했을 때 my %fruits = ( "apple" => 500, "orange" => 800, "kiwi" => 600, "ABC" => 100, "BBC" => 100, ); 그냥 반복문으로 찍으면 다음과 같이 나온다. for my $fruit (keys %fruits) { print "$fruit, $fruits{$fruit}\n"; } hash 데이터는 기본적으로 정렬을 보장하지 않는다. $ perl sort.pl BBC, 1000 kiwi, 600 apple, 500 orange, 800 ABC, 100 정렬을 해서 출력 하고 싶다면 정렬 기준을 잡아야 한다. key 로 정렬하기. sort by key 단순한 방법이다. sort 만 넣어주면 된다. for my..

소수점 3자리로 자르고 싶은 경우. print sprintf("%.3f", 1.2345678)."\n"; print sprintf("%.3f", -1.2345678)."\n"; 결과 1.234 참고 http://perldoc.perl.org/functions/sprintf.html

@my_array = (); undef @my_array; $#my_array = -1; splice(@my_array); 참고 How do I completely empty out an array? Perl Clear Array

exit value 구하는 방법 system 함수를 실행하면 결과 정보가 $? 에 담겨진다. 8bit 를 버리고 나면 $? >> 8; 예제 exit5.pl 코드를 작성하고 5 로 종료 하는 코드를 작성한다. exit 5; testexit.pl 코드를 작성한다. system("perl", "exit5.pl"); printf "%d\n", $? >> 8; 코드를 실행해 보면 exit 5 로 넘겨 받은 값이 출력되는 것을 볼 수 있다. $ perl testexit.pl 5 perldoc 의 system 에 있는 예제를 참고 하도록 한다. if ($? == -1) { print "failed to execute: $!\n"; } elsif ($? & 127) { printf "child died with sig..