Try Perl!

Poprzez swoje kanały RSS trafiłem na dwa ciekawe wpisy o Perlu.

Chromatic w wpisie YAGNI Badvocacy and the Perlian Knot porusza kwestie niektórych perlowych problemów. Ogólnie to ciężko się ustosunkować co do niektórych, dla jednych wada, dla innych zaleta. Choć prawdą pozostaje to, że Perl nie jest doskonały (czy cokolwiek jest?) i wiele rzeczy brakuje w 5 lub jest nieco spieprzonych. Na szczęście większość tych braków i niedogodności zniknie z 6-tki.

Autor, jako przykład małego i ładnego, a przede wszystkim rzeczowego i obiektywnego wpisu o Perlu podaje wpis garu, który popełnił notkę Fast, concise and reliable code? Try Perl!. Notatka jest bardzo ciekawa i oddaje wiele kwestii, których mi się nie udało przekazać w takiej dosyć klarownej formie w moim ostatnim wpisie o Perlu - We love perl.

FUD-u związanego z Perlem powstaje niezliczona ilość, a większość tych bredni ciągle zbiera swoje żniwo. Nic dziwnego, że Perl jest źle postrzegany przez niektóre środowiska. Ale co my się mamy martwic, to już ich problem - jak ktoś czegoś nie znam to skąd może wiedzieć, jak to nieznane coś wygląda w rzeczywistości. Najlepiej zignorować takie komentarze…

W notce grau spodobał mi się ten fragment:

Sure, you can write a complete wiki in 5 lines of Perl. But, of course, it doesn’t mean you should. Professional programs, written by professional Perl programmers, tend to be clear and scalable, yet still concise.

Oraz najkrótsze implementacje wiki w kilku skryptowych językach, jakie można znaleźć na stronie Shortest Wiki Contest.

Mityczna sprawa pisania kodu write-only. Przez niektórych uważana tylko za przypadłość Perla. Co jest bzdurą, bo jak wszyscy bardzo dobrze wiemy - w każdym języku da się pisać paskudny kod. Nawet w Pythonie:

#!/usr/bin/python
import re,os,cgi;d,h=os.listdir('.'),'<a href=wy?';p,e,g,s=tuple(map(cgi.parse(
).get,'pegs'));f=lambda s:reduce(lambda s,(r,q):re.sub('(?m)'+r,q,s),(('\r','')
,('([A-Z][a-z]+){2,}',lambda m:('%s'+h+'e=%s>?</a>',h+'g=%s>%s</a>')[m.group(0)
in d]%((m.group(0),)*2)),('^{{$','<ul>'),('^# ','<li>'),('^}}$','</ul>'),('(ht\
tp:[^<>"\s]+)',h[:-3]+r'\1>\1</a>'),('\n\n','<p>')),s);o,g=lambda y:(y in d and
cgi.escape(open(y).read()))or'',(g or p and[open(p[0].strip('./'),'w').write(s[
0])or p[0]]or[0])[0];print'Content-Type:text/html\n\n'+(s and', '.join([f(n)for
n in d if s[0]in o(n)])or'')+(e and'<form action=wy?p=%s method=POST><textarea\
 name=s rows=8 cols=50>%s</textarea><input type=submit></form>'%(e[0],o(e[0]))
or'')+(g and'<h1>%ss=%s>%s</a>,%se=%s>edit</a></h1>'%(h,g,g,h,g)+f(o(g))or'')

To może teraz czas na pythonowy golf? ;)

Przy okazji w ramach ciekawostek - Just another Perl hacker. Oczywiście nikomu nie polecamy pisać (produkcyjnego) kodu w takim stylu, no chyba że na potrzeby perl golfa ;p

Perl jest fajnym językiem, nie przekonasz się o tym, jeśli po niego nie sięgniesz i go lepiej nie poznasz!

Perl is a great language. It has many great features. Its ecosystem is impressive, and I believe that many of its features compare very, very favorably to other languages and communities.

Try Perl!