준호씨의 블로그

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

하나의 시스템에서 여러버전의 개발언어를 설치 하고 스위칭 해가며 사용해야 될 경우가 있다. node 에는 nvm, java 에는 jenv 가 있듯이 perl 에는 perlbrew 가 있다. https://perlbrew.pl/ 에 가서 설치 가이드를 따라 설치 해서 사용 하면 된다. 설치 \curl -L https://install.perlbrew.pl | bash curl 이 없다면 # Linux \wget -O - https://install...

new IO::Socket::INET... 그냥은 timeout 이 잘 동작 하지 않음 alarm 을 이용해야 한다. 자세한건 차차 정리 참고 alarm IO::Socket::Timeout: socket timeout made easy How to timeout and proceed in perl? IO::Socket::INET