🚀 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 04:25
perl ssh
#51364
Author: karraso
Date: Wed, 07 Nov 2012 04:25
10 lines
371 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
#51366
Author: karraso
Date: Wed, 07 Nov 2012 09:23
10 lines
236 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
#51365
Author: "Stachu 'Dozzie'
Date: Wed, 07 Nov 2012 12:50
16 lines
542 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
#51367
Author: Bartosz =?UTF-8?
Date: Wed, 07 Nov 2012 18:35
23 lines
712 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
#51368
Author: karraso
Date: Thu, 08 Nov 2012 06:28
23 lines
750 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
#51370
Author: karraso
Date: Thu, 08 Nov 2012 11:19
21 lines
983 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
#51369
Author: hubert depesz lu
Date: Thu, 08 Nov 2012 17:36
14 lines
556 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
#51371
Author: hubert depesz lu
Date: Thu, 08 Nov 2012 22:39
19 lines
1161 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
#51372
Author: karraso
Date: Fri, 09 Nov 2012 00:12
10 lines
219 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
#51373
Author: karraso
Date: Fri, 09 Nov 2012 04:19
29 lines
616 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
#51375
Author: karraso
Date: Fri, 09 Nov 2012 05:25
12 lines
507 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


Re: perl ssh
#51374
Author: "Stachu 'Dozzie'
Date: Fri, 09 Nov 2012 12:57
18 lines
451 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

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