🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: pl.comp.lang.perl
12 messages
12 total messages Started by karraso Wed, 07 Nov 2012 12:25
perl ssh
#52468
Author: karraso
Date: Wed, 07 Nov 2012 12:25
8 lines
1235 bytes
Witam
Panie i panowie mam na Windowsie zainstalowanego perla 5.14.2 i chciałbym korzystać z ssh, szukam modułu pod tego perla.
Szukam szukam i nie mogę znależć pod tę wersję. 
Generalnie zainstalowałem Net::SSH 
Niestety przy wywoływaniu otrzymuję
Permission denied (publickey,password,keyboard-interactive).
Jak sobie z tym poradzić?
Pzdr
Re: perl ssh
#52469
Author: Stachu 'Dozzie' K.
Date: Wed, 07 Nov 2012 12:50
15 lines
1758 bytes
On 2012-11-07, karraso <gkrasinski@gmail.com> wrote:
> Witam
> Panie i panowie mam na Windowsie zainstalowanego perla 5.14.2 i chciałbym korzystać z ssh, szukam modułu pod tego perla.
> Szukam szukam i nie mogę znależć pod tę wersję. 
> Generalnie zainstalowałem Net::SSH 
> Niestety przy wywoływaniu otrzymuję
> Permission denied (publickey,password,keyboard-interactive).
> Jak sobie z tym poradzić?

Czytałeś FAQ?
http://search.cpan.org/~ivan/Net-SSH-0.09/SSH.pm#___top

-- 
Secunia non olet.
Stanislaw Klekot
Re: perl ssh
#52470
Author: karraso
Date: Wed, 07 Nov 2012 17:23
8 lines
1543 bytes
Witam
Czytałem.
Teraz mam info
Nazwa 'ssh' nie jest rozpoznawana jako polecenie wewnętrzne lub zewnętrzne,
program wykonywalny lub plik wsadowy.

Czy w windowsie da się skorzystać z perla5.14.2 i z modułu ssh?
Pozdrawiam
Re: perl ssh
#52471
Author: Bartosz Feński aka fEnIo
Date: Wed, 07 Nov 2012 17:35
22 lines
1744 bytes
W artykule karraso napisał(a):

> Czytałem.
> Teraz mam info
> Nazwa 'ssh' nie jest rozpoznawana jako polecenie wewnętrzne lub zewnętrzne,
> program wykonywalny lub plik wsadowy.

To teraz przeczytaj sekcję SEE ALSO ze szczególnym uwzględnieniem pierwszej
linijki.

> Czy w windowsie da się skorzystać z perla5.14.2 i z modułu ssh?

Jak się ma mózg i odrobinę dobrej woli to da się.

pozdr,
fEnIo

-- 
  ,''`.  Bartosz Fenski | mailto:fenio@debian.org | pgp:0x13fefc40 | irc:fEnIo
 : :' :       32-050 Skawina - Glowackiego 3/15 - malopolskie v. - Poland
 `. `'           phone:+48602383548 | proud Debian maintainer and user
   `-            http://fenski.pl | xmpp:fenio@jabber.org | rlu:172001
Re: perl ssh
#52472
Author: karraso
Date: Thu, 08 Nov 2012 14:28
17 lines
2330 bytes
Witam
Super ale 
For a perl implementation that does not require the system ssh command, see Net::SSH::Perl instead.
Jest niedostępne pod win perl 5.14

Zrobiłem to juz za pomocą OpenSSH i działa. Jednak mam kolejny problem. 
Mogę sie logować jak na razie za pomocą podawania hasła, jednak problem w tym że nie mogę przypisać wyniki komendy do zmiennej.
Mam np

use Net::SSH qw(issh);
$command = "pwd";
$test=issh('abc@ip_address',$command); 
print "wynik: $test\n";

I to nie działa wynik: 0.
Dodatkowo na wyjściu widzę cały obraz powitalny :)
Czy istnieje zatem możliwość zapisania tylko wyniku komendy do zmiennej lub tablicy. Jeśli tak to poproszę o pomoc bo mi już witki opadają.
Re: perl ssh
#52473
Author: hubert depesz lubaczewski
Date: Thu, 08 Nov 2012 16:36
13 lines
1853 bytes
On 2012-11-08, karraso <gkrasinski@gmail.com> wrote:
> $test=issh('abc@ip_address',$command); 
> I to nie działa wynik: 0.
> Dodatkowo na wyjściu widzę cały obraz powitalny :)
> Czy istnieje zatem możliwość zapisania tylko wyniku komendy do zmiennej lub tablicy. Jeśli tak to poproszę o pomoc bo mi już witki opadają.

perldoc Net::SSH sugeruje ssh_cmd lub sshopen{2,3}.

depesz

-- 
The best thing about modern society is how easy it is to avoid contact with it.
                                                             http://depesz.com/
