Re: Can a perl programmer find jobs today?

You may look into this in another way, it is indeed difficult to find a job to do pure Perl programming nowadays, but Perl is very commonly used by QA, DevOps, SRE. Having Perl/Python skills will help you get the positions in these domains, so don't just look for a Perl job. On Sat, Feb 18, 2023

Re: Using Net::SSH::Perl to execute a set of commands

at it fixed. > -Original Message- > From: Kelvin Wu [mailto:[EMAIL PROTECTED] > Sent: Monday, May 29, 2006 19:44 PM > To: Perl > Subject: Using Net::SSH::Perl to execute a set of commands > > Hi, > > I was trying to use Net::SSH::Perl to log into a remote box and execute

Using Net::SSH::Perl to execute a set of commands

Hi, I was trying to use Net::SSH::Perl to log into a remote box and execute a program with pre-defined commands, something like: #!/usr/bin/perl use strict; use Net::SSH::Perl; my $ssh = Net::SSH::Perl->new("ip", debug => 0); $ssh->login("name", "password"); my ($return) = $ssh->cmd("minicom

Re: match file name at end of a http url

if ($url =~ /\/([^\/]*)$/) { print $1; } On 26/04/06, Tom Phoenix <[EMAIL PROTECTED]> wrote: > > On 4/25/06, nishanth ev <[EMAIL PROTECTED]> wrote: > > > if( $url =~ /\/([\w.]*$)/ ){ > > print $1; > > } > > http://example.com/some-file.txt > > > > To process a URL requires more than a

KILL INT can not wake up $SIG{INT}

Hi list, Anyone has such experience? KILL INT pid cannot wake up $SIG{INT} sub{}. my code is like; $SIG{INT} = sub {#load pm} $SIG{ALRM} = sub {print "Driver $pm is going to sleep... bye.\n"; exit;}; the pm actually has a system call to execute something sub xxx { `perl xxx.pl` } but my

Net::FTP::SSL ?

Hello Perl, I am looking for a Perl module which is used to access FTPd via SSL, Auth TLS. Is there something called Net::FTP::SSL or others? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: decompress downloaded page

use Compress::Zlib; my $results = Compress::Zlib::memGunzip($resp->content); On Wed, 24 Nov 2004 14:32:27 +0100, Ing. Branislav Gerzo <[EMAIL PROTECTED]> wrote: > Hi all, > > I have this snippet, and I'd like to decompress its contents: > > sub dwl { >my $ua = LWP::UserAgent->new; >$ua

Re: Net::FTP Help !

|^l/; are you pattern mattching > here ? Being new to this it seems confusing to me also: > > if ($_ =~ /(.+)(\d\d:\d\d) (.+)/) { >next if ($2 eq '.' or $2 eq '..'); >push @files, $2; > > In terms I can understand what is this doing .. > > Thanks &

Re: Net::FTP Help !

my @raw_list = $ftp->dir($remote_dir); my @files; for (@raw_list) { # Skip directory and symblink next if $_ =~ /^d|^l/; # Store file name if ($_ =~ /(.+)(\d\d:\d\d) (.+)/) { next if ($2 eq '.' or $2 eq '..'); push @files, $2; } } On Mon, 9 Aug 2004 19:38:19 -0600, Wiggins d An

Re: FTPing of files between remote servers.

try $from_ftp->pasv_xfer($file, $to_ftp); perldoc Net::FTP for details. On Tue, 20 Jul 2004 09:09:49 -0400, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote: > Could some suggest how can i transfer a file from one remote host to another > remote host using FTP module. Is there any way of doing this .

2 Socket questions

hello, 1, how to use http 1.1 via IO::Socket? 2, if i have a script like this: &connectserver(); &answerserver(); &closeserver (); how to do a parallel processing while waiting for server response? use fork? thanks. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail

Converting ASCII extended symbols to image

i'm having troubles converting ascii extended symbols, for exaple one of them looks like that '=DC' in win, but in unicode, or old ibm dos extended ascii its black box. most of ascii art using this and sign like that. what i'd like to do is create dynamic .png image with content of some ascii file.