인문학적 프로그래머 NamSa

리눅스에서 커멘드라인 이미지 편집 프로그램으로 유명한 perlmagick의 perl모듈입니다. 여러장의 리사이징이나 편집등에 유용했던 프로그램인데요. perl 모듈을 통해 다루니 좀 더 강력하게 다룰 수 있을 듯 합니다. 간단한게 리사이징 하는 것을 보여드리고 참고할 만한 싸이트를 적어드리겟습니다. 먼저 모듈을 설치해주셔야 겠죠? 우분투의 경우에는 다음과 같이 설치하시면 편하게 설치됩니다. Cpan을 이용하셔서 설치학셔도 되구요 각자 편리한 방식으로 $ sudo aptitude install perlmagick 예제프로그램으로 이미지 리사이징을 해보겟습니다. use Image::Magick; #인자를 3개 받도록 체크 if(@ARGV != 3){ print "인자를 3개 입력해 주세요(편집파일 저장파일 ..

갑자기 perl로 GUI를 만들고 싶은 마음이 들어서 이런 저런 GUI를 보다가 WX가 가장 맘에 들어서 WX를 선택했습니다. 위젯도 많고 작성도 편리하다는 느낌이 들어서 요녀석으로 기억에 예전에 TCL로 짯었는데 그것보다 좀더 간결한 듯한 느낌이 들기도 합니다. wx는 python c++ perl등 대부분의 언어로 바인딩 되어 있어서 한번 배워두면 다른 언어에서 활용하기도 편리할 것 같구요 골빈 해커님이 WX의 좋은 문서를 번역해 주셧습니다. wxPerl: Perl 을 위한 또 다른 GUI APP를 상속받아 사용하는 것은 위의 문서가 있으므로 저는 좀더 간단하게 작성할 수 있는 방법인 SimpleApp를 통해 작성하는 방법과 메뉴등 간단한 몇가지에 대해 다루어 보겟습니다. SimpleAPP는 말그대로 ..

PERL로 작업을 하다보면 가끔 한줄만 입력 받는 것이 아닌 여러줄을 입력 받아야 할 때가 있습니다. 이럴 때면 헉 그런 방법도 있었나? 하게 되시죠 그런데 그런 방법이 있어요. 그냥 $input = 이라고 해서 입력을 받으면 딴 한줄 받죠 그런데 여러줄을 입력 받으려면 좀 힘들어요. @input = 이라고 $을 @로 바꾸어주면 되거든요. ^^ 입력을 마칠때는 CTRL+D키를 눌러주면 되요. 프로그램이 완전 종료되는 건 아니니까 안심하고 치세요. 예제 프로그램을 볼까요? #!/usr/bin/perl use strict; use warnings; print "CTRL+D to finish\n"; my @input = ; print "Result : \n"; print "@input"; 결과 간단하죠 ^^ ..

완전 심플한 버전의 설정파일 읽어들이기 입니다. cpan에는 이런 저런 것들이 있는데 그렇게 강한 기능들은 사용할 일이 없어서 이런식으로 사용하는게 편한것 같습니다. config.txt namsa=wow nan1004au=cool Mconfig.pm package Config; #constructor sub new{ my $class = shift;; my $self = { _path => shift, _config => shift, }; bless $self,$class; init($self); return $self; } #설정파일로부터 읽어 들이기 sub init{ my ($self) = @_; open my $config, '

Cpan에서 Net::SCP::Expect 모듈을 추가한뒤에 사용가능하다 내컴퓨터에서는 무었이 문제인지 모르겟지만 접속하는데 오래걸려서 자꾸 타임아웃되서 타임아웃을 늘려 주었다 타임아웃부분을 지우면 기본으로 10초가 된다 use Net::SCP::Expect; my $scpe = Net::SCP::Expect->new(user=>'유져아이디',password=>'유져패스워드',timeout=>타임아웃초); $scpe->scp('복사할파일','아이피:경로'); 패스워드를 그냥 그때 그때 입력하는 방식으로 사용한다면 Net::SCP를 사용해도 부방하다