{"id":500,"date":"2009-08-25T14:37:42","date_gmt":"2009-08-25T10:37:42","guid":{"rendered":"http:\/\/www.unixpin.com\/wordpress\/?p=500"},"modified":"2009-08-27T00:08:30","modified_gmt":"2009-08-26T20:08:30","slug":"perl-again","status":"publish","type":"post","link":"https:\/\/www.unixpin.com\/?p=500","title":{"rendered":"\u0421\u043d\u043e\u0432\u0430 perl. \u041d\u0435\u043c\u043d\u043e\u0433\u043e \u043e \u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u044b\u0445 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0445"},"content":{"rendered":"

\u041f\u043e \u043c\u043e\u0442\u0438\u0432\u0430\u043c \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u043d\u043e\u0439 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430\u0446\u0438\u0438 Perlvar<\/a>.<\/p>\n

\u0421\u0447\u0438\u0442\u0430\u0442\u044c \u0446\u0435\u043b\u0438\u043a\u043e\u043c \u0444\u0430\u0439\u043b \u0432 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e:<\/p>\n

open (MOCK, $filename) or die \"$!\";
\nlocal $\/;
\n# \u043f\u0435\u0440\u0435\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u043c \u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u0443\u044e \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e \"\u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u044c \u0441\u0442\u0440\u043e\u043a\" ($\/ \u0438\u043b\u0438 $INPUT_RECORD_SEPARATOR \u0438\u043b\u0438 $RS)
\n$_ =<MOCK> ; \u00a0 \u00a0# \u0437\u0430\u0445\u0430\u0432\u0430\u0442\u044c \u043c\u043e\u0441\u043a <\/del>\u0444\u0430\u0439\u043b \u0446\u0435\u043b\u0438\u043a\u043e\u043c
\nclose (MOCK);<\/code><\/p>\n

\u041d\u0430\u043f\u0435\u0447\u0430\u0442\u0430\u0442\u044c \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u043c\u043e\u0435 \u043c\u0430\u0441\u0441\u0438\u0432\u0430:
\n@a=qw( 1 2fewf wf g ag f);
\nlocal $,=\"\\n\";
\n# \u043f\u0435\u0440\u0435\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u043c \u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u0443\u044e \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e \"\u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u044c \u043f\u043e\u043b\u0435\u0439\" ($, \u0438\u043b\u0438 $OUTPUT_FIELD_SEPARATOR \u0438\u043b\u0438 $OFS)
\nprint @a;<\/code>
\n
\n\u041f\u0435\u0447\u0430\u0442\u0430\u0442\u044c \u0432\u0441\u0435 \u0441\u0442\u0440\u043e\u043a\u0438 \u043f\u043e\u0441\u043b\u0435 \u0441\u0442\u0440\u043e\u043a\u0438 25
\nperl -n -e 'print if $.>25' file.txt # \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c \u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u0443\u044e \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e \"\u043d\u043e\u043c\u0435\u0440 \u0442\u0435\u043a\u0443\u0449\u0435\u0439 \u0441\u0442\u0440\u043e\u043a\u0438\" ($. \u0438\u043b\u0438 $INPUT_LINE_NUMBER \u0438\u043b\u0438 $NR)<\/code><\/p>\n

\u041d\u0430\u043f\u0435\u0447\u0430\u0442\u0430\u0442\u044c \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435 \u0441\u0440\u0435\u0434\u044b:
\nperl -e ‘while ( ($a,$b)=each(%ENV) ) { print «$a=$b\\n»; }’; # \u0418\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c \u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u044b\u0439 \u0445\u044d\u0448 %ENV, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435 \u0441\u0440\u0435\u0434\u044b \u043e\u043a\u0440\u0443\u0436\u0435\u043d\u0438\u044f<\/p>\n

\u0418\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0438\u043c\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b:
\nprint \"Usage: $0 [-k|--kill-all-humans]\\n\";
\n# \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c \u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u0443\u044e \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e \"\u0438\u043c\u044f \u0438\u0441\u043f\u043e\u043b\u043d\u044f\u0435\u043c\u043e\u0439 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b\" ($0 \u0438\u043b\u0438 $PROGRAM_NAME)<\/code><\/p>\n

\u041f\u043e\u0441\u043c\u043e\u0442\u0440\u0435\u0442\u044c \u0432\u0435\u0440\u0441\u0438\u044e perl:
\nprint $];
\nprint $^V;<\/code><\/p>\n

\u041f\u043e\u0441\u043c\u043e\u0442\u0440\u0435\u0442\u044c \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u043e\u043d\u043d\u0443\u044e \u0441\u0438\u0441\u0442\u0435\u043c\u0443:
\nprint $^O;
\nprint POSIX::uname()<\/code>;<\/p>\n

\u041f\u043e\u0441\u043c\u043e\u0442\u0440\u0435\u0442\u044c, \u043a\u043e\u0433\u0434\u0430 \u0431\u044b\u043b\u0430 \u0437\u0430\u043f\u0443\u0449\u0435\u043d\u0430 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430:
\nprint $^T;
\n# \u0432 \u0441\u0435\u043a\u0443\u043d\u0434\u0430\u0445 \u0441 1970 \u0433\u043e\u0434\u0430, \u0441\u043c\u043e\u0442\u0440\u0438 time(). \u0412\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u0430\u044f \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f $^T \u0438\u043b\u0438 $BASETIME<\/code><\/p>\n

\u041d\u0430\u043f\u0435\u0447\u0430\u0442\u0430\u0442\u044c \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435 \u0441\u0440\u0435\u0434\u044b:
\nperl -e 'while ( ($a,$b)=each(%ENV) ) { print \"$a=$b\\n\"; }';
\n# \u0418\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c \u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u044b\u0439 \u0445\u044d\u0448 %ENV
\n<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"

\u041f\u043e \u043c\u043e\u0442\u0438\u0432\u0430\u043c \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u043d\u043e\u0439 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430\u0446\u0438\u0438 Perlvar. \u0421\u0447\u0438\u0442\u0430\u0442\u044c \u0446\u0435\u043b\u0438\u043a\u043e\u043c \u0444\u0430\u0439\u043b \u0432 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e: open (MOCK, $filename) or die «$!»; local $\/; # \u043f\u0435\u0440\u0435\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u043c \u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u0443\u044e \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e «\u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u044c \u0441\u0442\u0440\u043e\u043a» ($\/ \u0438\u043b\u0438 $INPUT_RECORD_SEPARATOR \u0438\u043b\u0438 $RS) $_ =<MOCK> ; \u00a0 \u00a0# \u0437\u0430\u0445\u0430\u0432\u0430\u0442\u044c \u043c\u043e\u0441\u043a \u0444\u0430\u0439\u043b \u0446\u0435\u043b\u0438\u043a\u043e\u043c close (MOCK); \u041d\u0430\u043f\u0435\u0447\u0430\u0442\u0430\u0442\u044c \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u043c\u043e\u0435 \u043c\u0430\u0441\u0441\u0438\u0432\u0430: @a=qw( 1 2fewf wf g ag f); local $,=»\\n»; # \u043f\u0435\u0440\u0435\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u043c \u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u0443\u044e […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[23,24,25,4,93],"tags":[712,1019,711,710,722,713,716,715,721,723,437,475,714,717,718,724,720,719,297],"class_list":["post-500","post","type-post","status-publish","format-standard","hentry","category-perl","category-hpux","category-linux","category-solaris","category-unix-tru64","tag-perlvar","tag-perl","tag-var","tag-variable","tag-722","tag-713","tag-716","tag-715","tag-721","tag-723","tag-437","tag-475","tag-714","tag-717","tag-718","tag-724","tag-720","tag-719","tag-297"],"_links":{"self":[{"href":"https:\/\/www.unixpin.com\/index.php?rest_route=\/wp\/v2\/posts\/500","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.unixpin.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.unixpin.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.unixpin.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.unixpin.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=500"}],"version-history":[{"count":5,"href":"https:\/\/www.unixpin.com\/index.php?rest_route=\/wp\/v2\/posts\/500\/revisions"}],"predecessor-version":[{"id":505,"href":"https:\/\/www.unixpin.com\/index.php?rest_route=\/wp\/v2\/posts\/500\/revisions\/505"}],"wp:attachment":[{"href":"https:\/\/www.unixpin.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=500"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.unixpin.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=500"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.unixpin.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=500"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}