If
you have a question on how to do something in Perl, or
you need a Perl solution to an actual real-life problem, or
you're unsure why something you've tried just isn't working...
then this section is the place to ask. Post a new question!
However, you might consider asking in the chatterbox first (if you're a
registered user). The response time tends to be quicker, and if it turns
out that the problem/solutions are too much for the cb to handle, the
kind monks will be sure to direct you here.
New to perl modules, I have the issue where, my perl script calls in a perl module.
I get one of three responses when I load that script:
1. error 500 page
2. error Undefined subroutine called
3. the correct output, though lately that isn't happening at all :(
The resultant pages seem to rotate between the three (above) and my ISP assured my last week, they had disabled caching, which at that time was identified as the cause.
What else could be stopping this module from working?
here's the calling script: login.pl
#!/usr/bin/perl -w
use strict;
use warnings;
use CGI;
use Data::Dumper;
my $cgi = new CGI;
BEGIN{
unshift @INC, "/var/www/vhosts/myDomain.com/secured.myDomain.com
+/cgi-bin/library";
}
print $cgi->header;
use doctypeAndHeader;
header();
I've visited in this forum in the past once in a while as back then I used to write some small scripts. Always preferred Perl over Python.
My question is not sarcasm, nor am I trying to troll you esteemed monks. It is a genuine question. This is a forum where most of you are quite mature and understanding folks and therefore I am hoping I will not be admonished for asking this question.
The question is, considering the current job scenario, especially in the automation field, do you guys think it makes sense to learn Perl or Python? I see the internet rife with articles stating the decline of my favourite language, and I also see a lot of demand for Python but not for Perl and therefore I ask this question - In today's job scenario, would it make sense to learn Perl? Are there any jobs available in Perl? Ofcourse knowing both Perl and Python would be great, but, I would rather start with 1 language, know it really well before I make the jump.
Or, would it now make sense to learn Perl as there's lesser folks into Perl than earlier so it will be sort of a niche skill?
Please note that in the example, "this:that", "here:there", etc are repeated, but that's not the case with the actual record I am working on. I am trying to write a script that will create a hash of hashes such that I get a hash with a key "first" and its value will be a key value pair such that the key will be "this" and value will be "that", key will "here" and value will be "there", and so on and so forth. But even before I reach there, I need to ensure that I write the correct regex. So, I tried to write a regex that will skip the line if it contains "first" or "second". Of course if the regex works, I can then capture the part and make that as a hashkey, but that's much later.
I've tried the following, but it does not work. And I am pretty sure it's because my utter failure to understand how "m" and "s" work.
use strict;
use warnings;
use Data::Dumper;
my $file = "new_testfile.txt";
my $testhashref;
open (my $fh, "<",$file) or die "Can't open open file $file:$!";
{
local $/ = "";
while (my @records = <$fh>) {
foreach my $line (@records) {
next if $line =~ /^[a-z]+:$/m;
print "$line";
}
}
}
Can anybody guess what goes wrong with the first one, what goes wrong when I'm using the number 170? At least, I would expect either all results be correct or all results be wrong, but not just one be wrong.
Using int(sprintf("%.2f",$x1)) fixes the error but this is not the issue.
I've already got an open perl5 pull request that I'm not ready to close just yet.
Now I want to open a second perl5 pull request on a separate issue, involving different files - namely win32/makefile.mk and win32/GNUmakefile.
I've done some googling, and found that one way to do that would be to create a new branch and make the changes to the makefiles in it.
But I don't think that will work because the changes I've made in my current pull request were made in my fork's master branch - whereas they would have to have been made in a different branch, if I was ever going to make a second pull request without closing the first.
So, I'm thinking I might have snookered myself through lack of foresight.
The only solution that I can think of is to use a second github account with a second fork, in order to make this second pull request.
That's not something I really want to do. Is there another way ?
I am trying to call a Soap Webservice.I have to pass the name of a Code table (for eg STATE_CODES) and it returns key value pair like NY - New york, DE-Delaware etc.
#!/usr/local/bin/perl
use strict;
use warnings;
use Data::Dumper qw<Dumper>;
#use SOAP::Lite trace=>'all';
use SOAP::Lite +trace =>'debug';
#use SOAP::Lite;
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}=0;
use Data::Dumper; $Data::Dumper::Terse = 1; $Data::Dumper::Indent = 1;
#my $wsdl = 'https://dev1:2001/ACTS?wsdl';
my $endpoint = 'https://qa1:2001/ACTS';
my $wsdl = 'HTTPS://QA1:2001/ACTS?wsdl';
my $method_name = 'impl:getCodes';
my $uri = 'http://impl.webservice.acts.ito.aoc.nj';
my $ns = 'http://impl.webservice.acts.ito.aoc.nj';
my $client = SOAP::Lite->new(
proxy=>$endpoint,
service=>$wsdl,
readable=>1
);
$client->outputxml(1);
$client->envprefix('soapenv');
$client->ns($uri,'impl');
$client->outputxml('true');
my @param;
push @param, SOAP::Data->name("codeTable"=>'STATE_CODES');
my $soapResp = $client->call($method_name,@param);
print $soapResp;
print "\n";
The soap request kind of looks good, but it gives error. I pasted the soap request into SOAPUI from the soapActionand it worked.
Why is my soap request resulting in failure. is it because of some certificate issue. i believe i have asked the code to skip certificate validation and Client-SSL-Warning: Peer certificate not verified in output above is just a warning and can be ignored
Is the line between getCodes" and <?xml version="1.0"... in soapAction causing failure. The request failed in SOAPUI if I added a line before the <?xml version="1.0"...
if it helps, the soap webservice is a java application on websphere and it is being accessed by perl through datapower.
I am a newbie to perl and trying to figure out what is better to use.
I have seen three suggestions
soap::lite
soap::wsdl
xml::compile
Soap::lite seems to have been around longer, but seems to be difficult to use with more complex wsdl and services. I will be calling a service that adds a document (bytes) with a lot of metadata.
I had looked at some other sites for help and in one of the site some one had mentioned that xml::compile is dead.
Which is the better package to use to call soap webservice. I am not able to figure out which module/package is continuously supported and developed.
I am reading documentation on select command and I can't figure out, what these RBITS,WBITS,EBITS mean.
Well, I came to guess, that probably, RBITS - means Read Bits, WBITS - Write Bits, but what about EBITS, then?
What does this construct mean? What is it used for? Manual doesn't explain anything. Just throws these:
select RBITS,WBITS,EBITS,TIMEOUT
my ($nfound, $timeleft) = select(my $rout = $rin, my $wout = $win, my $eout = $ein, $timeout);
