Petit quizz - Page 1

Saurez-vous trouver quels sont les deux langages pour lesquels le code suivant est valide ? Plus dur : saurez vous expliquer ce qu'il fait ? ^^

/;{}def/#{def}def/$_={/Times-Bold exch selectfont}#/_{rmoveto}#/"{dup}#/*/!/$
;/q{exch}#/x ; {/J q #}#/.{/T q #}#{stringwidth}#{}#{}# 14 string dup dup dup
260 40 moveto 90 rotate ; %/}};$0='"\e[7m \e[0m"';@ARGV=split//,reverse
q(ThePerl). q(Journal) x 220 ; q ; 0 T putinterval exch 7 J putinterval ;
 ; $_= q /m$ pop T($*!$"=!$ " )pop " * true% ? $ " $!" "  !!  !! % !" !"    !
! charpath {!"""}pop $ pop{""!}pop ! neg{!#}pop 220 ! neg _{!!}pop J false %T
charpath  clip " pop 0 " moveto 6{!!}pop $_= 105{!!}pop {$ ! $ " !  #! ##}
pop{dup dup $ ! " pop pop q{"}pop 22{dup show}repeat {"}pop q 22 mul{$ "} pop
neg{!#! $ "}pop ! 8 .65 mul{$ # # $}pop ! neg{"}pop  _ pop{"}pop } repeat pop
" {  $ " ! ! ! $ " ! !" "#"  #"!"""""! #" " # "m/;@ARGV=(@ARGV[-14..-1])x50;q}
 0 "%};s/m[ou]|[-\dA-ln-z.\n_{}]|\$_=//gx;s/(.)(?{$*=''})/('$*.='.(++$#
%2?'':"$0;").'pop;')x(ord($1)-31).'$*'/gee;s/((.(\e\[.m)*|.){77})/$1\n/g;print
; sub showpage {}

bien que je ne connaisse pas trop certais bouts de code me font penser a du perl. De la a dire ce que ca peux bien pouvoir faire

oué, ça ressemble à du Perl, sur certains point

et après vérification, c'en est ^^
quand à ce que ça fait : http://squalenet.net/extern/yn/the-perl-journal.png
(je suppose que ça fait la même chose dans l'autre langage, avec l'autre nom de langage ?)

ah ff a du merder mon copy paste... ça devrait mieux marcher ici : http://mirari.info/get.php?c=X4Y8

pour l'autre langage c'est quand même pas si dur, y a plein de mots clés ^^

c'est du postscript non ? (c'est un peu ultrafacile à reconnaître d'ailleurs effectivement ^^)

yep

hum le résultat de "gsview script.pl" est quand même nettement plus joli que celui de "perl script.pl" ^^

Sally:

marrant je connais pas le perle (mais je connais le PS) etonant que le perle accepte tout ça ^^

le langage s'appelle "Perl" ; sans 'e' à la fin, et avec une majuscule...
l'interpréteur (on va dire que c'est un interpréteur ^^ ) s'appelle "perl" ; toujours sans 'e' à la fin, mais sans majuscule, cette fois-ci...

pas "perle" ^^

et ça accepte vraiment de tout
autant tu peux faire du lisible (ça donne des sources parfois longs ^^ ) ; autant tu peux faire des trucs ahurissant

Oui, oups
faute de frappe ^^