준호씨의 블로그

@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 로 넘겨 받은 값이 출력되는 것을 볼 수 있..

파일 하나 삭제 unlink $file; 리스트의 파일 삭제 unlink @files; 조건에 해당 하는 파일 삭제. *.bak 삭제 방법 unlink glob "*.bak"; 참고 unlink - perldoc 펄에서 파일 이동/복사/이름변경 방법 glob - perldoc

use Net::Address::IP::Local; my $ip = Net::Address::IP::Local->public; print $ip; $ perl ip.pl 14.47.186.209 참고 http://search.cpan.org/~jmehnle/Net-Address-IP-Local-0.1.2/lib/Net/Address/IP/Local.pm

var params = { width:1680, height:1050 }; var str = jQuery.param( params ); 결과 width=1680&height=1050 참고 jQuery.param()