Hacker Who

역시 아직은 Perl 이 짱이에염~!

Dec 09

골빈해커프로그래밍 linux, perl, unix, 프로그래밍 언어 13 Comments

perl 구루이신 aero 님의 Wanna Kill Perl? 이라는 글을 보았습니다.

내용은 간단한데, 최근에 TIOBE라는 사이트에서도 Perl 이 점점 떨어지면서 밀리고 있고, 다양한 프로그래밍 언어 빠들에게 다구리로 까이고 있으니, 그럼 이제 펄은 죽는거냐? ㅠㅠ … 라는 얘기들에 일침을 가하시는 글이었습니다. ㅎㅎ (나름 반전? ㅎㅎ)

특히 그 중 요즘 여러 리눅스들의 배포본에 깔린 여러 스크립트 언어들의 모듈/파일들을 카운트해보니 어떤 언어가 많다, 뭐가 최고다라는 말이 있던데, 그 중 가장 공정해보이는 아래와 같은 코드가 있어서 실험해보셨다고 합니다.

Perl [Show Styled Code]:

#!/usr/bin/perl
use strict;

my %languages;
for( grep !m{^/home}, split /:/, $ENV{PATH} ) {
  for( <$_/*> ) {
    $_ = do {  if open F, '<', $_ };
    unless (/^#!/) {
        $languages{bin}++;
        next;
    }
    $languages{$1}++ if /\b(perl|php|python|ruby|sh|bash)\d*\b/;
  }
}
printf "%-20.20s  %6d\n", $_, $languages{$_} for sort keys %languages;

Perl [Show Plain Code]:

1. #!/usr/bin/perl
2. use strict;
3.  
4. my %languages;
5. for( grep !m{^/home}, split /:/, $ENV{PATH} ) {
6.   for( <$_/*> ) {
7.     $_ = do { <F> if open F, '<', $_ };
8.     unless (/^#!/) {
9.         $languages{bin}++;
10.         next;
11.     }
12.     $languages{$1}++ if /\b(perl|php|python|ruby|sh|bash)\d*\b/;
13.   }
14. }
15. printf "%-20.20s  %6d\n", $_, $languages{$_} for sort keys %languages;

이 스크립트의 내용은 쉘에서 바로 실행할 수 있는 실행파일을 찾아서 첫 줄이 #!로 시작하면 그 스크립트가 어떤 것인지 카운트해서 알려주는 것 입니다.

아.. 근데 쓰다보니 거의 본래 글을 베끼고 있는데요 이거-_-;;; 암튼;;;

리눅스들의 결과는 원래 글에서 보시고 ㅎㅎㅎ

이 글을 쓰는 본래 목적은 사실, 궁금해서 제 Mac OS X Leopard 에서 돌려봤다는 것이죠. ^,.^;; 그랬더니 결과가 다음과 같이 나왔습니다.

Perl [Show Styled Code]:

bash       10
bin      1175
perl      105
python      6
ruby       30
sh        158

Perl [Show Plain Code]:

1. bash       10
2. bin      1175
3. perl      105
4. python      6
5. ruby       30
6. sh        158

이에 대해 areo 님 께서는 No Perl, No Linux 라고 하셨는데, 결과를 보면 No Perl, No Linux 뿐이 아니라 No Perl, No Unix 라고 해도 과언이 아닐 것 같네요. :-D

역시 아직은 Perl이 짱이에연~ ㅎㅎㅎ

※ 물론 시스템 스크립트가 아닌 다양한 곳에서 쓰이는 것 까지 다 합치고 등등등 하는 여러가지 변수들이 있겠죠. 이건 그냥 Just for fun 으로 즐겨주세요. ㅎㅎㅎ 저는 python 하고 java 만 싫어해요 ㅎㅎㅎ ^^

저 없이 유닉스라는 사막을 탐험하긴 힘들껄요?

드래곤 라자 속편 “그림자 자국” 출간!! 미국 오타쿠 이야기, 빅뱅이론

13 Comments (+add yours?)

1. fancyydk
   Dec 09, 2008 @ 16:13:25

   많은 언어들이 새로 개발되고 발전되도 역시 연륜을 무시할순 없네요. 아직까진 쉘 스크립트 대용은 펄이 짱인듯 ㅎㅎ

2. 지민아빠
   Dec 09, 2008 @ 16:47:15

   앗 저는 자바 좋아하는데 말이죠. ^^;

3. 쟌나비
   Dec 09, 2008 @ 17:58:44

   전 마냥 자바가 좋다고 생각했는데 그건 단지 이클립스 때문인거 같네요. 이클립스가 없다면… 프로그래밍을 접었을 수도…
   자바만큼 이클립스가 완성도있게 지원하는 랭귀쥐가 없어서 아쉽네요.

4. StudioEgo
   Dec 09, 2008 @ 19:13:41

   저도 Perl을 좋아해요. 쉘 스크립트대신에 Perl만 쓴다죠.
   Linux에서 간단한 작업할때에는 Perl로 금방금방 짜서 돌리죠.
   저는 자바를 좋아해서 요즘은 Ecliipse만 만진다만ㅎㅎ

5. JEEN
   Dec 09, 2008 @ 19:33:40

   저는 Perl 없으면 밥줄이 끊깁니다. ㅜ_ㅜ

6. 후미후
   Dec 09, 2008 @ 23:01:37

   저는 cpan 땜에 항상즐겁습니다만..^^

7. 박군
   Dec 10, 2008 @ 14:23:57

   perl과 cpan으로 인해 그 맛을 느껴본 귀차니스트들은 딴 걸 못 쓴다는.. ㅎㅎ
   꽤나 실용적인 언어인 것 같습니다. 물론 저는 별로 쓸일이 없어서 잘 늘질 않는다는.. ㅡ,.ㅡ

8. 골빈해커
   Dec 10, 2008 @ 14:29:00

   박군 / 실용적이면서도 학문적인 언어에요. 깊이가 있어서 lisp 들처럼 연구해보기에도 재미난 언어랍니다. 물론 저도 단순 스크립트 정도로 밖에는 사용을 못하는게 아쉬워요 ^^;;;

9. 좋은진호
   Dec 10, 2008 @ 19:43:16

   perl을 사용하다보면, 보물창고같은 느낌이 들어요. ‘이런 것 있나~~’ 찾아보면 CPAN에 다 있으니.. ^^

10. 최종욱
    Dec 15, 2008 @ 06:32:13

    쿨럭. 저는 Java와 python을 씁니다. ㅋㅋ

11. jardin
    Mar 30, 2009 @ 15:34:46

    재밌는 내용 잘봤습니다. 역시 perl ㅋㅋ

12. jason
    Apr 23, 2009 @ 16:01:52

    쌩뚱 맞는 질문 하나 드려요 ^^;
    만보님의 블로그를 보던중 골빈해커님께서 남기신
    %s/private\ string\ \(\w\+\)/system\.out\.println\(\”\1\ \[\"\+\1\+\"\]\”\)/g
    을 보고 sed로 응용해보려 했는데 잘안되네요
    sed s/private\ string\ \(\w\+\)/system\.out\.println\(\”\1\ \[\"\+\1\+\"\]\”\)/g a.txt
    \1이 word를 받아 오지 않는 거 같은데요. 안되는게 맞나요? 있다면 방법좀 알려주세요