Comment écrire un Hello world en Perl

Il ya une bonne tradition que l'apprentissage d'un nouveau langage de programmation commence avec l'écriture d'un programme simple qui affiche le texte Hello, world!.

Le langage de programmation Perl, il ya plusieurs options que vous pouvez résoudre ce problème.

Enregistrer le code dans le fichier

La version standard pour écrire Hello, world! Perl est de créer un le fichier hello.pl avec un tel contenu:

▶ Run
#!/usr/bin/perl

print 'Hello, world!';

Et de l'exécuter dans la console:

$ perl hello.pl
Hello, world!

(Lorsque vous n'avez pas d'ordinateur à partir de Perl, vous pouvez exécuter ce code dans un navigateur https://PerlBanjo.com/5a5b1759f0 ).

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

L'autre est assez populaire un moyen pour sortir de Hello, world! — utiliser однострочник. Ne pas créer de fichier avec le texte du programme, et l'ensemble du programme de taper dans l'invite de commande:

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

(Et voici le lien vers le code à exécuter dans le navigateur https://PerlBanjo.com/62a99008d7 ).

Des moyens novateurs de

Créer un fichier avec le code print 'Hello, world!';, ou d'utiliser un simple однострочник — c'est ce que le besoin d'écrire Hello, world!programme.

Mais en plus de ces deux façons il y a un tas d'options comme avec l'aide de Perl, vous pouvez afficher le texte Hello, world!. Ci-dessous quelques exemples. Tous ces programmes affichent le texte Hello, world! en utilisant une variété de tricks. Dans le monde de la langue de programmation Perl est un art, afficher une ligne de texte de la façon la plus manière atypique (wikipedia ). Voici quelques-uns de ces programmes.

▶ Run
#!/usr/bin/perl

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

Les deux programmes ont été créés avec l'aide de la bibliothèque Perl Acme::EyeDrops .

Un programme qui affiche le texte Hello, world! en utilisant uniquement les caractères de ponctuation et code use re 'eval';:

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

Surprenant, mais c'est graphiques de caractères avec l'image de chameau c'est aussi en travaillant un programme Perl qui affiche un Hello, world!:

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

Autres articles