Есть скриптик для коньков, который должен брать цитату с bash.org.ru и обрабатывать её соответствующим образом.
Проблема заключается в том, что необходимо указать логин и пароль для авторизации на прокси сервере, а как это сделать я не знаю.
Вот собственно сам скрипт:
Код:
#!/usr/bin/perl -W
use strict;
#use LWP::Simple;
use LWP::UserAgent;
use Text::Wrap qw($columns &wrap);
# С помощью этого параметра указывается макс длина строки
$columns=60;
#Забираем цитату с сервака
my $browser = LWP::UserAgent->new;
$browser->env_proxy;
#$browser->proxy(['http'], '192.168.1.253:3128');
my $URL="http://bash.org.ru/forweb/?u";
my $content = $browser->get($URL);
#обрабатываем, оставляем только текст
$content=~/\<\'\s\+\s\'br\>(.*)\<\'\s\+\s\'br\>/;
$content=$1;
$content=~s/\<\'\s\+\s\'br\>/\n/g;
$content=~s/\<\'\s\+\s\'br\s+\/\>/\n/g;
$content=~s/\<//g;
$content=~s/\>//g;
$content=~s/\"\;/\"/g;
print wrap("", "", $content);
#print $content;
print "\n";
#the end
Пробовал указать в .bashrc:
http_proxy=http://user:pass@192.168.1.253:3128/
HTTP_PROXY=$http_proxy
export http_proxy HTTP_PROXY
Но это тоже не помогло.
Выдаёт следующее сообщение:
Use of uninitialized value in substitution (s///) at /home/denisenko/.conky/bash.sh line 22.
Use of uninitialized value in substitution (s///) at /home/denisenko/.conky/bash.sh line 23.
Use of uninitialized value in substitution (s///) at /home/denisenko/.conky/bash.sh line 24.
Use of uninitialized value in substitution (s///) at /home/denisenko/.conky/bash.sh line 25.
Use of uninitialized value in substitution (s///) at /home/denisenko/.conky/bash.sh line 26.
Use of uninitialized value in join or string at /usr/share/perl/5.8/Text/Wrap.pm line 35.
