Цитата:
Как писал Clown
Я не совсем тебя понял. Может ты всё-таки Unix имеешь в виду, а не perl? Perl (Practical Extraction and Report Language) - это язык, а не OS. Или ты хочешь версию perl интерпретаторa на сервере определить?
"Операционка" на FTP вообще-то не "стоит", можно ещё с натяжкой сказать, что FTP сервер стоит на операционке....
Лучше объясни толком, что ты хочешь сделать - практически....
|
Нет, я не ошибся. Я хочу создать скрипт на перле, но не могу кое что сделать. Короче, мне нужно сделать скрипт, который соеденится с фтп-сервером и определит его ОС и возможность на докачку с него. Вот например если взять лог конекта к фтп-серверу через фтп-клиент -
Цитата:
Connected to Х.Х.Х.Х Port 21
220 tcssvr Microsoft FTP Service (Version 3.0).
USER anonymous
331 Anonymous access allowed, send identity (e-mail name) as password.
PASS (hidden)
230 Anonymous user logged in.
SYST
215 Windows_NT version 4.0
CWD /
250 CWD command successful.
PWD
257 "/" is current directory.
List (cached)
List Complete.
|
то строка
215 Windows_NT version 4.0 показывает операционку фтп-сервера(конечно это не всегда верно, так как можно туда самаму вписать всё что угодно, но в большенстве случаев это верно). Исползую модуль NET::FTP для подключения к серверу. Ну а как получить логи в перле не знаю, чтобы вытащить оттуда потом строку с операционкой сервера. Ну а как определить возможность на докачку сервера я тоже не знаю. Как это всё можно реализовать?
Ну а второе, я просто хочу использовать команду в скрипте. В фтп-клиенте я её писал так -
list -aF ../*/ и она мне выдавала список фаилов и папок. А как мне её писать на перле?
Надеюсь теперь всё понятно!
Заранее спасибо!