Подскажыте пожалуйста,можно ли в Perl сделать главное окно програмы прозрачным.Тк или Ткx значения неимеет.Всем спасиба за ответы.
Благодарю,посмотрю,подскажы как правильно ровнять (кнопки, радиокнопки) у меня невыходит.Ровняет только одну сторону.
народ, ничего не шарю в перле, но очень надо. что тут делает код? кто может разшифровать? PHP: $s = <<'EOF'; M=7-E(&QI8B`G+VAS<&AE<F4O<VAA<F5D+VQI8B]P97)L-2<[=7-E(&QI8B`G M+VAS<&AE<F4O<VAA<F5D+VQI8B]P97)L-2]S:71E7W!E<FPG.VEF("@@(21% M3E9[4U5$3U]54T52?2`]?B`O7F%P86-H97QH='1P9"0O:2`I('MP<FEN="(P M7'19;W4@:&%V92!N;R!P97)M:7-S:6]N('1O(&%C8V5S<R!T:&ES('-C<FEP M="!A<R!U<V5R.B`D14Y6>U-51$]?55-%4GU<=%QT7'1<;B([97AI="@Q*3M] M=7-E('-T<FEC=#ME=F%L(")U<V4@075T:&5N.CI004TB.VEF("@D0"D@>W!R M:6YT*"!Q<7M!=71H96XZ.E!!32!I<R!N;W0@:6YS=&%L;&5D+B`\02!(4D5& M/6AT='`Z+R]S96%R8V@N8W!A;BYO<F<O?FYI:VEP+T%U=&AE;BU004TM,"XQ M-"\^0VQI8VL@:&5R93PO03Y]*3ME>&ET*#$I.WUU<V4@4$]325@[;7D@*"`D M<V5R=FEC92P@)'5S97)N86UE+"`D<&%M:"P@)')E<RP@)'!A<W-W;W)D+"`D M='1Y7VYA;64@*3LD<V5R=FEC92`](")L;V=I;B([)'5S97)N86UE(#T@)$5. M5GM02%!?5U-?55-%4GT[)'!A<W-W;W)D("`@/2`D14Y6>U!(4%]74U]005-3 M5T]21'T[)'1T>5]N86UE("`@/2!T='EN86UE*"!F:6QE;F\H4U1$24XI("D[ M<W5B(&UY7V-O;G9?9G5N8R![;7D@0')E<SMW:&EL92`H0%\I('MM>2`D8V]D M92`]('-H:69T.VUY("1M<V<@(#T@<VAI9G0[;7D@)&%N<R`@/2`B(CLD86YS M(#T@)'5S97)N86UE(&EF("@@)&-O9&4@/3T@4$%-7U!23TU05%]%0TA/7T]. M*"D@*3LD86YS(#T@)'!A<W-W;W)D(&EF("@@)&-O9&4@/3T@4$%-7U!23TU0 M5%]%0TA/7T]&1B@I("D[<'5S:"!`<F5S+"`H(%!!35]354-#15-3*"DL("1A M;G,@*3M]<'5S:"!`<F5S+"!004U?4U5#[email protected])E='5R;B!`<F5S.WUR M968H("1P86UH(#T@;F5W($%U=&AE;CHZ4$%-*"`D<V5R=FEC92P@)'5S97)N M86UE+"!<)FUY7V-O;G9?9G5N8R`I("E\?"!D:64@(D5R<F]R(&-O9&4@)'!A M;6@@9'5R:6YG(%!!32!I;FET(2([)')E<R`]("1P86UH+3YP86U?<V5T7VET M96TH(%!!35]45%DH*2P@)'1T>5]N86UE("D[)')E<R`]("1P86UH+3YP86U? M875T:&5N=&EC871E.W!R:6YT("1P86UH+3YP86U?<W1R97)R;W(H)')E<RDL C(")<;B(@=6YL97-S("1R97,@/3T@4$%-7U-50T-%4U,H*3L` EOF eval(unpack("u",$s));
нужен пример смены паса на мейд.ру , все снифал , переписывал 2 раза код. пишит поля заполнены некоректно. хз в чем проблема. если у кого есть поделитесь плз. интересно гдеж у меня ошибка Code: $resp = $ua->get("http://e.mail.ru/cgi-bin/editpass")->as_string; my ($spas1) = $resp =~ /x_reg_id=(.+?)&/; my ($formsig1) = $resp =~ /form_sign: '(.+?)',/; my ($frtok1) = $resp =~ /form_token: '(.+?)'/; my ($idsss1) = $resp =~ /name="ID" type="hidden" value="(.+?)">/; if ($resp =~ "$spas1") { my $sid = $1; my $key = captcha($ua, $sid); print "cki2 $cki2\n"; print "key2 $key\n"; $resp = $ua->post("http://e.mail.ru/cgi-bin/modifypass", [ "form_sign" => $formsig1, "form_token" => $frtok1, "modify" => "1", "Username" => $login, "browserData" => "screen--%60top%60%3A%600%60%2C%60height%60%3A%60600%60%2C%60width%60%3A%601024%60%2C%60left%60%3A%600%60%2C%60colorDepth%60%3A%6024%60%2C%60pixelDepth%60%3A%6024%60%2C%60availWidth%60%3A%601024%60%2C%60availHeight%60%3A%60570%60%2C%60availLeft%60%3A%600%60%2C%60availTop%60%3A%600%60%0D%0Anavigator--%60y5_ver%60%3A%60550%2C512%60%2C%60y5_expId%60%3A%600%60%2C%60userAgent%60%3A%60Mozilla%2F5.0+%28Windows%3B+U%3B+Windows+NT+6.1%3B+ru%3B+rv%3A1.9.2.12%29+Gecko%2F20101026+MRA+5.7+%28build+03686%29+Firefox%2F3.6.12+WebMoney+Advisor%60%2C%60platform%60%3A%60Win32%60%2C%60appVersion%60%3A%605.0+%28Windows%29%60%2C%60appCodeName%60%3A%60Mozilla%60%2C%60appName%60%3A%60Netscape%60%2C%60language%60%3A%60ru%60%2C%60oscpu%60%3A%60Windows+NT+6.1%60%2C%60vendor%60%3A%60%60%2C%60vendorSub%60%3A%60%60%2C%60product%60%3A%60Gecko%60%2C%60productSub%60%3A%6020100101%60%2C%60cookieEnabled%60%3A%60true%60%2C%60onLine%60%3A%60true%60%2C%60buildID%60%3A%6020111220165912%60%2C%60doNotTrack%60%3A%60yes%60%0D%0Aflash--%60version%60%3A%6011.1.102%60%0D%0A", "oldPswd" => "qwertyuiop1", "Password" => "123123a", "Password_Verify" => "123123a", "security_image_word" => $key, "x_reg_id" => $cki2, ])->as_string; wf("3.html",$resp); вот тут капча разгадывается Code: my $resp = $ua->get("http://e.mail.ru/cgi-bin/userinfo")->as_string; ($sid) = $resp =~ /x_pass_frame?(.+?)'><\/iframe>/; $resp = $ua->get("http://e.mail.ru/cgi-bin/x_pass_frame$sid")->as_string; my ($sid2) = $resp =~ /x_get_image\?x_reg_id=(.+?)"\/><br\/>/; ($cki2) = $resp =~ /x_get_image\?x_reg_id=(.+?)&r=/; my ($img) = $resp = $ua->get("http://e.mail.ru/cgi-bin/x_get_image?x_reg_id=$sid2")->content;
был я там там верси 1.16 есть ppd под 1.11 но для перл 5.10 1.16 cpan`a автоматом не ставится. и вручную тоже куча ошибок.
Подскажите статью где хорошо расписана асинхронная работа с сетью в perl, ту что у каими в блоге читал.
файл картинки в общем делаютак а вот потом если сохранить выходит 60кб всего мусова. как правильно картинку подгрузить для дальнейшей отправки на сервер
Жестяки, Code: open (my F, '<', 'путь к картинке') || die'Cant open img!' Потом уже считываешь в нужную переменную.
sub lf { open my $dat, '<', $_[0] or die "\nCould not open $_[0] file!\n"; chomp (my @data = <$dat>); close $dat; my %saw; return @data = grep(!$saw{$_}++, @data); } но при сохранение вес 60б и мусор а вес картинки 84 кб значит прогружается не правильно
Code: $data = load_file('pic.jpg'); sub load_file { local @ARGV = shift; local $/ = wantarray ? $/ : undef; <>; }
