1 / 60

☣ ppencode for Perl lover ♨

☣ ppencode for Perl lover ♨. 竹迫 良範. TAKESAKO Yoshinori. r. Quiz. Q1. What does it mean?. 使徒. ← the Cabal comes to Japan. 来日. Larry と. Damian. ｷﾀ━━ ( ﾟ∀ﾟ )━━ ｯ !!. Welcome to Japan. はい、ここで拍手 ! m(_ _)m Yet Another Perl Conference. Where is the Next Conference?.

lavonn
Download Presentation

☣ ppencode for Perl lover ♨

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. ☣ ppencode for Perl lover ♨ 竹迫 良範 TAKESAKO Yoshinori

  2. r Quiz

  3. Q1. What does it mean? 使徒 ← the Cabal comes to Japan 来日

  4. Larryと Damian ｷﾀ━━(ﾟ∀ﾟ)━━ｯ!!

  5. Welcome to Japan はい、ここで拍手! m(_ _)m Yet Another Perl Conference

  6. Where is the Next Conference? 次のカンファレンスはどこでやる？

  7. Where is this place? “waterfall” 滝

  8. Come on in, the water's fine. • Waterfalls: • Not just for tourists. • ウォーターフォールは： • 観光客だけのものじゃなくって • for most programmers! (except hackers) • 職業プログラマにも必要ですから！ 落ちるな危険

  9. Waterfall Model 開発 は 滝底に落ちない ように気をつける…

  10. デスマーチになるかも

  11. Escape a water grave デスマーチから抜け出そう！

  12. use Ruby;

  13. Talks#1: Ruby On Snails • 新フレームワークで開発を遅くしよう • Slow down development with this new framework • by Dave Thomas and Mike Clark

  14. Waterfall 2006 Conference • Location • Niagara Falls, NY • ナイアガラの滝（ニューヨーク州）で開催 • Date • April 1st, 2006 • 開催日は４月１日 the day after tomorrow ! http://www.waterfall2006.com/

  15. Talks#2: Pair Managing • Is not Pair Programming • ペアプロじゃなくって、ペア管理 • １人のプログラマにマネージャが２人 • Two Managers per Programmer • by Jim Highsmith ☻ ☻ ☹

  16. You don’t need to #3: Unfactoring from Patterns • 読みにくいコードで職を守る • Job Security through Unreadability • by Joshua Kerievsky

  17. Unreadability? Perl5?

  18. Unreadable Perl5 code 読みにくいPerlプログラム

  19. orz

  20. Sorry, Damian… and the other healthy nonsmokers

  21. Prescription（処方箋）

  22. a Programming Language, too プログラミング言語も同様に

  23. Unreadable Perl5→ 読みにくいプログラムを量産し続けるPerl5

  24. Sigils problem on Perl5 scalar array hash ------- ------ ------- $s @a %h $$s $a[0] $h{'?'} $s->foo ☹☹

  25. Sigils rule on Perl6 scalar array hash ------- ------ ------- $s @a %h $$s @a[0] %h<?> $s.foo @a.foo %h.foo ☺

  26. Readable Perl6! 読みやすいプログラムを書けるPerl6になる！

  27. O’REILLY

  28. NOT’REALLY

  29. looks like…

  30. Unreadable JAPH! 解読困難なJAPHに似ているかも？

  31. But, it’s Okay… でも、そんなことはどうでもいいんです

  32. because… なぜなら・・・

  33. Job Security through Unreadability 読みにくいコードで職を守れるから（笑）

  34. Good job! 　　　　　　　　　　　　　 　 ∩( ⌒)　 　 　 ∩_ _グッジョブ !!/,. ノ　　 　　 i.,,E）.//"/ /"_n グッジョブ!!.//_、_　 　 ／ ノ'　　（　l_、 _ // ,_ノ` ）／ ／ _、 _　　　　グッジョブ!!　　 ＼ ＼ （　<_,`　）（　　　　　　　／（　,_ノ` ） 　 　　　n　　　　 ヽ___￣￣　ノ　ヽ　　　　 |　￣　　 　 ＼　 　 （ E）/ /　　　＼　　　ヽフ　　　 / ヽ ヽ_／／

  35. JAPH • print ”just another perl hacker”; ● 記録されている最初のJAPH @a=split(/(\d)/, "4Hacker,2another3Perl1Just"); shift(@a);%a=@a; print "@a{1..4}"; Randal Schwartz 1 Feb 1990 22:28:58 GMT 税別￥1,500- 水野 貴明 (著)

  36. hello world package Earth;sub Greet{ %_=('Y','~');$_='$;=!(Middle Earth.age~~~<Eart~~~~~~~~~~~~~h .age)?!(defined$ti~~~~~~~~~~~mez~~~On e[2])?!(push@time~~~~~~~~~~~~~~~~Zone,loc ~altime())?rotation?~~~~~~~~~~~~~q~~?The Worl ~~d?:q:[\w]::q=[\~~~~~~~~~~~~~~~~~d~a-f]=:q?..~~ ~~~?:q:.:;"42b3d3~~~~~~~~~~~~~~~~~~~~~728656c6c6f6 ~~~~~0277f627c64672~~~~~~~~~~~~~~~~~~~~~b3072796e647 ~~~~~~~42b3b3rg7d"=Ym~~~~~~~~~~~~~~~~~~~\$;~~*\;p~~~~u ~~~~~~~~~sh@_,$&;bless~~~~~~~~~~~~~~~~~~~~~~~~~$c~~~~~~~ ~~~~~~~~~o~ntine~~~~~nt~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~s=\~~~~~~~$~~~~~~~~~~~~~~~~~~~~~~~pangaea~~~~ ~~~~~~~~~~~~~~~;{l~~~~~~~~~~~~~~~~~~~~~~~~~~~~ocal@_;local$; ~~~~~~~~~~~~~~~~~="o~~~~~~~~~~~~~~~~~~~~~~~~~cean";$^A=(defi ~~~~~~~~~~~~~~~~~~~n~~~~~~~~~~~~~~~~~~~~~~~~~ed$continents)? ~~~~~~~~~~~~~~~~~~~(vec(~~~~~~~~~~~~~~~~~~~~~~$;, YYsplit(\' ~~~~~~~~~~~~~~~~~\',${\$;}~~~~~~~~~~~~~~~~~~~~~~)%3,YYsplit( ~~~~~~~~~~~~~~~~q??,$;)**2-~~~~~~~~~~~~~~~~~~~~~~(($;=Ytr/oa ~~~~~~~~~~~~~~~~eiu//)**2))=~~~~~~~~~~~~~~~~~~~~~~=28160)?q: ~~~~~~~~~~~~~~~~~.::q?!?:\'?~~~~~~~~~~~~~~~~~~~~~~\';}$^A=Ys ~~~~~~~~~~~~~~~~:\Q.\E:pack(~~~~~~~~~~~~~~~~~~~~~~\'h*\',j ~~~~~~~~~~~~~~~~~oin(q(),~~~~~~~~~~~~~~~~~~~~~~~grep{$_= ~~~~~~~~~~~~~~~~~~Ym,$,,}~~~~~~~~~~~~~~~~~~~~~~~split(" ~~~~~~~~~~~~~~~~~",@_~~~~~~~~~~~~~~~~~~~~~~~~~~[0])) ~~~~~~~~~~~~~~~~):e~~~~~~~~~~~~~~~~~~~~~~~~~~~gexe ~~~~~~~~~~~~~~~;$d~~~~~~~~~~~~~~~~~~~~~~~~~~~="s ~~~~~~~~~~~~~~ort~~~~~~~~~~~~~~~~~~~~~~~~~~<= ~~~~~~~~~~~~>,~~~~~~~~~~~~~~~~~~~~~~~~~~YY ~~~~~~~~~~~@_~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~"~~~~~~~~~~~~~~~~~~~';; s,(~|\r|\n|\s),,g;s.Y.\x7e.g; eval};Greet;'the world'; http://www.perlmonks.org/index.pl?node_id=329174

  37. Perl suck Perlってサイテー（笑）

  38. use Ruby;

  39. Brainwashed by Ruby • We have been brainwashed by Takahasi-san 我々は高橋さん（日本Rubyの会会長）に洗脳されている

  40. Perl厨にRubyを使わせる I have yet another idea that every Perl mongers want to use Ruby… Perl厨にRubyを使わせる もっと良い方法があります

  41. The Best solution（最適解） Steal the buttons of "$" and ";" from Perl mongers' keyboard. キーボードから「$」と「;」を盗めばいいんだ

  42. most Perl mongers will have no alternative but to use Ruby そうすればPerl厨は仕方なくRubyを使う

  43. It seems Okay… 一見良さそうに見える…

  44. but けど

  45. Yet another Perl lover 本当にPerlを愛する人はこんなプログラムを書き始める： #!/usr/bin/perl -w q chr uc and print chr ord uc qw q y q and print chr ord uc q map m and print chr oct ord q qx eq and print chr ord uc q oct do and print chr oct ord uc q chr lc and print chr oct ord uc q chr uc and print chr ord uc q map m and print chr ord qw q s q and print chr ord q tie gt and print chr ord q each le → print ”YAPC::Asia”;

  46. 予約語とスペースだけでプログラミング Programming Perl with only reserved keywords and white spaces! 記号を一切使わずに！ without symbols!

  47. Reserved keywords（予約語） ■ Operators… (38) lt gt le ge eq ne cmp not and or xor if else elsif while for foreach continue goto last local map my next redo require return use tr y s m q qq qr qw qx x ■ Built-in functions… (182) 数字があるため除外 abs accept alarm atan2 bind binmode bless caller chdir chmod chomp chop chown chr chroot close closedir connect cos crypt dbmclose dbmopen defined delete die do dump each eof eval exec exists exit exp fcntl fileno flock fork formline getc getlogin getpeername getpgrp getppid getpriority getpwnam getgrnam gethostbyname getnetbyname getprotobyname getpwuid getgrgid getservbyname gethostbyaddr getnetbyaddr getprotobynumber getservbyport getpwent getgrent gethostent getnetent getprotoent getservent setpwent setgrent sethostent setnetent setprotoent setservent endpwent endgrent endhostent endnetent endprotoent endservent getsockname getsockopt glob gmtime grep hex import index int ioctl join keys kill lc lcfirst length link listen localtime log lstat mkdir msgctl msgget msgrcv msgsnd no oct open opendir ord pack pipe pop pos print printf push quotemeta rand read readdir readlink recv ref rename reset reverse rewinddir rindex rmdir scalar seek seekdir select semctl semget semop send setpgrp setpriority setsockopt shift shmctl shmget shmread shmwrite shutdown sin sleep socket socketpair sort splice split sprintf sqrt srand stat study substr symlink syscall sysread system syswrite tell telldir tie time times truncate uc ucfirst umask undef unlink unpack untie unshift utime values vec wait waitpid wantarray warn write

More Related