perl-module

I need to execute commands via $ssh->system in background, and it is documented that this should behave just like the local "system" command: 'As for "system" builtin, "SIGINT" and "SIGQUIT" signals are blocked. (see "system" in perlfunc).' Actually, this does not seem to be true, as $ssh->system in a child is immediately terminated when SIGINT is received, even when I explicitly want to "IGNORE" it first: use warnings; use strict; use POSIX ":sys_wait_h"; use Net::OpenSSH; my $CTRLC=0; $SIG{CHLD}='IGNORE'; sub _int_handler { $CTRLC++; print "CTRL-C was pressed $CTRLC times!!!\n"; } $SIG{INT}=

I'm working on a project that requires all third-party (read: CPAN) perl modules to be installed in a perforce repository, so that any code that depends on them can be successfully run without anyone else needing to manually install them. I ran into an issue though when trying to install XML::Parser. I use cpanminus to install my CPAN modules, so I ran cpanm -L . XML::Parser in the desired directory (this has worked before with other modules) and got the error: Expat.xs:12:19: error: expat.h: No such file or directory I'm used to using Ubuntu and apt-get, but at work I have to use RedHat and I

I am trying to print progress in % in command prompt. But it is not working properly. I want to print the progress as :: Status 10% Completed when 20% will complete it will show Status 20% Completed in that same place not in new line. Could you please help me. Code:: $count++; $per=($count/$total)*100; print "\nStatus: $per Completed.\r"; sleep 1; You can do something like this: use strict; use warnings; use Time::HiRes qw(usleep); local $| = 1; my @nums = 1 .. 20; foreach my $c (@nums) { print "$c"; usleep(100000); print ("\b" x length($c)); } print "\n"; The module Term::ProgressBar seems to

I am new to win32:ole module in perl. I am trying to print MS word table data row wise on command prompt. But I am able to print only last row of the table. Can you please help me to solve this problem? Thanks in advance. Below is my code: #!/usr/bin/perl use strict; use warnings; use File::Spec::Functions qw( catfile ); use Win32::OLE qw(in); use Win32::OLE::Const 'Microsoft Word'; $Win32::OLE::Warn = 3; my $word = get_word(); $word->{DisplayAlerts} = wdAlertsNone; $word->{Visible} = 1; my $doc = $word->{Documents}->Open('C:\\PerlScripts\\myTest.docx'); my $tables = $word->ActiveDocument->{

I'm trying to change this request to a HTTP PUT request, any idea how ? my $request = LWP::UserAgent->new; my $response = $request->get($url, "apikey", $apiKey, "requestDate", $requestDate); You should use HTTP::Request: use LWP::UserAgent; use HTTP::Request; my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new("PUT", $url); my $res = $ua->request($req); As of 6.04, LWP::UserAgent has a put helper, so you can now do: $ua->put( $url ) PUT is HTTP::Request::Common. You can build the request first and pass it into user agent. use HTTP::Request::Common; use LWP; $agent = LWP::UserAgent->new;

I have a lot perl code that does different things in test and production, and I want to lock my code to specific versions of CPAN modules in case there are some changes to some of them in the future which may possibly break my code. So I want to use specific versions of all the modules I use. By use I mean use XML::Smart To use specific module refer only use only MyModule => 0.30; Also to print error if module version you want is above to currently installed one You can say use XML::Smart v1.6.9; or use XML::Smart 1.6.9; or for backward compatibility use XML::Smart 1.006_009; With reference

When I use <stdin> in Perl module ( *.pm ) files it's not reading input from the keyboard, but when I use <STDIN> in the same place it works fine. Why is it not getting input when I use <stdin> ? STDIN is the documented filehandle. There exists stdin as well, which is aliased to STDIN , but it only works in the main:: package: main::stdin is the same as main::STDIN (as documented in perlop - Perl operators and precedence ). In a package, therefore, package My::Package; sub xx { print while <stdin>; } stdin is interpreted as My::Package::stdin , which doesn't exist. You can use main::stdin from