Perl i SSH w jednaj stajni stały

O ile moja przygoda z sieciowym programowaniem nie jest nowa, o tyle wpis ten rozpocznie cykl artykułów poświęconych sieciowemu programowaniu czyli jak usprawniać pewne procesy, które są żmudne i nudne. Po to ludzkość wymyśliła komputery, aby takie czynności powierzać maszynom! Podstawy łączenia po protokole SSH z poziomu perla czas zacząć…!

Najpierw przygotowanie środowiska. Platforma bazowa to Linux Debian 8.3.0-amd64

Przed instalacją modułów perla trzeba doinstalować potrzebne paczki, bez których nic nie zdziałamy

„apt-get install make gcc gcc-4.8 libssh-4 libssh-gcrypt-4 libssh-dev libssh2-1-dev”

Po instalacji paczek instalujemy potrzebne moduły perla

„cpan App::cpanminus”

Od tej pory instalacja modułów perla poprzez cpanm

„cpanm Net::SSH2”

„cpanm Control::CLI”

Control::CLI to moduł, który jest bardzo fajnie udokumentowany z wieloma przykładami

-> http://search.cpan.org/~lstevens/Control-CLI/lib/Control/CLI.pm

Następnie tworzymy katalog w którym umieścimy skrypt oraz logi

Zanim zaczniemy pisać skrypt musimy jeszcze wygenerować klucze rsa – publiczny i prywatny

Poniżej listening samego skryptu – jest to baza, którą z czasem będę dalej uzupełniał o kolejne funkcjonalności. Zmienne jak i kod samego skryptu są trywialne i wydaje mi się, że każdy powinien sobie poradzić z ich edycją pod własne potrzeby. W razie czego piszcie w komentarzach, to zamieszczę szczegółowy opis.

Plik ze skryptem, można pobierać i edytować do swoich potrzeb

ssh_connect_app

Przed uruchomieniem trzeba jeszcze dodać atrybut wykonywalności dla skryptu

Test wykonania

Logi z połączenia