Считаете, что Ubuntu недостаточно дружелюбна к новичкам? Помогите создать новое Руководство для новичков!
0 Пользователей и 1 Гость просматривают эту тему.
#!/usr/bin/perl -w## copyleft by absent (absent@ngs.ru), 01.03.2009# # modified by gwk (gwk@inbox.ru)# check mts balance form https://ihelper.mts.ru МТС-Москва# перестроен с Новосибирска на Москву, закомменчены сообщения о ходе работы, перекодировка в win1251 и пр., короче на выходе только циферка - состояние счёта use strict;#use warnings;use LWP;use Encode qw(from_to);######################### Сюда свой телефон и пароль помошникаmy $phone='**********';my $passwd='****';my $url = 'https://ihelper.mts.ru/Selfcare/login.aspx';my $url_status = 'https://ihelper.mts.ru/Selfcare/account-status.aspx';my $url_logout = 'https://ihelper.mts.ru/Selfcare/logoff.aspx';########################my $agent = LWP::UserAgent->new;push @{ $agent->requests_redirectable }, 'POST';$agent->cookie_jar({});# print "opening session...\n";# загружаем страницу с формой регистрацииmy $response = $agent->get($url);die "$url error: ", $response->status_line unless $response->is_success;# вытаскиваем супер секретные данные для прохождения регистрации$response->content =~ /id="__VIEWSTATE" value="(.+?)" \/>/;my $secret1 = $1;$response->content =~ /id="__EVENTVALIDATION" value="(.+?)" \/>/;my $secret2 = $1;# print "checking login/password...\n";$response = $agent->post($url, [ '__VIEWSTATE' => $secret1, '__EVENTVALIDATION' => $secret2, 'ctl00$phContent$tbPhoneNumber' => $phone, 'ctl00$phContent$tbPassword' => $passwd, 'ctl00$phContent$cbAgreement' => '1', 'ctl00$phContent$btnEnter' => '']);die "$url error: ", $response->status_line unless $response->is_success;# если нас завернуло - что-то не такif ($response->content =~ /ctl00\$phContent\$btnEnter/){ print "incorrect login or password\n"; exit 1;}# print "ok\n";# забираем страницу с данными о деньгах$response = $agent->get($url_status);# это чтобы забрать описание к деньгам с самого сайта# первое совпадение на тэг th - оно самое# $1 - "Ваш текущий баланс", $2 "руб."$response->content =~ /<th>(.+?)\((.+?)\)<\/th>/;my $b = $1;# my $r = $2;# накопления, нажитые непосильным трудом$response->content =~ /<td class="right">(.+?)<\/td>/;# my $money = $b.$1.' '.$r;# страница в UTF-8, переводим кодировку в консоль винды# from_to($money, 'UTF8', 'cp866');# print "\n", $money, "\n\n";#print $money, "\n";print $1, "\n";# print "Closing session...\n";$response = $agent->get($url_logout);# print "done.\n";exit 0;
критика приветствуется
Температура GPU у ATI карт выводится командой aticonfig --adapter=0 --od-gettemperatureКак бы вот вывод урезать до одной температуры и запихать это в мониторинг?
grep, cut, ..
${execi 3 aticonfig --adapter=0 --odgt | grep 'Temp' | cut -b37-40}
У меня при старте conky отображаются корректно, но вскоре, например после запуска Firefox, с них исчезает весь текст, выглядит это примерно вот так:Конфиг сделан на основе опубликованного Holly, лишь удален ненужный для меня текст, никакие скрипты не используются. Система eeebuntu с xfce4 и компизом. Подскажите, пожалуйста, как исправить это.
Осмелюсь повторить свой вопрос, возможно, у кого-то всё же есть мнение по этому поводу:
Страница сгенерирована за 0.035 секунд. Запросов: 25.