[code]
use File::Find;
my $dir = './source';
find(\&print_if_file, $dir);

sub print_if_file {
if( -f $_ ) {
$targetFileName = $File::Find::name;
$targetFileName =~ s/\//\\/g;
print "STR = $targetFileName\n";
open( fileHandle, $targetFileName ) || die "cannot open $targetFileName \n";
while( $sLine = )
{
print $sLine;
}
close( fileHandle );

Gtk2-Perl로 만들어 본 unalz 프론트엔드 입니다.
acidrip 이라고.. mencoder(dvdrip 을 위한 프로그램) 프론트엔드가 있는데
그게 Gtk2-Perl로 만든 것이라는 걸 알고.. 한 번 만들어 보고있습니다.
원래 간단하게만 만드려고 했는데 짜다보니 점점 스파게티가 되는군요;;

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-동일조건변경허락 2.0 대한민국 라이센스에 따라 이용하실 수 있습니다.

길었던 3.0rc를 거쳐 며칠 전인 5월 8일 버그질라 3.0 안정버전이 릴리즈 되었습니다. 버그질라는 RT, Trac 등과 더불어 이슈 트래킹 시스템의 선두 주자로 널리 사용하고 있는 웹 어플리케이션 입니다.

예를 들어서 서로 다른 배열이 다음과 같을때,

@arr1 = ( 1, 2, 3, 3, 4, 5 );
@arr2 = ( 1, 2, 3, 4, 5, 5 );
@arr3 = ( 1, 2, 3, 4, 5, 6, 7, 8, 9, 9, 10, 11 );

여기서 두번 겹치는 수인 3, 5, 9만을 각각 따로 빼내서 다른 변수에 넣으려 하는데 방법이 있을까요?

:)

URL: http://www.youtube.com/watch?v=QkD90ZV07zo

KLDPWiki:PerlCommandLineCookBook 의 여러 줄의 데이터를 grep하기 ( http://wiki.kldp.org/wiki.php/PerlCommandLineCookBook#toc )에서 두번째 예가 이해가 안 되네요. -ne 옵션은 뭔지 아는데 match(맞죠?)의 리스트(/START_FLAG/ ...

Python을 배워야 하는 이유를 보고 왜 perl을 배워야 할까 고민을 해봤습니다.
Perl의 언어의 독특한 장점이라거나 장래에 대해서 심각하게 얘기하지는 못하겠지만
그러니까 왜 펄을 배워야 하는지는 어려운 문제지만 펄을 배워서 좋은 이유는 쉽게 설명할 수 있습니다.

KDLP에서 글들을 읽다가 보면 Perl에서는 객체지향하는데 맞지않다,왠지 어려울것이다등
FUD(Fear, uncertainty and doubt)가 퍼져 있음을 느낍니다.
http://kldp.org/node/77727#comment-366422

그래서 가장 간단한 객체하나를 예를들어 Perl,Python을 비교해보고자 합니다.

Python의 창시자 Guido van Rossum이 2007년중 alpha릴리즈라도 낼 계획이었던
Python 3000의 일정에 차질이 생길것 같다고 메일링리스트에서 도움을 청하고
나섰습니다.
메일원문:
http://article.gmane.org/gmane.comp.python.python-3000.devel/4881
관련글:
http://www.oreillynet.com/onlamp/blog/2006/12/wisdom_from_guido_and_a_re...

요지는 자신은 구글에 채용되어서 Mondrian이라는 프로젝트를 하느라고 바빠서 당초 구글에 들어가면서

cgi 방식으로 Audrey Tang이 Haskell로 만든 Perl 6 구현인
Pugs를 통해서 Perl 6 를 체험해볼 수 있는 싸이트가 나왔습니다.
(Ruby도 이런게 있는걸 본적이 있는데...)

Run Perl 6 now !


http://run.pugscode.org/
Perl6관련 정보는
»

• 댓글 4개
• 더 보기
• 1318번 읽힘