Bagaimana menulis "Hello world" di Perl

Ada tradisi yang baik bahwa belajar bahasa pemrograman baru dimulai dengan menulis sebuah program sederhana yang menampilkan teks Hello, world!.

Dalam bahasa pemrograman Perl, ada beberapa pilihan cara untuk memecahkan masalah ini.

Simpan kode di file

Yang paling standar pilihan untuk menulis Hello, world! Perl adalah untuk membuat file hello.pl dengan isi seperti ini:

▶ Run
#!/usr/bin/perl

print 'Hello, world!';

Dan jalankan di console:

$ perl hello.pl
Hello, world!

(Jika anda tidak memiliki komputer dengan Perl, anda dapat menjalankan kode ini di browser https://PerlBanjo.com/5a5b1759f0 ).

Gunakan odnotrahniki

Lain yang cukup populer metode dalam rangka untuk memperoleh Hello, world! — menggunakan odnotrahniki. Tidak untuk membuat file dengan program teks, dan seluruh program untuk mengetik di command prompt:

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

(Dan di sini adalah link untuk kode ini untuk berjalan di browser https://PerlBanjo.com/62a99008d7 ).

Cara Non-standar

Untuk membuat sebuah file dengan kode print 'Hello, world!';, atau gunakan sederhana odnotrahniki adalah bagaimana menulis Hello, world!program.

Tapi selain dua metode standar, ada banyak pilihan seperti Perl, anda dapat menampilkan teks Hello, world!. Di bawah ini adalah beberapa contoh. Semua program ini menampilkan teks Hello, world! menggunakan berbagai trik. Dalam dunia bahasa pemrograman Perl adalah seni untuk menampilkan baris teks sebagai cara non-standar (Wikipedia ). Berikut ini adalah beberapa program-program serupa.

▶ Run
#!/usr/bin/perl

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

Berikut dua program-program yang dibuat menggunakan Perl perpustakaan Acme::obat tetes mata .

Sebuah program yang menampilkan teks Hello, world! hanya menggunakan tanda baca dan kode use re 'eval';:

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

Mengejutkan, ini adalah menggambar dengan gambar unta juga bekerja Perl program yang menampilkan Hello, world!:

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

Artikel lainnya