Re: perl ssh
#52474
Author: karraso
Date: Thu, 08 Nov 2012 19:19
10 lines
2598 bytes
> perldoc Net::SSH sugeruje ssh_cmd lub sshopen{2,3}.
Witam
Dzięki za odpowiedź, 
Problem w tym że nie jestem dobry w programowaniu i jeśli coś piszę to wyłącznie dla siebie. Z Net::SSH męczę się już kilka dni i nie wychodzi mi zapisywanie do zmiennej lub tablicy. Szukałem w necie przykładów dla Net::SSH ale praktycznie nie ma. 
Nie wiem w jaki sposób przekazywac argumenty ssh_cmd, nie wiem w jaki sposób zapisać wynik komendy do tablicy. Z Net::Telnet nie miałem problemu :).
Jak juz pisałem orłem nie jestem, jeżeli coś przeczytałem ale dalej nie wiem jak coś zrobić to tego nie zrobię. Piszę na grupę w ostateczności.
Nie proszę was o napisanie za mnie całego programu lecz tylko o jego fragment :)
Zatem pytam czy pomożecie mi jak przekazać pewne argumenty oraz jak zapisać wynik do tablicy z wydanej komendy?
Z resztą już sobię poradzę. 
Dzięki za wyrozumiałość.
Re: perl ssh
#52475
Author: hubert depesz lubaczewski
Date: Thu, 08 Nov 2012 21:39
18 lines
2450 bytes
On 2012-11-08, karraso <gkrasinski@gmail.com> wrote:
>> perldoc Net::SSH sugeruje ssh_cmd lub sshopen{2,3}.
> Witam
> Dzięki za odpowiedź, 
> Problem w tym że nie jestem dobry w programowaniu i jeśli coś piszę to wyłącznie dla siebie. Z Net::SSH męczę się już kilka dni i nie wychodzi mi zapisywanie do zmiennej lub tablicy. Szukałem w necie przykładów dla Net::SSH ale praktycznie nie ma. 
> Nie wiem w jaki sposób przekazywac argumenty ssh_cmd, nie wiem w jaki sposób zapisać wynik komendy do tablicy. Z Net::Telnet nie miałem problemu :).
> Jak juz pisałem orłem nie jestem, jeżeli coś przeczytałem ale dalej nie wiem jak coś zrobić to tego nie zrobię. Piszę na grupę w ostateczności.
> Nie proszę was o napisanie za mnie całego programu lecz tylko o jego fragment :)
> Zatem pytam czy pomożecie mi jak przekazać pewne argumenty oraz jak zapisać wynik do tablicy z wydanej komendy?

my $output = ssh_cmd( 'depesz@blob.home.depesz.com', 'id -un' );

depesz


-- 
The best thing about modern society is how easy it is to avoid contact with it.
                                                             http://depesz.com/
Re: perl ssh
#52476
Author: karraso
Date: Fri, 09 Nov 2012 08:12
9 lines
1520 bytes
> 
> my $output = ssh_cmd( 'depesz@blob.home.depesz.com', 'id -un' );

Ja robiłem
use Net::SSH qw(issh);
$command = "pwd";
$test=issh('user@host',$command); 
print $test;
I zwraca mi wartość 0
Re: perl ssh
#52477
Author: karraso
Date: Fri, 09 Nov 2012 12:19
28 lines
2198 bytes
Witam
Ok doszedłem do kroku w którym mi działa z perla

open(wynik, ">plik.txt");
use Net::SSH qw(sshopen2);
#use strict;

 $user = "user";
 $host = "host";
 $cmd = "/bin/bash";
 @commands = ('ls -l');

sshopen2("$user\@$host", *READER, *WRITER, "$cmd") || die "ssh: $!";
foreach(@commands) {
    print WRITER "$_ && echo DDDOOONNNEEE\n";
    while (<READER>) {
      chomp();
     push (@tablica, $_);
	  last if /DDDOOONNNEEE/;
      print "$_\n";
	  
  }
}
print wynik "@tablica";

Problem w tym że nie działa w CGI :(
Macie jakiś pomysł co robię źle.
Pzdr
Re: perl ssh
#52478
Author: Stachu 'Dozzie' K.
Date: Fri, 09 Nov 2012 12:57
17 lines
1997 bytes
On 2012-11-09, karraso <gkrasinski@gmail.com> wrote:
> Witam
> Ok doszedłem do kroku w którym mi działa z perla
[...]
> use Net::SSH qw(sshopen2);
[...]
> Problem w tym że nie działa w CGI :(
> Macie jakiś pomysł co robię źle.

Ała! Ała! Moje oczy!
Odpieprz się od SSH w CGI, to jest kretynizm! Od takich rzeczy jest RPC!

http://dozzie.jogger.pl/2011/10/28/kung-fu-administratora-rpc/

-- 
Secunia non olet.
Stanislaw Klekot
Re: perl ssh
#52479
Author: karraso
Date: Fri, 09 Nov 2012 13:25
5 lines
1954 bytes
Witam
Krytyka przyjęta, jednak ponawiam pytanie jak to zrobić w CGI, później zastanowię sie nad tym co pisałeś. Teraz muszę zrobić to w CGI. Zatem gdzie jest błąd w CGI.
Staszek to jest jedna stronka dla 2 userów, wykorzystywana dodatkowo bardzo rzadko. 
Staszku wiem że to nie jest po twojemu ale wskaż mi błąd lub pokieruj, bo wiem że rozwiązania na tacy mi nie podasz. Ot taka natura, ale sam wiem że podanie na tacy nie zmusza do myslenia.
Pozdrawiam
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads