인문학적 프로그래머 NamSa

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

요즘 php와 perl의 통신을 위해서 소캣 프로그래밍이 필요해서 살짝 샘플 코드 끄적 끄적 php5-cli 패키지가 깔려 있어야 합니다 없을 경우 아래의 명령어로 설치 # sudo apt-get install php5-cli

sort -r 명령어를 이용하시면 결과값을 뒤바꾸어 출력해 줍니다 명령어에 결과 값을 |로 이어주어어 하면 끝이죠 Ex) # ls -l | sort -r

쉘스크립트 건드릴일이 꾸준히 생기니 나도좀 스타일을 가지고 싶어서 ^^ 심플버전 http://bash-hackers.org/wiki/doku.php/scripting/style 깊은버전 http://www.opensolaris.org/os/project/shell/shellstyle/ 위에서 심플버전이 올라와 있는 싸이트는 배쉬쉘 싸이트인데 개인적으로 강추입니다 ^^ http://www.bash-hackers.org/wiki/doku.php

먼져 간단히 파일을 열어서 스크립트를 만들어 보자 명령 # vi loop 코드 : 모든 쉘스크립트(bash kon cshell ..)에서 주석은 #이다 #!/bin/bash #이 스크립트를 실행시킬 프로그램 for x in 1 2 3 4 5 # 루프를 한번돌때마다 x에 각 각의 숫자를 대입한다 do # for루프가 실행될것이라는 것을 알린다 echo "now $x" # echo는 화면에 출력해주는 명령어다 고로 now 와 $x라는 변수의 값을 찍어주겟다는 의미 done #루프가 종료됨을 표시 실행 : 실행권한이 있어야 스크립트를 실행시킬수 있으므로 실행권한을 준다 # chmod +x loop # ./loop 결과 now 1 now 2 now 3 now 4 now 5 2번째 예제 명령 # vi loop2 ..

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를 사용해도 부방하다