On Apr 28, 9:31 am, dthack...@gmail.com (Dave Thacker) wrote:
> Hi,
> I need to pull a file or files down every day that contain a specific
> string. Here's my code.
>
> #!/usr/bin/perl
> use strict;
> use Net::SCP;
>
> my $scp=' ';
> open (LO
Hi,
I need to pull a file or files down every day that contain a specific
string. Here's my code.
#!/usr/bin/perl
use strict;
use Net::SCP;
my $scp=' ';
open (LOG, ">>/home/wesaysopost/logs/retrieve-wesayso-results.log") or die
"Can't open logfile&q
2008/9/22 Vyacheslav Karamov <[EMAIL PROTECTED]>:
> Dermot пишет:
>>
>> Hi,
>>
>> I installed Net::SCP as I was reminded of the module in a recent post.
>>
>> I need to copy files from one server to another. I generated ssh-keys
>> for a us
Dermot пишет:
Hi,
I installed Net::SCP as I was reminded of the module in a recent post.
I need to copy files from one server to another. I generated ssh-keys
for a user and I can use
scp test.txt myserver:/home/somedude/mytest.txt
without passwords when I su to that user but when I run the
Hi,
I installed Net::SCP as I was reminded of the module in a recent post.
I need to copy files from one server to another. I generated ssh-keys
for a user and I can use
scp test.txt myserver:/home/somedude/mytest.txt
without passwords when I su to that user but when I run the script as
ion proceed [y/N] for
the second I have to kill the cmd window to get back.
Any thoughts?
#!/usr/bin/perl
use strict;
use warnings;
use Net::SCP qw / scp iscp /;
my $leases = 'hylafax:/var/state/dhcp/dhcpd.leases';
my $access = 'hylafax:/usr/local/squid/var/logs/access.log';
my
for
the second I have to kill the cmd window to get back.
Any thoughts?
#!/usr/bin/perl
use strict;
use warnings;
use Net::SCP qw / scp iscp /;
my $leases = 'hylafax:/var/state/dhcp/dhcpd.leases';
my $access = 'hylafax:/usr/local/squid/var/logs/access.log';
my $scp = Net
Paul Kraus wrote:
> Code
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> &dhcpd;
>
> sub dhcpd {
> use Text::DHCPparse;
> use Net::SCP qw( scp iscp );
> my $scp = Net::SCP -> new( 'hylafax', 'pkraus' );
Could i
On Jan 5, 2004, at 12:32 PM, drieux wrote:
On Jan 5, 2004, at 10:49 AM, Paul Kraus wrote:
Code
#!/usr/bin/perl
use strict;
use warnings;
&dhcpd;
sub dhcpd {
use Text::DHCPparse;
use Net::SCP qw( scp iscp );
my $scp = Net::SCP -> new( 'hylafax', 'pk
On Jan 5, 2004, at 10:49 AM, Paul Kraus wrote:
Code
#!/usr/bin/perl
use strict;
use warnings;
&dhcpd;
sub dhcpd {
use Text::DHCPparse;
use Net::SCP qw( scp iscp );
my $scp = Net::SCP -> new( 'hylafax', 'pkraus' );
$scp -> get ( 'dhcpd.leases'
Code
#!/usr/bin/perl
use strict;
use warnings;
&dhcpd;
sub dhcpd {
use Text::DHCPparse;
use Net::SCP qw( scp iscp );
my $scp = Net::SCP -> new( 'hylafax', 'pkraus' );
$scp -> get ( 'dhcpd.leases' ) or die $scp->{errstr};
print "he
"'Jose Malacara'" <[EMAIL PROTECTED]>; "'R. Joseph Newton'"
<[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Wednesday, October 01, 2003 9:59 AM
Subject: RE: Fw: Net::SCP::Expect
> Perhaps you should automate ssh logins by using a key th
Perhaps you should automate ssh logins by using a key that requires no
passphrase, in other words so you can just "ssh [EMAIL PROTECTED]" and
you're in with no interaction required. Then you don't need expect for
that.
Also, have you tried using the hostname IP address, just to see what
happens?
.
- Original Message -
From: "R. Joseph Newton" <[EMAIL PROTECTED]>
To: "Jose Malacara" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Wednesday, October 01, 2003 7:49 AM
Subject: Re: Fw: Net::SCP::Expect
> Jose Malacara wrote:
>
> > Sor
all but the SCP example code and it still generates an error from the
> module. I verified my login, directory and filenames were correct by sending the
> file manually.
>
> I am running Perl v5.8.0, Expect-1.14, and Net-SCP-Expect-0.10
>
> use Net::SCP::Expect;
> my $host =
generates an error from the
module. I verified my login, directory and filenames were correct by sending the file
manually.
I am running Perl v5.8.0, Expect-1.14, and Net-SCP-Expect-0.10
#The Script
#!/usr/bin/perl -w
use strict;
use Net::SCP::Expect;
my $host = "host.whatever";
my $use
filenames were correct by sending the file
manually.
I am running Perl v5.8.0, Expect-1.14, and Net-SCP-Expect-0.10
===The script===
#!/usr/bin/perl -w
use strict;
use Net::SCP::Expect;
my $host = "host.whatever";
my $user = "josem";
my $pwd = "password";
m
Did anybody get Net::SCP to work in an NT env machine?
I tried
use Net::SCP qw(scp iscp);
...
...
$scp = Net::SCP->new( $hostname, $username ) or die "foo";
scp("$username\@$hostname\:$remote_dir$filename", "c:\\$filename") or die
"bar";
but the pr
18 matches
Mail list logo
