2007-04-02-ean
Tuer le temps libre
Que faire pour tuer le temps libre? Ben faire du 1-line en Perl évidemment!
perl -e '$v="tfe";$v=~s/(?{$,++})(.)/for($${{1=>[-4,-15],2=>[12,6],3=>[-91,]}}{$,}){for $(@{$_}){print chr(ord($1)+$)}}/ge;'
Ongi etorri tfe-ren webgunera...
2007-04-02-ean
Que faire pour tuer le temps libre? Ben faire du 1-line en Perl évidemment!
perl -e '$v="tfe";$v=~s/(?{$,++})(.)/for($${{1=>[-4,-15],2=>[12,6],3=>[-91,]}}{$,}){for $(@{$_}){print chr(ord($1)+$)}}/ge;'
Tfe