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.
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.
HTML::Tidy depends on a C library tidyp which is a fork, by the author, of libtidy. Compiling the source from the repository is not straight forward as a configure script is missing and additionally, the provided INSTALL instructions contain this warning:
If you do NOT have a ./configure program, then you are working from
the source repository, not the tarball. Please get a release tarball
from http://github.com/petdance/tidyp/downloads.
Hello,
I am a newbie in Perl and seeking a help with file open using variables.
In below code, I like to use variables X_info, Y_info, Z_info in the file open line so I can only change the variable contents to open a file.
Can someone help this?
I can't figure this out.
Thanks,
Steve
use strict;
my X_info = 3;
my Y_info = -4;
my Z_info = 5;
###### want to replace 3 with X_info, -4 with Y_info, 5 with Z_info ##
+################################
open(DLOG, '<' 'D:\PROJ\N123_X3\dataInfo_X-4_Y5_decode.csv') or die "w
+e have a problem: $!";
print "It Works.\n"
close (DLOG);
I am trying to build a program that downloads the data on options on a handful of securities once a day after the market closes.
There are a number of sites that provide an API for Python, but I am not seeing the same for Perl.
the modules that would do this look very out of date (like Finance::QuoteOptions)
It looks like yahoo and google removed their finance data download options.
I know this is a longshot, but just thought I would ask here.
When I run the mechanize script from the shell with the /https?_proxy / set to the proxy server, it works through proxy, but when I run the script without that environment variable set in the shell and try to set the proxy internally in the program (script), it doesn't work.
I tried setting: $ENV{'https_proxy'} = 'http://127.0.0.1:8118';
or: $ENV{'HTTPS_PROXY'} = 'http://127.0.0.1:8118';
prior to calling: $mech->get($url);
Also, I tried the same, as above, but adding the following prior to ->get command: $mech->env_proxy;
Also, instead of setting the $ENV{var} with ->env_proxy command, the following, prior to ->get: $mech->proxy(['https'], 'http://127.0.0.1:8118');
or: $mech->proxy(['http'], 'http://127.0.0.1:8118');
Also, tried to disable https, as was suggested on some forums:
but nothing worked. My goal is to be able to dynamically switch proxy for the same url, i.e. different proxies are set to work through different providers and there is also an internet on direct connection. I want to cycle between direct connection and different proxies, on fail, until getting success. My current code is:
#!/usr/bin/env perl
use WWW::Mechanize;
my @https_proxy = (
'http://127.0.0.1:8118'
);
my $url = shift;
#print "LWP::Protocol::https::VERSION: ($LWP::Protocol::https::VERSION
+)\n";
$ENV{'https_proxy'} = $https_proxy[0];
my $mech = WWW::Mechanize->new(autocheck=>1);
$mech->proxy(['http'], $https_proxy[0]);
#$mech->proxy(['https'], undef);
#$mech->env_proxy;
$mech->get($url);
print $mech->content;
I have a bunch of files I need to pull into a data structure hash of hashes. The overall record is enclosed with brackets and is composed of KEY, VALUE pairs. The KEY is always text followed by a space, then the VALUE, which can be simple text or another bracketed sub-record. For example
sys ecm cloud-provider /Common/aws-ec2 {
description "The aws-ec2 parameters"
property-template {
account { }
availability-zone {
valid-values { a b c d }
}
instance-type {
valid-values { t2.micro t2.small t2.medium }
}
region {
valid-values { us-east-1 us-west-1 }
}
}
}
That's a simple one and there are arbitrarily nested records. It was originally formatted with newlines and spaces as well but that's been removed. So, for example, KEYS are usually separated by a newline, but sometimes just spaces. It's always some type of whitespace. I've been trying to parse it out with regex'es after slurping the file in a scalar, then tried writing a recursive function to do it. Any advice on the best way to approach it would be greatly appreciated!
I have a Perl Tk GUI application that crashes after it exceeds 4GB of RAM usage and I have no issues exceeding 4GB when running tests in a console application (without Perl Tk)
Operating system: Microsoft Windows Version 10.0.19044.2006
Perl version: v5.30.3
Tk version: 804.036 (latest available on CPAN)
Perl spits out this error almost every time it crashes, but sometimes it crashes without an error:
Free to wrong pool 678ea0 not e228dd0 at .\common\GUI_TESTS\test_memor
+y_hog_gui.pl line 41.
When searching for this error, everything I could find was multi-threading related, and our application does not use multi-threading.
I thought it may be because we have something configured as 32-bit instead of 64-bit, so I followed the instructions in this question and found that everything is configured as 64-bit.
Below is an example GUI application that crashes after the memory exceeds 4GB. I have boiled this down from our application and the crashing behavior is the same. The data structure that we use is obviously much larger, so I am cloning a simplified version of ours many times to pass the 4GB threshold.
Note that this sample application does not crash when running on a Centos7 VM (only on the Win10 host)
use strict;
use warnings;
use Tk;
use Tk::LabFrame;
use Clone;
my $MAIN_WINDOW = MainWindow->new;
$MAIN_WINDOW->minsize(400, 400);
my @dataStructureClones = ();
my $textBox;
my $button_frame = $MAIN_WINDOW->LabFrame(-label => "Test", -relief =>
+ 'groove', -borderwidth => 2)->pack();
$button_frame->Button(
-text => 'Run Crashing Operation',
-command => sub {
my $dataStructureThatCrashes = {
NETLIST_INFO => {
EXTRA_PROPERTIES => {
C_SIGNAL => {},
NET => {},
},
NET_LIST => [
# omitting this call will allow the program to exc
+eed 4GB until after it finishes the loop
{ NL_INDEX => 0, }
]
},
};
my $lastUpdate = time();
push @dataStructureClones, $dataStructureThatCrashes;
for (1 .. 5000000) {
if (time() - $lastUpdate > 1) {
# omitting this call will allow the program to exceed
+4GB
$textBox->insert("end", "Cloning hash ($_)...\n");
$MAIN_WINDOW->update();
$lastUpdate = time();
}
push @dataStructureClones, Clone::clone($dataStructureThat
+Crashes);
}
}
)->grid(-row => 0, -column => 0);
$textBox = $MAIN_WINDOW->Scrolled(
'Text',
-relief => 'groove',
-background => 'light grey',
-foreground => 'black',
-wrap => 'char',
-scrollbars => 'osoe',
-width => 110,
-height => 24,
)->pack(-side => 'top', -fill => 'both', -expand => 1);
MainLoop;
Pure-perl modules will, by default, be installed into perl/site/lib.
Other modules (ie perl extensions) will be installed into the appropriate location listed above, according to the perl architecture for which they have been built.
I have a perl extension called (say) Module::B, and it has been built and installed into each of those architecture-specific locations.
There also exists a pure-perl Module::A, which requires Module::B but has not yet been installed anywhere into that perl.
Using (say) the MSWin32-x64-multi-thread build of perl, I then install Module::A in the usual way (cpan -i Module::A).
Module::A gets installed into perl/site/lib because it is a pure-perl module.
At that point, Module::A becomes immediately available to all 9 architectures, even though it has not been tested against 8 of them.
This is an unsatisfactory state of affairs, IMO.
I envisage that Module::A should really be installed into the relevant architecture-specific location.
How do I tell ExtUtils::MakeMaker to do that ?
Or is there some better way of handling this ?
How do module authors generally deal with this issue ?
Hi there
I am trying to make a request to a Dancer application which is initialized as I indicate:
# perl serv.pl
>> Dancer 1.3513 server 9802 listening on http://xxx.xx.xx.xx:xx
>> Dancer::Plugin::REST (0.11)
== Entering the development dance floor ...
But when I tried to execute below command
curl http://ipaddress:port/reference/C00-1412-0010
It shows this result:
curl http://ipaddress:port/reference/C00-1412-0010
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<title>Error 500</title>
<link rel="stylesheet" href="/css/style.css" />
<meta http-equiv="Content-type" content="text/html; charset=UTF-8" />
</head>
<body>
<h1>Error 500</h1>
<div id="content">
<h2>Unable to process your query</h2>The page you requested is not ava
+ilable
</div>
<div id="footer">
Powered by <a href="http://perldancer.org/">Dancer</a> 1.3513
</div>
</body>
</html>#
package MyWebService;
use strict;
use warnings;
use Dancer;
use Dancer::Plugin::REST;
use Config::File::Simple;
use File::Slurp;
use URI::Encode qw(uri_encode uri_decode);
use IO::Socket;
use IO::Select;
use Storable;
use Tie::IxHash;
use REST::Client;
use MIME::Base64;
set server => 'xxx.xx.xx.xx';
get '/reference/:reference' => sub {
writeLog("Arrived reference: " . params->{reference});
my (@arrRes, @arrNoRes) = processRequest(params->{reference});
if (@arrNoRes > 0) {
push(@arrRes, @arrNoRes);
}
my $jsonResponse;
if (@arrRes == 0) {
$jsonResponse = to_json { reference => params->{reference} }
+;
} else {
writeLog("Found results: " . Dumper(\@arrRes));
$jsonResponse = encode_json(\@arrRes);
}
return $jsonResponse;
};
dance;
.
.
.
Is there a Perl::Critic policy to catch attempts to use method calls within interpolation? So, it would catch this, and perhaps more convoluted examples like "$ref->()" or "$obj->$meth".
When I write a recursive subroutine, I usually have to write two subroutines: A(), which sets things up properly and then calls B(), which is the actual recursive subroutine and is not intended to be called by anyone except itself and A().
I wrote a simple routine make_backup($file) to make a backup of a file by copying it to $file.bak, first renaming any previous backups by appending another ".bak". In doing so I accidentally located the recursive subroutine inside the first subroutine (which I didn't know was possible).
use v5.36;
use File::Copy;
# Copy $path to $path.bak, preserving all earlier backups
sub make_backup ($path ) {
my $path_bak;
if (-e $path) {
$path_bak = _preserve_previous_backup($path);
copy $path_bak, $path;
}
return $path_bak; # undef if path didn't exist
sub _preserve_previous_backup ( $path ) {
my $path_bak = "${path}.bak";
if (-e $path_bak) {
_preserve_previous_backup($path_bak );
}
move $path, $path_bak;
return $path_bak;
}
}
And it worked. I thought this was a nifty way to encapsulate the "non-public" subroutine, until I realized what I'd done was to create a closure, which I'm unfamiliar with at this point.
I do like the idea of nesting the recursive piece inside the outer sub in this manner, and it does appear to work properly, but from what I've learned so far, this is not what "closures" are meant for. Could I get some enlightened commentary on the most-likely-unwise thing I'm doing?
Snippets of code should be wrapped in
<code> tags not<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
