moldu

moldu
Рейтинг
432
Регистрация
27.04.2006
Изменения в модераторском составе
BUFO:
Стало быть не зря дядя Коля выступил

Не зря конечно! Еще бы сам согласился на предложение, а то только подстрекает:p

Изменения в модераторском составе

Каширин, поздравляю! Как, все таки, радуют последние изменения на форуме. :p

chaif, с Днем Рождения!

С Днем Рождения!

Shunya с ДР!

С Днем Рождения! Успехов!

FTP и скрипт на Perl
Хелпзонович:
Вставить -
$s1->binary;

Именно то что нужно!

СПАСИБО Вам огромное. Ник соответствует на 100% ;)

Новости из колхоза "Поисковый Мотор"

Выйдя ночью на крылечко покурить самосаду дед бабки Аглаи ( его прям так и звали "дед бабки Аглаи", потому как никто ни помнил, включая его самого, как его зовут, столько лет ему было ;-) ) достал дрожащими пальцами из кармана клочек бумаги для того чтоб завернуть козу, да чтото превлекло его внимание на этом клочке. Это был обрывок из старого учебника, найденного бабкой в окресностях школы в начале лета ( "ну и прям, не газеты ж ему покупать для гадости этой вонючей, так ведь денег никаких не напасешься" - любила приговаривать бабка Аглая находя старые книги - "бумага она и есть бумага, все стерпит"). На клочке было всего два абзаца текста и на обороте какая то картинка с изображением корабля. "Про море, наверое" - подумал дед и улыбнулся, текст он прочитать не мог, глаза давно ослабли, поэтому и вглядываться в него не стал.

Вечером 24 октября революционные силы перешли в наступление. В 5 часов ВРК взял под свой контроль Центральный телеграф. Направленные туда комиссары убедили перейти на свою сторону охранявший здание телеграфа караул Кексгольмского резервного полка. Одновременно ВРК отправил условную телеграмму в Гельсингфорс (ныне Хельсинки) в адрес Центробалта, Областного комитета армии и флота и рабочих Финляндии. В телеграмме было одно слово: «Устав», означавшее начало восстания. В 9 часов были заняты помещение Петроградского телеграфного агентства и Балтийский вокзал.

Ночью 24—25 октября события стали развиваться ещё более стремительно. Были захвачены все вокзалы города, а в 3 часа 30 минут ночи к Николаевскому мосту на Неве подошёл крейсер «Аврора». При его появлении охранявшие мост юнкера разбежались, и пролёты моста были сведены. В это же время под контроль большевиков перешли почтамт и городская электростанция. К утру революционные солдаты заняли Центральную телефонную станцию и Государственный банк. Большевики получили в свои руки практически все нити управления столицей.
Требуется создание сайта + раскрутка + обучение поддержке в топе

eliteMobile.net, отказаться могут и здесь-люди есть люди, гарантии выбирает каждый себе сам, просто там люди выкладывают свои портфолио, а здесь многие тихарятся, только через личку показывают, пока они Ваше сообщение увидят, пока на него ответят, а на сайтах для фрилансеров все как на ладони.

Кстати, многие местные там тоже представлены и оттуда народ сюда приходит, работы свои показывает ;)

Зарегистрировать ООО, как?
Remake:
Это вроде уже не проходит. Адреса ТАРП в черном списке у налоговой.

Странно, 3 месяца назад регистрировали фирму, все ОК. Выбрали 20 налоговую, бухам нравится как там с ними общаются, и зарегистрировались в ТАРПе ЮАО. А про черные списки не верьте ;-) это все от лукавого 😡 😂 😂 😂

Требуется создание сайта + раскрутка + обучение поддержке в топе

Совет, поищите по форуму, можно найти несколько человек которые могут сделать Вам неплохой дизайн в диапазоне Ваших цен. Портфолио или уже выложены или вышлют Вам в личку. Есть еще вариант копать на free-lance.ru и weblancer.net.

FTP и скрипт на Perl

Внизу приведен скрипт закачки файлов с сервера на локальную машину, исполняется скрипт на локальной машине, подключенной к инету. Есть одна догадка, до этого хостились у Корбины(не известно какой хостинг) и 1гб (Win хостинг) , а сейчас пробовал и Мастерхост (UNIX хостинг) и Infobox (вроде как тоже UNIX хостинг) , может в этом загвоздка? Но скрипт однозначно работает, частично, но работает, битыми приходят НЕ ВСЕ файлы.

Менять расширения файлов не пробовал.

use Net::FTP;

$host_name='host.ru';
$login='логин';
$password='пасс';

$dir='/дир';

open L,">>getp_log";
$time=Time();
print L "$time -> getp\n";


print "Устанавливаем соединение с сервером\n";
$s1=Net::FTP->new($host_name,'Passive'=>1) or die "Соединение НЕ установлено, проверте наличие связи.";
print "Соединение установлено\n";
print "Авторизация\n";
$s1->login($login,$password) or die "err login";

$time=Time();
print L "$time -> login ok\n";

print "Авторизация пройдена\n\n";
$s1->cwd($dir) or die "err cwd";

system 'deltree /Y дир2\\*';
chdir 'дир2' or die 'err chdir';

print "\n";

@ls=$s1->dir() or $s1->quit() and die "err ls";

foreach (@ls)
{
s/^.*\s+(.+)$/$1/;
if(/\.bz2$/)
{
print "Скачиваем $_\n";
$s1->get($_) or print "err get $_";

$time=Time();
print L "$time -> $_ ok\n";

++$i;
}
}

print "\nЗакрываем соединение\n";
$s1->quit() or print "err quit";

$time=Time();
print L "$time -> quit ok\n";

print "Соединение закрыто\n\n";

chdir '..';

system 'copy /Y obpz\\*.bz2 obp';
system 'bzip2 -dvf obp\\*.bz2';

print "\n\nСКАЧЕНО $i ФАЙЛОВ"; <STDIN>;


#==============================sub===================================

sub Time
{
my($y,$m,$d,$h,$mi,$s)=reverse((localtime)[0..5]);
$y+=1900; ++$m;
return sprintf "%04s/%02s/%02s %02s:%02s:%02s", ($y,$m,$d,$h,$mi,$s);
}
1... 124412451246124712481249125012511252 ...1256
Всего: 12553