02/04/2007
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;'
02/04/2007
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;'