Come scrivere un Hello world in Perl

C'è una buona tradizione che lo studio di un nuovo linguaggio di programmazione inizia con la scrittura di un semplice programma che visualizza il testo Hello, world!.

Nel linguaggio di programmazione Perl ci sono diverse opzioni, come si può risolvere questo problema.

Salvare il codice del programma in un file

Più opzione standard per scrivere Hello, world! Perl — è quello di creare il file hello.pl con questo contenuto:

▶ Run
#!/usr/bin/perl

print 'Hello, world!';

E realizzare in console:

$ perl hello.pl
Hello, world!

(Se non avete un computer con Perl, allora è possibile eseguire questo codice nel browser — https://PerlBanjo.com/5a5b1759f0 ).

Utilizzare однострочник

Un altro è sufficiente un modo popolare per derivare Hello, world! — utilizzare однострочник. Non creare il file con il testo del programma, e l'intero programma di comporre nel prompt dei comandi:

$ perl -e 'print "Hello, world!";'
Hello, world!

(Ed ecco il link per questo il codice per l'esecuzione in un browser https://PerlBanjo.com/62a99008d7 ).

Metodi non standard

Creare un file con il codice print 'Hello, world!';, o utilizzare un semplice однострочник è come c'è bisogno di scrivere Hello, world!il programma.

Ma oltre a questi due standard modi ci sono ancora un sacco di opzioni come con l'aiuto di Perl è possibile visualizzare il testo Hello, world!. Di seguito alcuni esempi. Tutti questi programmi consentono di visualizzare il testo Hello, world! utilizzando una varietà di trucchi. Nel mondo del linguaggio di programmazione Perl è l'arte di portare sullo schermo una riga di testo il più possibile modo non standard (wikipedia ). Qui sono elencati alcuni di questi programmi.

▶ Run
#!/usr/bin/perl

$_='loH,oe! lrdlwdo';$_.=$1,print$2while s/(..)(.)//;

I seguenti due programmi creati utilizzando Perl libreria Acme::EyeDrops .

Un programma che visualizza il testo Hello, world! utilizzando solo i caratteri di punteggiatura e il codice use re 'eval';:

▶ Run
use re 'eval';
''=~('('.'?'.'{'.('`'|'%').('['^'-').('`'|'!').('`'|',').'"'
.'#'.'!'.'/'.('['^'.').('['^'(').('['^')').'/'.('`'|('"')).(
'`'|')').('`'|'.').'/'.('['^'+').('`'|'%').('['^')').(('`')|
',').('!'^'+').('!'^'+').('['^'+').('['^')').('`'|')').('`'|
'.').('['^'/').('{'^'[')."'".('`'^'(').('`'|'%').('`'|',').(
'`'|',').('`'|'/').','.('{'^'[').('['^',').('`'|'/').(('[')^
')').('`'|',').('`'|'$').'!'."'".';'.('!'^'+').'"'.'}'.')');

Incredibile, ma questo è псевдографика con l'immagine di un cammello è anche operante Perl programma che consente di visualizzare sullo schermo Hello, world!:

▶ Run
use re 'eval';
                                      ''=~('('.'?'
           .'{'.(                   '`'|'%').("\["^
        '-').('`'|                '!').('`'|',').'"'
 .'#'."\!".  "\/".(              '['^'.').('['^'(').(
'['^')').'/'.(('`')|            '"').('`'|')').(('`')|
'.').'/'.('['^"\+").(          '`'|'%').('['^')').('`'
  |',').('!'^('+')).(        '!'^'+').('['^'+').(('[')^
       ')').('`'|')')      .('`'|'.').('['^'/').('{'^'['
      )."'".('`'^'('     ).('`'|'%').('`'|',').('`'|',').
     ('`'|'/').','.(   '{'^'[').('['^',').('`'|'/').("\["^
    ')').('`'|',').   ('`'|'$').'!'."'".';'.('!'^'+').('"').
    '}'.')');$:='.'  ^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$,
    ='('^('}');$\=  '`'|'!';$:=')'^'}';$~='*'|'`';$^='+'^'_';
    $/='&'|'@';$,=  '['&'~';$\=','^'|';$:='.'^'~';$~='@'|"\(";
    $^=')'^'[';$/='`'|'.';$,='('^'}';$\='`'|'!';$:=')'^'}';$~=
    '*'|'`';$^='+'^'_';$/='&'|'@';$,='['&'~';$\=','^'|';$:='.'^
     '~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$,='('^'}';$\='`'|'!'
     ;$:=')'^'}';$~='*'|'`';$^='+'^'_';$/='&'|'@';$,='['&'~';$\=
      ','^'|';$:='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$,='('^
       '}';$\='`'|'!';$:=')'^'}';$~='*'|'`';$^='+'^'_';$/='&'|'@'
        ;$,='['&'~';$\=','^'|';$:='.'^'~';$~='@'|'(';$^="\)"^ '['
         ;$/='`'|'.';$,='('^'}';$\='`'|'!';$:=')'^'}';$~='*'  |((
          '`'));$^='+'^'_';$/='&'|'@';$,='['&'~';$\ =','^'|'  ;$:
            ='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|  '.';$,=   '('
             ^'}'; $\='`'|'!';$:=')'^'}';$~="\*"|   '`';$^=   '+'
                   ^'_';$/='&'|'@';$,='['&'~';$\    =(',')^   '|'
                   ;$:='.'^    '~';$~='@' |"\(";     $^=')'   ^+
                   '[';$/=     '`'|'.';   $,='('     ^"\}";  $\
                   =('`')|     "\!";$:=   "\)"^       "\}";  (
                   ($~))=      '*'|'`';   ($^)         ='+'
                   ^"\_";     $/=('&')|   '@';         ($,)
                    ='['&     "\~";$\=    ','^         '|';
                    ($:)=     '.'^'~'     ;$~=         '@'|
                    '(';     $^=')'       ^'['         ;$/=
                    '`'|     '.'          ;$,=         '('^
                    '}';      $\=         '`'          |((
                    '!'        ));       $:=           ')'
                    ^((         '}'     ));            $~=
                    '*'          |((   '`'              ))
                    ;(             ($^))=               ((
                    ((              '+'))               ))
                    ^+             "\_";$/=             ((
                   '&'            ))|+ "\@";            $,
                  =((           '['))&  '~';           $\=
                 ','^         "\|";$:=   '.'          ^'~'
               ;($~)=                                ('@')|
             "\(";$^=                               ')'^'['

Altri articoli