Perltutorial #9

[Torbjørn]

En alternativ "Hello World":

 

#!/usr/bin/perl
eval eval '"'.

                                     ('['^"\+").(
          ('[')^                   ')').('`'|')').
       ('`'|'.').                ('['^'/').('{'^'['
).'\\'.'"'  .('`'^              '(').('`'|'%').('`'|
',').('`'|',').('`'|            '/').('{'^'[').(('{')^
',').('`'|'/').("\["^          ')').('`'|',').('`'|'$'
 ).'!'.'\\'.('\\').(        '`'|'.').'\\'.'"'.';'.('!'
      ^'+')."\"";$:=      '.'^'~';$~='@'|'(';$^=')'^'['
   ;$/='`'|'.';$,     ='('^'}';$\='`'|'!';$:=')'^"\}";
    $~='*'|"\`";$^=   '+'^'_';$/='&'|'@';$,='['&('~');$\=
   ','^'|';$:='.'^   '~';$~='@'|'(';$^=')'^'[';$/='`'|"\.";
   $,='('^"\}";$\=  '`'|'!';$:=')'^'}';$~='*'|'`';$^='+'^'_'
 ;$/='&'|'@';$,  ='['&'~';$\=','^'|';$:='.'^'~';$~='@'|'('
 ;$^=')'^'[';$/  ='`'|'.';$,='('^'}';$\='`'|'!';$:=')'^'}';
   $~='*'|'`';$^='+'^'_';$/='&'|'@';$,='['&'~';$\=','^'|';$:=
   '.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$,='('^'}';$\='`'|
    '!';$:=')'^'}';$~='*'|'`';$^='+'^'_';$/='&'|'@';$,='['&'~'
   ;$\=','^'|';$:='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$,=
     '('^'}';$\='`'|'!';$:=')'^'}';$~='*'|'`';$^='+'^'_';$/='&'|
      '@';$,='['&'~';$\=','^'|';$:='.'^'~';$~='@'|'(';$^=')'^'['
     ;$/='`'|'.';$,='('^'}';$\='`'|'!';$:=')'^'}';$~="\*"| '`'
       ;$^='+'^'_';$/='&'|'@';$,='['&'~';$\=','^'|';$:='.'  ^((
         '~'));$~='@'|'(';$^=')'^'[';$/='`'|'.';$, ='('^'}';$\
           ='`'|'!';$:=')'^'}';$~='*'|'`';$^='+'^  '_';$/=   '&'
            |'@'; $,='['&'~';$\=','^'|';$:="\."^   '~';$~=   '@'
                  |'(';$^=')'^'[';$/='`'|'.';$,    =('(')^   '}'
                 ;$\='`'|    '!';$:=')' ^"\}";     $~='*'   |+
                  '`';$^=     '+'^'_';   $/='&'     |"\@";  $,
                  =('[')&     "\~";$\=   "\,"^       "\|";  (
                  ($:))=      '.'^'~';   ($~)         ='@'
                  |"\(";     $^=(')')^   '[';         ($/)
                   ='`'|     "\.";$,=    '('^         '}';
                   ($\)=     '`'|'!'    ;$:=         ')'^
                   '}';     $~='*'       |'`'        ;$^=
                   '+'^     '_'        ;$/=         '&'|
                   '@';      $,=         '['          &((
                   '~'        ));       $\=           ','
                   ^((         '|'     ));            $:=
                   '.'          ^((   '~'              ))
                 ;(             ($~))=               ((
                   ((              '@'))               ))
                   |+             "\(";$^=             ((
                  ')'            ))^+ "\[";            $/
                 =((           '`'))|  '.';           $,=
                '('^         "\}";$\=   '`'          |'!'
             ;($:)=                                (')')^
            "\}";$~=                               '*'|'`'

 

prøv det, det kjører helt fint

Endret 6. desember 2003 av Torbjørn

[Torbjørn]

Morsespråk har streker og prikker, en forløper for 1'er og 0'er kanskje?

 

use Acme::Morse;
.--.-..--..---.-.--..--.-..--..---.-.--.
.-.-........---..-..---.-..-.--..---.--.
..-.---......-...-...-.....-..-.-.-..--.
..--.--...--.--.----.--......-..---.-.-.
----.--..-..---...--.--...-..--...---.-.
.---.--..-...-..--.---...-.-....

 

prøv å kjøre den

 

krever Acme::Morse modulen, installeres med:

perl -MCPAN -e 'install Acme::Morse'

Endret 6. desember 2003 av Torbjørn

[Torbjørn]

Nigeria?

 

#!/usr/bin/perl
use Acme::Lingua::NIGERIAN;

DEAR SIR,

I AM THE SON OF LATE PRESIDENT ONE-OR-THE-OTHER OF NIGERIA.

TRANSFER_DISCREETLY SWISS_BANK_ACCOUNT "H!!!ELLO N!!!IGERIA\N";

TRANSFER_DISCREETLY SWISS_BANK_ACCOUNT US$17 MILLION, "\N";

TRANSFER_DISCREETLY SWISS_BANK_ACCOUNT US$17 MILLION + 25, "\N";

 

jepp - dette er et gyldig perl program

[moesen]

For og kjøre den artige Hello World versjonen..Må jeg ha noe spesielt eller for å kjøre det?

Prøve i MINGW32 og fikk dette:

$ program.pl

./program.pl: eval: line 1: unexpected EOF while looking for matching `"'

./program.pl: eval: line 2: syntax error: unexpected end of file

./program.pl: line 6: syntax error near unexpected token `('['^"\+").('

./program.pl: line 6: `                    ('['^"\+").('

Stilte om den første setningen da, det må jeg fordi jeg ikke har /usr...

Jeg skrev satte den i /bin/perl i stedet...

[Torbjørn]

det fungerer fint.

 

du trenger ikke ta bort "#!/usr/bin/perl", den fungerer ikke i windows likevel

 

prøv "perl program.pl" - ta med perl først. og copy paste absolutt alt av kamel-koden.

 

den fungerer både i windows og linux her.

[moesen]

Gjorde som du sa...

$ perl program.pl

Hello World!

Rart at alt det man skriver i programmet blir bare litt text.. Tøft da

[DrDoogie]

Teit spørsmål, men alle whitespace i kamelbildet... det er vanlig space, ikke sant?

 

Er litt usikker på om tab'ene blir trunkert eller hva dem gjør, når jeg posta TUT. 0.

[Torbjørn]

vanlig space ja, den ble litt smalere enn med courier i en terminal, men holder fortsatt proporsjonene til viss grad.

[erkos]

Har du noen forklaring på hvorfor kamelen printer ut Hello world?

Hva slags lureri ligger gjemt bak uttrykket eval eval '"'. ?

 

[Torbjørn]

Hvis du fjerner alle mellomrom i kamelen, vil den fungere likevel. De er bare der til pynt. Resten av koden regner jeg med er mye fyllkode som ikke gjør noe, men som bare tar opp plass.

[erkos]

Hehe, så det når jeg fikk sett på scriptet i en editor med fargekoder.

 

faktisk så er den første biten nok til å printe ut "Hello world!".Resten er bare tull.

 

#!/usr/bin/perl
eval eval '"'.('['^"\+").(('[')^')').('`'|')').('`'|'.').('['^'/').('{'^'[').'\\'.'"'.('`'^'(').('`'|'%').
('`'|',').('`'|',').('`'|'/').('{'^'[').(('{')^',').('`'|'/').("\["^')').('`'|',').('`'|'$').'!'.'\\'.
('\\').('`'|'.').'\\'.'"'.';'.('!'^'+')."\"";

 

Nå har ikke jeg satt meg så mye inn i perl enda, så jeg forstår ikke helt hva som skjer i funksjonen eval().

*lese-manualen*