Làm thế nào để viết một "xin Chào thế giới" trong Perl

Đó là một truyền thống tốt đẹp mà học một ngôn ngữ lập trình mới bắt đầu viết một chương trình đơn giản mà hiển thị các văn bản Hello, world!.

Trong ngôn ngữ Perl, có nhiều lựa chọn làm thế nào để giải quyết vấn đề này.

Lưu mã trong một tập tin

Các tiêu chuẩn nhất lựa chọn để viết Hello, world! Perl là tạo ra tập tin hello.pl với nội dung như vậy:

▶ Run
#!/usr/bin/perl

print 'Hello, world!';

Và thực hiện trong các điều khiển:

$ perl hello.pl
Hello, world!

(Nếu bạn không có một máy tính với Perl, bạn có thể chạy mã trình duyệt https://PerlBanjo.com/5a5b1759f0 ).

Sử dụng odnotrahniki

Một phương pháp khá phổ biến để lấy được Hello, world! — sử dụng odnotrahniki. Không để tạo ra một tập tin với các chương trình văn bản, và toàn bộ chương trình phải gõ lệnh:

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

(Và đây là liên kết cho mã này để chạy trong duyệt https://PerlBanjo.com/62a99008d7 ).

Phi tiêu chuẩn bằng cách

Để tạo ra một tập tin với mã print 'Hello, world!';, hoặc sử dụng một đơn giản odnotrahniki là làm thế nào để viết Hello, world!chương trình.

Nhưng ngoài hai tiêu chuẩn, phương pháp, có rất nhiều lựa chọn là Perl, bạn có thể hiển thị các văn bản Hello, world!. Dưới đây là một số ví dụ. Tất cả các chương trình hiển thị các văn bản Hello, world! bằng cách sử dụng một loạt các thủ thuật. Trong thế giới của ngôn ngữ Perl là nghệ thuật để bày một dòng văn bản như một cách phi tiêu chuẩn (Wikipedia ). Ở đây là một số chương trình tương tự.

▶ Run
#!/usr/bin/perl

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

Sau hai chương trình tạo bằng Perl thư viện Cám::thuốc nhỏ mắt .

Một chương trình hiển thị các văn bản Hello, world! sử dụng chỉ dấu và mã use re 'eval';:

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

Đáng ngạc nhiên này, đây là những bản vẽ với những hình ảnh của con lạc đà cũng làm việc Perl chương trình hiển thị Hello, world!:

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

Các bài viết khác