{"id":211198,"date":"2014-02-04T15:33:02","date_gmt":"2014-02-04T11:33:02","guid":{"rendered":"http:\/\/savepearlharbor.com\/?p=211198"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T21:00:00","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=211198","title":{"rendered":"<span class=\"post_title\">\u041f\u043e\u0441\u0442\u0438\u043c \u043d\u043e\u0432\u043e\u0441\u0442\u0438 \u0441 \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u043e\u0439 \u0432 \u0433\u0440\u0443\u043f\u043f\u044b \u0412\u043a\u043e\u043d\u0442\u0430\u043a\u0442\u0430 (Perl)<\/span>"},"content":{"rendered":"<div class=\"content html_format\"> \t\t\t\u041f\u0440\u0438 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0438 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u043e\u043d\u043d\u044b\u0445 \u0440\u0435\u0441\u0443\u0440\u0441\u043e\u0432 \u0447\u0430\u0441\u0442\u043e \u043f\u0440\u0438\u0445\u043e\u0434\u0438\u0442\u0441\u044f \u0437\u0430\u0434\u0443\u043c\u044b\u0432\u0430\u0442\u044c\u0441\u044f \u043e\u0431 \u0430\u0432\u0442\u043e\u043c\u0430\u0442\u0438\u0437\u0430\u0446\u0438\u0438 \u0440\u0443\u0442\u0438\u043d\u043e\u0439 \u0440\u0430\u0431\u043e\u0442\u044b. \u0412 \u0434\u0430\u043d\u043d\u043e\u0439 \u0441\u0442\u0430\u0442\u044c\u0435 \u0440\u0430\u0441\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u043f\u0440\u043e\u0441\u0442\u043e\u0439 \u0441\u043f\u043e\u0441\u043e\u0431, \u043f\u0440\u0438 \u043f\u043e\u043c\u043e\u0449\u0438 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u0438\u0445 \u0441\u0442\u0440\u043e\u043a Perl, \u043a\u0430\u043a \u043d\u043e\u0432\u043e\u0441\u0442\u0438, \u0441\u043f\u0435\u0446\u043f\u0440\u0435\u0434\u043b\u043e\u0436\u0435\u043d\u0438\u044f, \u0438\u043b\u0438 \u0434\u0440\u0443\u0433\u0443\u044e \u043f\u043e\u043b\u0435\u0437\u043d\u0443\u044e \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e, \u0432\u044b\u043b\u043e\u0436\u0438\u0442\u044c \u043d\u0430 \u0441\u0432\u043e\u044e \u0441\u0442\u0440\u0430\u043d\u0438\u0447\u043a\u0443 \u0438\u043b\u0438 \u0433\u0440\u0443\u043f\u043f\u0443 \u0432 \u0441\u043e\u0446\u0441\u0435\u0442\u044f\u0445 (\u0412\u043a\u043e\u043d\u0442\u0430\u043a\u0442\u0435). \u041f\u0440\u0438 \u044d\u0442\u043e\u043c \u0441 \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u043e\u0439, \u0442\u0435\u043a\u0441\u0442\u043e\u043c \u0438 \u0441\u0441\u044b\u043b\u043a\u043e\u0439. <br \/>  <img decoding=\"async\" src=\"http:\/\/habr.habrastorage.org\/post_images\/dce\/f77\/094\/dcef77094f84ad36551982eef0bb3f24.png\" width=\"300\"\/><\/p>\n<p>  <a name=\"habracut\"><\/a><\/p>\n<p>  \u041a\u0440\u0430\u0442\u043a\u0438\u0439 \u043f\u043b\u0430\u043d: <br \/>  1. \u0421\u043e\u0437\u0434\u0430\u0451\u043c \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435 \u0432\u043a\u043e\u043d\u0442\u0430\u043a\u0442\u0435.<br \/>  2. \u0413\u0435\u043d\u0435\u0440\u0438\u043c \u0422\u043e\u043a\u0435\u043d \u043a \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044e<br \/>  3. \u041f\u043e\u043b\u0443\u0447\u0430\u0435\u043c URL \u0441\u0435\u0440\u0432\u0435\u0440\u0430 \u0434\u043b\u044f \u0437\u0430\u043a\u0430\u0447\u0438\u0432\u0430\u043d\u0438\u044f \u043a\u0430\u0440\u0442\u0438\u043d\u043e\u043a.<br \/>  4. \u0417\u0430\u043a\u0430\u0447\u0438\u0432\u0430\u0435\u043c \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u0443 \u043d\u0430 \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u044b\u0439 \u0440\u0430\u043d\u0435\u0435 \u0441\u0435\u0440\u0432\u0435\u0440.<br \/>  5. \u0421\u043e\u0445\u0440\u0430\u043d\u044f\u0435\u043c \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u0443 \u043d\u0430 \u0441\u0435\u0440\u0432\u0435\u0440\u0435.<br \/>  6. \u0412\u044b\u0432\u0435\u0448\u0438\u0432\u0430\u0435\u043c \u043d\u043e\u0432\u043e\u0441\u0442\u044c \u0441 \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u043e\u0439 \u043d\u0430 \u0441\u0442\u0440\u0430\u043d\u0438\u0447\u043a\u0443.<\/p>\n<p>  1. \u0441\u043e\u0437\u0434\u0430\u0451\u043c \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435 \u043d\u0430 \u0441\u0430\u0439\u0442\u0435 \u0432\u043a\u043e\u043d\u0442\u0430\u043a\u0442\u0430. <br \/>  \u0412\u043d\u0438\u0437\u0443 \u0441\u0430\u0439\u0442\u0430 \u0441\u0441\u044b\u043b\u043a\u0430 \u0420\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u0430\u043c, \u0438 \u043a\u043d\u043e\u043f\u043a\u0430 \u0421\u043e\u0437\u0434\u0430\u0442\u044c \u041f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435. <br \/>  \u0412\u044b\u0431\u0438\u0440\u0430\u0435\u043c \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u0435 \u0438 Standalone-\u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435.<br \/>  \u041f\u043e\u0441\u043b\u0435 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u043d\u0430 \u0432\u043a\u043b\u0430\u0434\u043a\u0435 \u041d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0438 \u0440\u0435\u0434\u0430\u043a\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u041f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f \u0432\u044b \u0443\u0432\u0438\u0434\u0438\u0442\u0435 ID \u0432\u0430\u0448\u0435\u0433\u043e \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f.(\u0437\u0430\u043f\u043e\u043c\u043d\u0438\u0442\u044c).<\/p>\n<p>  2. \u041f\u043e\u043b\u0443\u0447\u0430\u0435\u043c \u0422\u043e\u043a\u0435\u043d (\u043a\u043b\u044e\u0447\u044c \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u0441\u043e\u0437\u0434\u0430\u043d\u043d\u044b\u0439 \u0441\u043a\u0440\u0438\u043f\u0442 \u0431\u0443\u0434\u0435\u0442 \u0430\u0432\u0442\u043e\u0440\u0438\u0437\u043e\u0432\u044b\u0432\u0430\u0442\u044c\u0441\u044f \u043d\u0430 \u0441\u0430\u0439\u0442\u0435). \u0414\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u0432 \u0431\u0440\u0430\u0443\u0437\u0435\u0440\u0435 \u043e\u0442\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u0441\u0442\u0440\u0430\u043d\u0438\u0447\u043a\u0443:  <\/p>\n<pre><code class=\"html\">https:\/\/oauth.vk.com\/authorize?client_id={ID}&scope=wall,photos,audio,video,docs,notes,groups,messages,notifications,stats,ads,notify,friends,offline&redirect_uri=http:\/\/oauth.vk.com\/blank.html&display=page&response_type=token <\/code><\/pre>\n<p>  , \u0433\u0434\u0435<br \/>   {ID} \u2014 id \u0441\u043e\u0437\u0434\u0430\u043d\u043d\u043e\u0433\u043e \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440 1234563,<br \/>   scope \u2014 \u044d\u0442\u043e \u043f\u0440\u0430\u0432\u0430 \u0434\u043b\u044f \u0432\u0430\u0448\u0435\u0433\u043e \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f, \u0447\u0442\u043e \u0435\u043c\u0443 \u0431\u0443\u0434\u0435\u0442 \u0440\u0430\u0437\u0440\u0435\u0448\u0435\u043d\u043e. <br \/>  (wall -\u043f\u043e\u0441\u0442\u0438\u0442\u044c \u043d\u0430 \u0441\u0442\u0435\u043d\u0443, photos \u2014 \u0437\u0430\u043a\u0430\u0447\u0438\u0432\u0430\u0442\u044c \u0444\u043e\u0442\u043e, groups \u2014 \u0434\u043e\u0441\u0442\u0443\u043f \u043a \u0433\u0440\u0443\u043f\u043f\u0430\u043c, messages \u2014 \u043e\u0442\u043f\u0440\u0430\u0432\u043b\u044f\u0442\u044c \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f, friends \u2014 \u0434\u043e\u0441\u0442\u0443\u043f \u043a \u0434\u0440\u0443\u0437\u044c\u044f\u043c \u0438 offline \u2014 \u0434\u043b\u044f \u0442\u043e\u0433\u043e \u0447\u0442\u043e\u0431\u044b \u043a\u043b\u044e\u0447\u044c \u0422\u043e\u043a\u0435\u043d \u043d\u0438\u043a\u043e\u0433\u0434\u0430 \u043d\u0435 \u0437\u0430\u043a\u0430\u043d\u0447\u0438\u0432\u0430\u043b\u0441\u044f \u0438 \u0441\u043a\u0440\u0438\u043f\u0442 \u0432\u0441\u0435\u0433\u0434\u0430 \u043c\u043e\u0433 \u043e\u0431\u0440\u0430\u0442\u0438\u0442\u044c\u0441\u044f \u043a \u0441\u0430\u0439\u0442\u0443).<br \/>   response_type= token \u2014 \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0422\u043e\u043a\u0435\u043d.<\/p>\n<p>  \u0414\u0430\u043b\u0435\u0435 \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043a \u0441\u043a\u0440\u0438\u043f\u0442\u0443:  <\/p>\n<h4>\u0412\u0445\u043e\u0434\u043d\u044b\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b:<\/h4>\n<p>  <\/p>\n<pre><code class=\"perl\">#!\/usr\/bin\/perl  use strict; use LWP; use HTTP::Request::Common;  my $token = '55e43443343435355a3e70e805722345552227'; # \u0442\u0430\u043a \u0432\u044b\u0433\u043b\u044f\u0434\u0438\u0442 \u0422\u043e\u043a\u0435\u043d \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u044b\u0439 \u0440\u0430\u043d\u0435\u0435 my $gid = '65596688';   # \u042d\u0442\u043e ID \u043d\u0430\u0448\u0435\u0439 \u0433\u0440\u0443\u043f\u043f\u044b \u0432 \u043a\u043e\u0442\u043e\u0440\u0443\u044e \u0441\u043e\u0431\u0438\u0440\u0430\u0435\u043c\u0441\u044f \u043f\u043e\u0441\u0442\u0438\u0442\u044c. my $file = '\/home\/ds\/test\/2.jpg';  # \u041f\u0443\u0442\u044c \u0438 \u0444\u0430\u0439\u043b \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u0438 my $site_url = 'http:\/\/leto-travel.com';  # \u0421\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u0441\u0430\u0439\u0442 , \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0431\u0443\u0434\u0435\u0442 \u0432\u0438\u0434\u043d\u0430 \u0432 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0438 \u043f\u043e\u0434 \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u043e\u0439 my $message = '\u0421\u043f\u0435\u0446\u043f\u0440\u0435\u0434\u043b\u043e\u0436\u0435\u043d\u0438\u0435 \u043f\u043e \u043e\u0442\u0434\u044b\u0445\u0443'; # \u0422\u0435\u043a\u0441\u0442 \u0432 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0438 \u043d\u0430\u0434 \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u043e\u0439. <\/code><\/pre>\n<h4>3. \u0422\u0435\u043f\u0435\u0440\u044c \u043d\u0430\u043c \u043d\u0430\u0434\u043e \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0441\u0435\u0440\u0432\u0435\u0440 \u0432\u043a\u043e\u043d\u0442\u0430\u043a\u0442\u0435, \u043a\u0443\u0434\u0430 \u0431\u0443\u0434\u0435\u043c \u0437\u0430\u043b\u0438\u0432\u0430\u0442\u044c \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u0443:<\/h4>\n<p>  <\/p>\n<pre><code class=\"perl\"># \u0423\u0437\u043d\u0430\u0451\u043c \u0441\u0435\u0440\u0432\u0435\u0440 \u0434\u043b\u044f \u0432\u044b\u043a\u043b\u0430\u0434\u044b\u0432\u0430\u043d\u0438\u044f \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u0438 getWallUploadServer     my $url1 = &quot;https:\/\/api.vkontakte.ru\/method\/photos.getWallUploadServer?gid=$gid&access_token=$token&quot;;     my $res_url = &get_data($url1);     print &quot;$res_url&quot;;     $res_url =~ s\/([\\\\'])?\/\/g;  # \u0423\u0431\u0438\u0440\u0430\u0435\u043c \u044d\u043a\u0440\u0430\u043d\u0438\u0440\u0443\u044e\u0449\u0438\u0435 \u0441\u043b\u044d\u0448\u0438.     $res_url = $1 if ($res_url =~ m\/.*?upload_url\\&quot;\\:\\&quot;(.*?)\\&quot;.*?\/);  # \u0414\u043e\u0441\u0442\u0430\u0451\u043c URL.       # \u041f\u0430\u0440\u0441\u0438\u043c url \u0438 \u0434\u043e\u0441\u0442\u0430\u0451\u043c \u0438\u0437 \u043d\u0435\u0433\u043e \u0432\u0441\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b     my $url = $1 if ( $res_url =~ m\/^(.*?)\\?.*\/);     my $act = $1 if ( $res_url =~ m\/act\\=(.*?)(\\&|$).*\/);     my $mid = $1 if ( $res_url =~ m\/mid\\=(.*?)(\\&|$).*\/);     my $aid = $1 if ( $res_url =~ m\/aid\\=(.*?)(\\&|$).*\/);     my $gid = $1 if ( $res_url =~ m\/gid\\=(.*?)(\\&|$).*\/);     my $hash = $1 if ( $res_url =~ m\/\\&hash\\=(.*?)(\\&|$).*\/);     my $rhash = $1 if ( $res_url =~ m\/\\&rhash\\=(.*?)(\\&|$).*\/);     my $swfupload = $1 if ( $res_url =~ m\/\\&swfupload\\=(.*?)(\\&|$).*\/);     my $api = $1 if ( $res_url =~ m\/\\&api\\=(.*?)(\\&|$).*\/);     my $wallphoto = $1 if ( $res_url =~ m\/\\&wallphoto\\=(.*?)(\\&|$).*\/); <\/code><\/pre>\n<h4>4. \u0417\u0430\u043a\u0430\u0447\u0438\u0432\u0430\u0435\u043c \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u0443 \u043d\u0430 \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u044b\u0439 url:<\/h4>\n<p>  <\/p>\n<pre><code class=\"perl\">   my $ua = LWP::UserAgent-&gt;new (agent=&gt;'Mozilla\/5.0', requests_redirectable=&gt;0);    my $res = $ua-&gt;request (         POST &quot;$url&quot;,         Content_Type =&gt; 'multipart\/form-data',         Content =&gt; [         'act' =&gt; $act,         'mid' =&gt; $mid,         'aid' =&gt; $aid,         'gid' =&gt; $gid,         'hash' =&gt; $hash,         'rhash' =&gt; $rhash,         'swfupload' =&gt; $swfupload,         'api' =&gt; $api,         'wallphoto' =&gt; $wallphoto,         'photo' =&gt; [$file],             ],         ) die(&quot;$!&quot;);     my $res_upload = $res-&gt;as_string();     $res_upload =~ s\/([\\\\'])?\/\/g;   #  \u0423\u0431\u0438\u0440\u0430\u0435\u043c \u044d\u043a\u0440\u0430\u043d\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435.      # \u0412\u044b\u0442\u0430\u0441\u043a\u0438\u0432\u0430\u0435\u043c \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435 \u0438\u0437 \u043e\u0442\u0432\u0435\u0442\u0430 \u0441\u0435\u0440\u0432\u0435\u0440\u0430     my $server_upload = $1 if ( $res_upload =~ m\/server\\&quot;\\:(.*?),\\&quot;.*\/);     my $photo_upload = $1 if ( $res_upload =~ m\/\\&quot;photo\\&quot;\\:\\&quot;(.*?)\\&quot;,\\&quot;hash.*\/);     my $hash_upload = $1 if ( $res_upload =~ m\/\\&quot;hash\\&quot;\\:\\&quot;(.*?)\\&quot;}$\/); <\/code><\/pre>\n<h4>5. \u041f\u043e\u0441\u043b\u0435 \u0447\u0435\u0433\u043e \u043d\u0430\u043c \u043d\u0443\u0436\u043d\u043e \u0437\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u043d\u0430 \u0441\u0435\u0440\u0432\u0435\u0440\u0435 \u0437\u0430\u0433\u0440\u0443\u0436\u0435\u043d\u043d\u0443\u044e \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u0443:<\/h4>\n<p>  <\/p>\n<pre><code class=\"perl\">    my $url2 = &quot;https:\/\/api.vkontakte.ru\/method\/photos.saveWallPhoto?gid=$gid&access_token=$token&server=$server_upload&photo=$photo_upload&hash=$hash_upload&quot;;     my $res_save = get_data($url2);     my $ph_id = $1 if ( $res_save =~ m\/\\&quot;id\\&quot;\\:\\&quot;(.*?)\\&quot;,\\&quot;.*\/); # \u0412\u044b\u0442\u0430\u0441\u043a\u0438\u0432\u0430\u0435\u043c \u0438\u0437 \u043e\u0442\u0432\u0435\u0442\u0430 \u0434\u0430\u043d\u043d\u044b\u0435 \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u0438 <\/code><\/pre>\n<h4>6. \u0418 \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0435\u0435 \u0437\u0430\u043f\u043e\u0441\u0442\u0438\u0442\u044c \u0435\u0451 \u043d\u0430 \u0441\u0442\u0435\u043d\u0443:<\/h4>\n<p>  <\/p>\n<pre><code class=\"perl\"> my $url3 = &quot;https:\/\/api.vkontakte.ru\/method\/&quot;.&quot;wall.post?owner_id=-$gid&attachments=$ph_id,$site_url&from_group=1&access_token=$token&quot;; # \u0413\u043e\u0442\u043e\u0432\u0438\u043c url \u0434\u043b\u044f \u043f\u043e\u0441\u0442\u0430.     $url3 .=&quot;&message=$message&quot; if ($message); # \u0415\u0441\u043b\u0438 \u0435\u0441\u0442\u044c \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435, \u0442\u043e \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u0435\u0433\u043e.     my $res_post = get_data($url3); <\/code><\/pre>\n<p>  , \u0433\u0434\u0435 owner_id \u0434\u043e\u043b\u0436\u0435\u043d \u0431\u044b\u0442\u044c \u0441\u043e \u0437\u043d\u0430\u043a\u043e\u043c &quot;-&quot; (\u043c\u0438\u043d\u0443\u0441), \u0442.\u043a. \u044d\u0442\u043e \u0433\u0440\u0443\u043f\u043f\u0430.<br \/>   from_group=1 \u2014 \u043f\u043e\u0441\u0442\u0438\u0442\u044c \u043d\u043e\u0432\u043e\u0441\u0442\u044c \u043e\u0442 \u0438\u043c\u0435\u043d\u0438 \u0433\u0440\u0443\u043f\u043f\u044b.<\/p>\n<p>  \u0412 \u0437\u0430\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u0438 \u043d\u0435\u0431\u043e\u043b\u044c\u0448\u0430\u044f \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 get_data(), \u043a \u043a\u043e\u0442\u043e\u0440\u043e\u0439 \u043e\u0431\u0440\u0430\u0449\u0430\u043b\u0438\u0441\u044c \u0434\u043b\u044f \u043f\u0435\u0440\u0435\u0434\u0430\u0447\u0438 \u0434\u0430\u043d\u043d\u044b\u0445 http.  <\/p>\n<pre><code class=\"perl\">    my $url = shift;     my $ua = LWP::UserAgent-&gt;new (agent=&gt;'Mozilla\/5.0', requests_redirectable=&gt;0);         my $get_url = $ua-&gt;request (GET &quot;$url&quot;) die(&quot;$!&quot;);         my $res_url = $get_url-&gt;as_string();     return ($res_url); <\/code><\/pre>\n<p>  \u041d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0441\u0441\u044b\u043b\u043e\u043a \u0432\u043a\u043e\u043d\u0442\u0430\u043a\u0442\u0430 \u0434\u043b\u044f \u0430\u0432\u0442\u043e\u043c\u0430\u0442\u0438\u0437\u0430\u0446\u0438\u0438:  <\/p>\n<h5>\u041e\u0442\u043f\u0440\u0430\u0432\u043a\u0430 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f: <\/h5>\n<p>  <\/p>\n<pre><code class=\"html\">https:\/\/api.vkontakte.ru\/method\/messages.send?uid={UID}&message={MSG}&title={TITLE}&access_token={TOKEN}<\/code><\/pre>\n<p>  , \u0433\u0434\u0435 UID \u2014 ID \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f, \u043a\u043e\u0442\u043e\u0440\u043e\u043c\u0443 \u043e\u0442\u043f\u0440\u0430\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 (\u044d\u0442\u043e \u0446\u0438\u0444\u0440\u043e\u0432\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435, \u0435\u0441\u043b\u0438 \u0432 url \u0431\u0440\u0430\u0443\u0437\u0435\u0440\u0430 \u0443 \u0434\u0440\u0443\u0433\u0430 \u0432\u0438\u0434\u043d\u043e \u0431\u0443\u043a\u0432\u0435\u043d\u043d\u044b\u0439 id, \u0442\u043e \u043c\u043e\u0436\u043d\u043e \u0437\u0430\u0439\u0442\u0438 \u0432 \u0435\u0433\u043e \u0430\u043b\u044c\u0431\u043e\u043c \u0438 \u0442\u0430\u043c \u0432 url \u0431\u0443\u0434\u0443\u0442 \u0438 \u0446\u0438\u0444\u0440\u044b), {MSG} \u2014 \u0441\u0430\u043c\u043e \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435, {TITLE} \u2014 \u0437\u0430\u0433\u043e\u043b\u043e\u0432\u043e\u043a \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f, \u0438 \u0432\u0430\u0448 Token.<\/p>\n<h5>\u0421\u043c\u0435\u043d\u0430 \u0441\u0432\u043e\u0435\u0433\u043e \u0441\u0442\u0430\u0442\u0443\u0441\u0430. \u0417\u0434\u0435\u0441\u044c id \u043d\u0435 \u043d\u0443\u0436\u043d\u043e, \u0442.\u043a. \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435 \u043f\u0440\u0438\u0432\u044f\u0437\u0430\u043d\u043e \u043a \u0432\u0430\u0448\u0435\u043c\u0443 \u0430\u043a\u043a\u0430\u0443\u043d\u0442\u0443.<\/h5>\n<p>  <\/p>\n<pre><code class=\"html\">https:\/\/api.vkontakte.ru\/method\/status.set?text={TEXT}&access_token={TOKEN}<\/code><\/pre>\n<h5>\u041f\u043e\u0441\u0442\u0438\u043d\u0433 \u043f\u0440\u043e\u0441\u0442\u043e\u0433\u043e \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f \u043d\u0430 \u0441\u0442\u0435\u043d\u0443 \u0432 \u0433\u0440\u0443\u043f\u043f\u0443.<\/h5>\n<p>  <\/p>\n<pre><code class=\"html\">https:\/\/api.vkontakte.ru\/method\/wall.post?owner_id=-{GID}&message={MSG}&from_group=1&access_token={TOKEN}<\/code><\/pre>\n<p>  , \u0433\u0434\u0435 {GID} \u2014 \u0446\u0438\u0444\u0440\u043e\u0432\u043e\u0439 ID \u0433\u0440\u0443\u043f\u043f\u044b \u0441 \u0437\u043d\u0430\u043a\u043e\u043c \u043c\u0438\u043d\u0443\u0441, {MSG} \u2014 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435, from_group \u2014 \u043e\u0442 \u043a\u043e\u0433\u043e \u0431\u0443\u0434\u0435\u0442 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 (1 \u2014 \u043e\u0442 \u0433\u0440\u0443\u043f\u043f\u044b (\u0435\u0441\u043b\u0438 \u0432\u044b \u0430\u0434\u043c\u0438\u043d\u0438\u0441\u0442\u0440\u0430\u0442\u043e\u0440)).<\/p>\n<p>  \u0412\u043e\u0442 \u0438 \u0432\u0441\u0451. \u041a\u043e\u043d\u0435\u0447\u043d\u043e, \u043d\u0443\u0436\u043d\u043e \u0435\u0449\u0451 \u0432\u0441\u0442\u0430\u0432\u0438\u0442\u044c \u043a\u043e\u0434 \u043f\u0440\u043e\u0432\u0435\u0440\u043e\u043a \u0438 \u0432\u044b\u0445\u043e\u0434\u0430 \u043f\u043e \u043e\u0448\u0438\u0431\u043a\u0430\u043c \u0438 \u0442.\u043f. \u041d\u043e \u044d\u0442\u043e \u0443\u0436\u0435 \u043d\u0430 \u0432\u0430\u0448\u0435 \u0443\u0441\u043c\u043e\u0442\u0440\u0435\u043d\u0438\u0435. \t\t\t<\/p>\n<div class=\"clear\"><\/div>\n<\/p><\/div>\n<p> \u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b \u0441\u0442\u0430\u0442\u044c\u0438 <a href=\"http:\/\/habrahabr.ru\/post\/211198\/\"> http:\/\/habrahabr.ru\/post\/211198\/<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<div class=\"content html_format\"> \t\t\t\u041f\u0440\u0438 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0438 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u043e\u043d\u043d\u044b\u0445 \u0440\u0435\u0441\u0443\u0440\u0441\u043e\u0432 \u0447\u0430\u0441\u0442\u043e \u043f\u0440\u0438\u0445\u043e\u0434\u0438\u0442\u0441\u044f \u0437\u0430\u0434\u0443\u043c\u044b\u0432\u0430\u0442\u044c\u0441\u044f \u043e\u0431 \u0430\u0432\u0442\u043e\u043c\u0430\u0442\u0438\u0437\u0430\u0446\u0438\u0438 \u0440\u0443\u0442\u0438\u043d\u043e\u0439 \u0440\u0430\u0431\u043e\u0442\u044b. \u0412 \u0434\u0430\u043d\u043d\u043e\u0439 \u0441\u0442\u0430\u0442\u044c\u0435 \u0440\u0430\u0441\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u043f\u0440\u043e\u0441\u0442\u043e\u0439 \u0441\u043f\u043e\u0441\u043e\u0431, \u043f\u0440\u0438 \u043f\u043e\u043c\u043e\u0449\u0438 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u0438\u0445 \u0441\u0442\u0440\u043e\u043a Perl, \u043a\u0430\u043a \u043d\u043e\u0432\u043e\u0441\u0442\u0438, \u0441\u043f\u0435\u0446\u043f\u0440\u0435\u0434\u043b\u043e\u0436\u0435\u043d\u0438\u044f, \u0438\u043b\u0438 \u0434\u0440\u0443\u0433\u0443\u044e \u043f\u043e\u043b\u0435\u0437\u043d\u0443\u044e \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e, \u0432\u044b\u043b\u043e\u0436\u0438\u0442\u044c \u043d\u0430 \u0441\u0432\u043e\u044e \u0441\u0442\u0440\u0430\u043d\u0438\u0447\u043a\u0443 \u0438\u043b\u0438 \u0433\u0440\u0443\u043f\u043f\u0443 \u0432 \u0441\u043e\u0446\u0441\u0435\u0442\u044f\u0445 (\u0412\u043a\u043e\u043d\u0442\u0430\u043a\u0442\u0435). \u041f\u0440\u0438 \u044d\u0442\u043e\u043c \u0441 \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u043e\u0439, \u0442\u0435\u043a\u0441\u0442\u043e\u043c \u0438 \u0441\u0441\u044b\u043b\u043a\u043e\u0439. <br \/>  <img decoding=\"async\" src=\"http:\/\/habr.habrastorage.org\/post_images\/dce\/f77\/094\/dcef77094f84ad36551982eef0bb3f24.png\" width=\"300\"\/><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"class_list":["post-211198","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/211198","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=211198"}],"version-history":[{"count":0,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/211198\/revisions"}],"wp:attachment":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=211198"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=211198"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=211198"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}