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 = <fileHandle> ) { print $sLine; } close( fileHandle );
Gtk2-Perl로 만들어 본 unalz 프론트엔드 입니다. acidrip 이라고.. mencoder(dvdrip 을 위한 프로그램) 프론트엔드가 있는데 그게 Gtk2-Perl로 만든 것이라는 걸 알고.. 한 번 만들어 보고있습니다. 원래 간단하게만 만드려고 했는데 짜다보니 점점 스파게티가 되는군요;;
길었던 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_reques.html
요지는 자신은 구글에 채용되어서 Mondrian이라는 프로젝트를 하느라고 바빠서 당초 구글에 들어가면서
cgi 방식으로 Audrey Tang이 Haskell로 만든 Perl 6 구현인 Pugs를 통해서 Perl 6 를 체험해볼 수 있는 싸이트가 나왔습니다. (Ruby도 이런게 있는걸 본적이 있는데...)
Run Perl 6 now ! http://run.pugscode.org/ Perl6관련 정보는
