Re: Ok, this time Net::SSH2 question :-)

2006-10-29 Thread Michael Alipio
Hi, Do you know if I still need to do something to enable Net::SSH::Perl to use Math::GMP, Math::Pari.. I just build and installed those two modules, even rebuild and reinstall Net::SSH::Perl but the session is still taking so long. I notice that Net::SSH::Perl is much extensive and example cod

Re: Need help w/ reqexp, capture and substitue

2006-10-29 Thread Shawn Milochik
On Oct 29, 2006, at 7:56 PM, Dennis G. Wicks wrote: Shawn Milochik wrote: This seems to work for me: #!/usr/bin/perl -w use strict; while () { chomp; print "Original: $_\n"; $_ =~ s/^([EMAIL PROTECTED])(@.+&\d+&)([&]{5})/$1$2$1$3/; print "Modified: $_\n"; } Ho

Ok, this time Net::SSH2 question :-)

2006-10-29 Thread Michael Alipio
Hi, After reading the docs, I ended up with these lines: #!/usr/local/bin/perl use warnings; use strict; use Net::SSH2; my $ssh2 = Net::SSH2->new(); $ssh2->method('HOSTKEY', 'ssh-rsa'); $ssh2->connect('192.168.1.1') or die; $ssh2->auth_publickey ('admin', '/root/.ssh/id_rsa.pub', '/root/.ssh/id

Re: Need help w/ reqexp, capture and substitue

2006-10-29 Thread John W. Krahn
Dennis G. Wicks wrote: > Greetings; Hello, > I frequently have to convert some address books from one format to > another. This is what I need to do. > > Input records are like this: > > [EMAIL PROTECTED]&Thu Oct 26 07:20:03 2006&1&&& > > The output record needs to be like this: > > [

Re: Need help w/ reqexp, capture and substitue

2006-10-29 Thread Dennis G. Wicks
Shawn Milochik wrote: This seems to work for me: #!/usr/bin/perl -w use strict; while () { chomp; print "Original: $_\n"; $_ =~ s/^([EMAIL PROTECTED])(@.+&\d+&)([&]{5})/$1$2$1$3/; print "Modified: $_\n"; } Hope it helps. Shawn Thanks Shawn! That works pe

Re: Need help w/ reqexp, capture and substitue

2006-10-29 Thread Rob Dixon
Dennis G. Wicks wrote: Greetings; I frequently have to convert some address books from one format to another. This is what I need to do. Input records are like this: [EMAIL PROTECTED]&Thu Oct 26 07:20:03 2006&1&&& The output record needs to be like this: [EMAIL PROTECTED]&Thu Oct 2

Re: Need help w/ reqexp, capture and substitue

2006-10-29 Thread Shawn Milochik
This seems to work for me: #!/usr/bin/perl -w use strict; while () { chomp; print "Original: $_\n"; $_ =~ s/^([EMAIL PROTECTED])(@.+&\d+&)([&]{5})/$1$2$1$3/; print "Modified: $_\n"; } Hope it helps. Shawn -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additi

Need help w/ reqexp, capture and substitue

2006-10-29 Thread Dennis G. Wicks
Greetings; I frequently have to convert some address books from one format to another. This is what I need to do. Input records are like this: [EMAIL PROTECTED]&Thu Oct 26 07:20:03 2006&1&&& The output record needs to be like this: [EMAIL PROTECTED]&Thu Oct 26 07:20:03 2006&1&wix&&&

Re: goto???

2006-10-29 Thread Jay Savage
On 10/27/06, Shiping Wang <[EMAIL PROTECTED]> wrote: Hello, I try to use following code to check if a file is already exist, if it exists, then ask user to change file name or override it. I know using 'goto' is not preferred way here, but what's the 'right way' to do so? Thanks, Shiping

Re: Re: Can't access search.cpan.org

2006-10-29 Thread Jay Savage
On 10/28/06, C. R. <[EMAIL PROTECTED]> wrote: In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] says... > Hi, > > As of 3:43:18 pm here in Manila, Philippines, I can't access search.cpan.org.. Any idea why? > Either a computer between you and CPAN is down temporarily, or very busy, or perhaps y