인문학적 프로그래머 NamSa

aero님의 도움으로 성공 객체를 생성하고 해쉬를 넘기는데 잘않되서 열심히 커뮤니티에 물어봐서 성공했습니다 아래는 예제 입니다 { package Person; sub new{ my $class = shift; my $self = { _firstName => shift, _lastName => shift, _hash => shift, }; bless $self,$class; return $self; } sub print{ my ($self) = shift; while(my ($key,$value) = each( %{$self->{_hash}} ) ){ print "$key is $value \n"; } } } use Data::Dumper; my $p = Person->new('first','last',{..

완전 심플한 버전의 설정파일 읽어들이기 입니다. 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, '

아래는 어떤 모듈의 디스크를 가져오는 부분의 일부분을 가져다 조금 뜯어 고친겁니다 굴은 글씨로 칠한부분 처음엔 이해 안갓는데 차근 차근 집어보니 2차원 해쉬더군요 문법 공부의 부족함을 요즘 많이 느끼고 있습니다. 저런식으로도 해쉬를 사용할수 있다는걸 알았으니 앞으로 저코드를 응용할일이 많을 듯싶네요. my ($self) = @_; my $disktotal=0; my $diskfree=0; my $df_cmd = "df -kP"; local $ENV{PATH} = "/bin"; my (%disk_usage, $disk_name); open my $fh, "$df_cmd|" or croak " unable to execute '$df_cmd' ($!)"; {my $null = ;} while (my $lin..

Forward Backward A and B; B if A; A && B; B if A; A and do { B }; do { B } if A; A && do { B }; do { B } if A; if (A) { B }; B if A; unless (!A) { B }; B unless !A; Backwoard 방식은 여러줄에 써야 할걸 한줄에 쓸수 있도록 해주죠 ^^ if($a==10){ print "wow\n"; } 의 코드가 아래처럼 변하는 거죠 print "wow\n" if $a==10

먼져 모듈을 설치한다 cpan> install Yahoo::Search 코드 : #!/usr/bin/perl use Yahoo::Search; my @results = Yahoo::Search->Results( Doc => "nan1004au", AppId => "YahooDemo", Start => 0, Count => 5); for my $result (@results) { print "=" x 30 , "\n"; printf "Result: #%d\n", $result->I + 1, printf "Url:%s\n", $result->Url; printf "%s\n", $result->ClickUrl; printf "Summary: %s\n", $result->Summary; printf "Title..

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