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.
ld: library not found for -lidn
clang: error: linker command failed with exit code 1 (use -v to see in
+vocation)
ld: library not found for -lidn
clang: error: linker command failed with exit code 1 (use -v to see in
+vocation)
This module requires GNU Libidn, which could not be found.
Hello Monks,
I'm starting to use Paws to access Amazon SES under mod_perl. But it's quite a memory hog. I'm still on prefork, and each httpd process is using a lot of extra memory due to Paws. There is a Paws->preload_service() call that I put in my mod_perl startup.pl file, but doing so does not change the shared memory usage for me.
# startup.pl
use Paws;
Paws->preload_service('SES');
use 5.028;
use strictures;
use autodie;
use Sys::Mmap qw(mmap PROT_READ MAP_SHARED);
my ($approach, $file) = @ARGV;
my $str;
if ('perlio' eq $approach) {
open my $fh, '<:mmap', $file;
local $/;
$str = readline $fh;
} else {
open my $fh, '<', $file;
mmap($str, 0, PROT_READ, MAP_SHARED, $fh) or die "mmap: $!";
};
my $mon = join '|', qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
+);
my $pattern = qr"
^
<(?'pri' \d{1,3} )>
(?'mon' $mon ) [ ]
(?'day' (?: [ ]\d | \d\d ) ) [ ]
(?'time' \d\d:\d\d:\d\d ) [ ]
(?'host' [^ ]+ ) [ ]
(?'msg' [^\n]+ )
$
"amosx;
while ($str =~ /$pattern/g) {
() = %+; # do something useful with the results
};
I have never had a website that had any sort of security layer, and I am not sure how to set it up, how to pay for it, or how to incoroprate it with Perl. For example, if I move my website from http to https, does that mean my perl scripts will continue to run just like before? I mean if I print something to stdout, does it automatically go through a security filter that encrypts it, or do I have to use some kind of Perl module to encrypt my script's output?
Also, when I am reading input from stdin (form submission), do I just read the values from STDIN, or am I required to use a perl module to decrypt whatever is being read?
I have been asked to install tcl.pm in order to be hard linked to a specific installation so that everything can be moved without tcl.pm loosing sight of Tcl. Linking to a specific Tcl installation is easily achievable by using:
perl Makefile.PL --tclconfig /opt/local/lib/tclConfig.sh as pointed out in several forums. However, this doesn't make it 'movable'. I do not think it is possible to install tcl.pm to make it 'movable', even if in the POD the author seems to indicate this. I guess I should work with some ENV variables, for example like in tkx.pm using something like $ENV{'PERL_TCL_DL_PATH'} = $frameworkpath;, for example at BEGIN time. But some mechanism like this seems not to exist in tcl.pm. Any ideas that I could
explore?
I have perl installed in my Windows 7, 64 bits, and it runs great. I also have no problem regarding adding new modules, even from cpan. However, when for some reason the module needs some kind of compilation (I think) I get a "build not ok" at the end. So the c:\perl\bin\perl.exe ./BUILD.pl fails. That is, the modules fails in the compilation of the C code probably. Does anyone knows how to fix this?
My Perl knowledge is limited so I hope this is not too trivial:
To get a program to run, I'm trying to install LWP::Protocol::https from CPAN.
I've simply started sudo cpan and then invoked install LWP::Protocol::https. However, this gets stuck (seemingly) forever while running t/local/07_sslecho.t, even if I select no when it prompts me whether I want to run external tests and despite my Internet connection working fine (not sure if this specific test even communicates with some external server).
On my system uname -r returns 4.18.10-arch1-1-ARCH and I have gcc 8.2.1 installed. Right before the test runs some C compilation warnings are displayed, maybe this is due to some version conflict with a openssl? (I have OpenSSL 1.1.1 11 Sep 2018 installed). I've appended the warnings below.
cc -c -I/usr/include -D_REENTRANT -D_GNU_SOURCE -fwrapv -fno-strict-a
+liasing -pipe -fstack-protector-strong -I/usr/local/include -D_LARGEF
+ILE_SOURCE -D_FILE_OFFSET_BITS=64 -march=x86-64 -mtune=generic -O2 -p
+ipe -fstack-protector-strong -fno-plt -DVERSION=\"1.85\" -DXS_VERSI
+ON=\"1.85\" -fPIC "-I/usr/lib/perl5/5.28/core_perl/CORE" SSLeay.c
SSLeay.xs: In function ‘XS_Net__SSLeay_CTX_tlsv1_new’:
SSLeay.xs:1808:6: warning: ‘TLSv1_method’ is deprecated [-Wdeprecated-
+declarations]
RETVAL = SSL_CTX_new (TLSv1_method());
^~~~~~
In file included from /usr/include/openssl/e_os2.h:13,
from /usr/include/openssl/err.h:13,
from SSLeay.xs:163:
/usr/include/openssl/ssl.h:1852:1: note: declared here
DEPRECATEDIN_1_1_0(__owur const SSL_METHOD *TLSv1_method(void)) /* TL
+Sv1.0 */
^~~~~~~~~~~~~~~~~~
SSLeay.xs: In function ‘XS_Net__SSLeay_CTX_tlsv1_1_new’:
SSLeay.xs:1817:6: warning: ‘TLSv1_1_method’ is deprecated [-Wdeprecate
+d-declarations]
RETVAL = SSL_CTX_new (TLSv1_1_method());
^~~~~~
In file included from /usr/include/openssl/e_os2.h:13,
from /usr/include/openssl/err.h:13,
from SSLeay.xs:163:
/usr/include/openssl/ssl.h:1858:1: note: declared here
DEPRECATEDIN_1_1_0(__owur const SSL_METHOD *TLSv1_1_method(void)) /*
+TLSv1.1 */
^~~~~~~~~~~~~~~~~~
SSLeay.xs: In function ‘XS_Net__SSLeay_CTX_tlsv1_2_new’:
SSLeay.xs:1828:6: warning: ‘TLSv1_2_method’ is deprecated [-Wdeprecate
+d-declarations]
RETVAL = SSL_CTX_new (TLSv1_2_method());
^~~~~~
In file included from /usr/include/openssl/e_os2.h:13,
from /usr/include/openssl/err.h:13,
from SSLeay.xs:163:
/usr/include/openssl/ssl.h:1864:1: note: declared here
DEPRECATEDIN_1_1_0(__owur const SSL_METHOD *TLSv1_2_method(void)) /*
+TLSv1.2 */
^~~~~~~~~~~~~~~~~~
SSLeay.xs: In function ‘XS_Net__SSLeay_RAND_pseudo_bytes’:
SSLeay.xs:2707:9: warning: ‘RAND_pseudo_bytes’ is deprecated [-Wdeprec
+ated-declarations]
rc = RAND_pseudo_bytes(random, num);
^~
In file included from /usr/include/openssl/e_os2.h:13,
from /usr/include/openssl/err.h:13,
from SSLeay.xs:163:
/usr/include/openssl/rand.h:44:1: note: declared here
DEPRECATEDIN_1_1_0(int RAND_pseudo_bytes(unsigned char *buf, int num)
+)
^~~~~~~~~~~~~~~~~~
SSLeay.c: In function ‘XS_Net__SSLeay_X509_CRL_get_lastUpdate’:
SSLeay.c:6248:2: warning: ‘X509_CRL_get_lastUpdate’ is deprecated [-Wd
+eprecated-declarations]
RETVAL = X509_CRL_get_lastUpdate(x);
^~~~~~
In file included from /usr/include/openssl/e_os2.h:13,
from /usr/include/openssl/err.h:13,
from SSLeay.xs:163:
/usr/include/openssl/x509.h:727:1: note: declared here
DEPRECATEDIN_1_1_0(ASN1_TIME *X509_CRL_get_lastUpdate(X509_CRL *crl))
^~~~~~~~~~~~~~~~~~
SSLeay.c: In function ‘XS_Net__SSLeay_X509_CRL_get_nextUpdate’:
SSLeay.c:6267:2: warning: ‘X509_CRL_get_nextUpdate’ is deprecated [-Wd
+eprecated-declarations]
RETVAL = X509_CRL_get_nextUpdate(x);
^~~~~~
In file included from /usr/include/openssl/e_os2.h:13,
from /usr/include/openssl/err.h:13,
from SSLeay.xs:163:
/usr/include/openssl/x509.h:728:1: note: declared here
DEPRECATEDIN_1_1_0(ASN1_TIME *X509_CRL_get_nextUpdate(X509_CRL *crl))
^~~~~~~~~~~~~~~~~~
SSLeay.xs: In function ‘XS_Net__SSLeay_X509_get_subjectAltNames’:
SSLeay.xs:3410:26: warning: ‘ASN1_STRING_data’ is deprecated [-Wdeprec
+ated-declarations]
PUSHs(sv_2mortal(newSVpv((const char*)ASN1_S
+TRING_data(subjAltNameDN->d.otherName->value->value.utf8string), ASN1
+_STRING_length(subjAltNameDN->d.otherName->value->value.utf8string)))
+);
^~~~~
In file included from /usr/include/openssl/e_os2.h:13,
from /usr/include/openssl/err.h:13,
from SSLeay.xs:163:
/usr/include/openssl/asn1.h:554:1: note: declared here
DEPRECATEDIN_1_1_0(unsigned char *ASN1_STRING_data(ASN1_STRING *x))
^~~~~~~~~~~~~~~~~~
SSLeay.xs:3419:26: warning: ‘ASN1_STRING_data’ is deprecated [-Wdeprec
+ated-declarations]
PUSHs(sv_2mortal(newSVpv((const char*)ASN1_S
+TRING_data(subjAltNameDN->d.ia5), ASN1_STRING_length(subjAltNameDN->d
+.ia5))));
^~~~~
In file included from /usr/include/openssl/e_os2.h:13,
from /usr/include/openssl/err.h:13,
from SSLeay.xs:163:
/usr/include/openssl/asn1.h:554:1: note: declared here
DEPRECATEDIN_1_1_0(unsigned char *ASN1_STRING_data(ASN1_STRING *x))
^~~~~~~~~~~~~~~~~~
SSLeay.xs: In function ‘XS_Net__SSLeay_P_X509_get_crl_distribution_poi
+nts’:
SSLeay.xs:3470:25: warning: ‘ASN1_STRING_data’ is deprecated [-Wdeprec
+ated-declarations]
XPUSHs(sv_2mortal(newSVpv((char*)ASN1_STRING_
+data(gn->d.ia5),ASN1_STRING_length(gn->d.ia5))));
^~~~~~
In file included from /usr/include/openssl/e_os2.h:13,
from /usr/include/openssl/err.h:13,
from SSLeay.xs:163:
/usr/include/openssl/asn1.h:554:1: note: declared here
DEPRECATEDIN_1_1_0(unsigned char *ASN1_STRING_data(ASN1_STRING *x))
^~~~~~~~~~~~~~~~~~
SSLeay.xs: In function ‘XS_Net__SSLeay_P_X509_get_ocsp_uri’:
SSLeay.xs:3511:3: warning: ‘ASN1_STRING_data’ is deprecated [-Wdepreca
+ted-declarations]
XPUSHs(sv_2mortal(newSVpv(
^~~~~~
In file included from /usr/include/openssl/e_os2.h:13,
from /usr/include/openssl/err.h:13,
from SSLeay.xs:163:
/usr/include/openssl/asn1.h:554:1: note: declared here
DEPRECATEDIN_1_1_0(unsigned char *ASN1_STRING_data(ASN1_STRING *x))
^~~~~~~~~~~~~~~~~~
SSLeay.xs: In function ‘XS_Net__SSLeay_P_ASN1_STRING_get’:
SSLeay.xs:3829:9: warning: ‘ASN1_STRING_data’ is deprecated [-Wdepreca
+ted-declarations]
u8 = newSVpv((const char*)ASN1_STRING_data(s), ASN1_STRING_le
+ngth(s));
^~
In file included from /usr/include/openssl/e_os2.h:13,
from /usr/include/openssl/err.h:13,
from SSLeay.xs:163:
/usr/include/openssl/asn1.h:554:1: note: declared here
DEPRECATEDIN_1_1_0(unsigned char *ASN1_STRING_data(ASN1_STRING *x))
^~~~~~~~~~~~~~~~~~
SSLeay.c: In function ‘XS_Net__SSLeay_TLSv1_method’:
SSLeay.c:9279:2: warning: ‘TLSv1_method’ is deprecated [-Wdeprecated-d
+eclarations]
RETVAL = TLSv1_method();
^~~~~~
In file included from /usr/include/openssl/e_os2.h:13,
from /usr/include/openssl/err.h:13,
from SSLeay.xs:163:
/usr/include/openssl/ssl.h:1852:1: note: declared here
DEPRECATEDIN_1_1_0(__owur const SSL_METHOD *TLSv1_method(void)) /* TL
+Sv1.0 */
^~~~~~~~~~~~~~~~~~
SSLeay.c: In function ‘XS_Net__SSLeay_TLSv1_server_method’:
SSLeay.c:9296:2: warning: ‘TLSv1_server_method’ is deprecated [-Wdepre
+cated-declarations]
RETVAL = TLSv1_server_method();
^~~~~~
In file included from /usr/include/openssl/e_os2.h:13,
from /usr/include/openssl/err.h:13,
from SSLeay.xs:163:
/usr/include/openssl/ssl.h:1853:1: note: declared here
DEPRECATEDIN_1_1_0(__owur const SSL_METHOD *TLSv1_server_method(void)
+)
^~~~~~~~~~~~~~~~~~
SSLeay.c: In function ‘XS_Net__SSLeay_TLSv1_client_method’:
SSLeay.c:9313:2: warning: ‘TLSv1_client_method’ is deprecated [-Wdepre
+cated-declarations]
RETVAL = TLSv1_client_method();
^~~~~~
In file included from /usr/include/openssl/e_os2.h:13,
from /usr/include/openssl/err.h:13,
from SSLeay.xs:163:
/usr/include/openssl/ssl.h:1854:1: note: declared here
DEPRECATEDIN_1_1_0(__owur const SSL_METHOD *TLSv1_client_method(void)
+)
^~~~~~~~~~~~~~~~~~
SSLeay.c: In function ‘XS_Net__SSLeay_TLSv1_1_method’:
SSLeay.c:9333:2: warning: ‘TLSv1_1_method’ is deprecated [-Wdeprecated
+-declarations]
RETVAL = TLSv1_1_method();
^~~~~~
In file included from /usr/include/openssl/e_os2.h:13,
from /usr/include/openssl/err.h:13,
from SSLeay.xs:163:
/usr/include/openssl/ssl.h:1858:1: note: declared here
DEPRECATEDIN_1_1_0(__owur const SSL_METHOD *TLSv1_1_method(void)) /*
+TLSv1.1 */
^~~~~~~~~~~~~~~~~~
SSLeay.c: In function ‘XS_Net__SSLeay_TLSv1_1_server_method’:
SSLeay.c:9350:2: warning: ‘TLSv1_1_server_method’ is deprecated [-Wdep
+recated-declarations]
RETVAL = TLSv1_1_server_method();
^~~~~~
In file included from /usr/include/openssl/e_os2.h:13,
from /usr/include/openssl/err.h:13,
from SSLeay.xs:163:
/usr/include/openssl/ssl.h:1859:1: note: declared here
DEPRECATEDIN_1_1_0(__owur const SSL_METHOD *TLSv1_1_server_method(voi
+d))
^~~~~~~~~~~~~~~~~~
SSLeay.c: In function ‘XS_Net__SSLeay_TLSv1_1_client_method’:
SSLeay.c:9367:2: warning: ‘TLSv1_1_client_method’ is deprecated [-Wdep
+recated-declarations]
RETVAL = TLSv1_1_client_method();
^~~~~~
In file included from /usr/include/openssl/e_os2.h:13,
from /usr/include/openssl/err.h:13,
from SSLeay.xs:163:
/usr/include/openssl/ssl.h:1860:1: note: declared here
DEPRECATEDIN_1_1_0(__owur const SSL_METHOD *TLSv1_1_client_method(voi
+d))
^~~~~~~~~~~~~~~~~~
SSLeay.c: In function ‘XS_Net__SSLeay_TLSv1_2_method’:
SSLeay.c:9388:2: warning: ‘TLSv1_2_method’ is deprecated [-Wdeprecated
+-declarations]
RETVAL = TLSv1_2_method();
^~~~~~
In file included from /usr/include/openssl/e_os2.h:13,
from /usr/include/openssl/err.h:13,
from SSLeay.xs:163:
/usr/include/openssl/ssl.h:1864:1: note: declared here
DEPRECATEDIN_1_1_0(__owur const SSL_METHOD *TLSv1_2_method(void)) /*
+TLSv1.2 */
^~~~~~~~~~~~~~~~~~
SSLeay.c: In function ‘XS_Net__SSLeay_TLSv1_2_server_method’:
SSLeay.c:9405:2: warning: ‘TLSv1_2_server_method’ is deprecated [-Wdep
+recated-declarations]
RETVAL = TLSv1_2_server_method();
^~~~~~
In file included from /usr/include/openssl/e_os2.h:13,
from /usr/include/openssl/err.h:13,
from SSLeay.xs:163:
/usr/include/openssl/ssl.h:1865:1: note: declared here
DEPRECATEDIN_1_1_0(__owur const SSL_METHOD *TLSv1_2_server_method(voi
+d))
^~~~~~~~~~~~~~~~~~
SSLeay.c: In function ‘XS_Net__SSLeay_TLSv1_2_client_method’:
SSLeay.c:9422:2: warning: ‘TLSv1_2_client_method’ is deprecated [-Wdep
+recated-declarations]
RETVAL = TLSv1_2_client_method();
^~~~~~
In file included from /usr/include/openssl/e_os2.h:13,
from /usr/include/openssl/err.h:13,
from SSLeay.xs:163:
/usr/include/openssl/ssl.h:1866:1: note: declared here
DEPRECATEDIN_1_1_0(__owur const SSL_METHOD *TLSv1_2_client_method(voi
+d))
^~~~~~~~~~~~~~~~~~
SSLeay.xs: In function ‘XS_Net__SSLeay_RSA_generate_key’:
SSLeay.xs:5443:9: warning: ‘RSA_generate_key’ is deprecated [-Wdepreca
+ted-declarations]
RETVAL = RSA_generate_key(bits, e, ssleay_RSA_generate_key_cb
+_invoke, cb);
^~~~~~
In file included from /usr/include/openssl/e_os2.h:13,
from /usr/include/openssl/err.h:13,
from SSLeay.xs:163:
/usr/include/openssl/rsa.h:234:1: note: declared here
DEPRECATEDIN_0_9_8(RSA *RSA_generate_key(int bits, unsigned long e, v
+oid
^~~~~~~~~~~~~~~~~~
SSLeay.xs: In function ‘XS_Net__SSLeay_OCSP_response_results’:
SSLeay.xs:6781:33: warning: passing argument 1 of ‘i2d_OCSP_CERTID’ di
+scards ‘const’ qualifier from pointer target type [-Wdiscarded-qualif
+iers]
int len = i2d_OCSP_CERTID(OCSP_SINGLERESP_get0_id(sir),NULL);
^~~~~~~~~~~~~~~~~~~~~~~~~~~~
In file included from /usr/include/openssl/objects.h:15,
from /usr/include/openssl/evp.h:28,
from /usr/include/openssl/x509.h:18,
from /usr/include/openssl/ssl.h:20,
from SSLeay.xs:167:
/usr/include/openssl/ocsp.h:333:1: note: expected ‘OCSP_CERTID *’ {aka
+ ‘struct ocsp_cert_id_st *’} but argument is of type ‘const OCSP_CERT
+ID *’ {aka ‘const struct ocsp_cert_id_st *’}
DECLARE_ASN1_FUNCTIONS(OCSP_CERTID)
^
SSLeay.xs:6790:23: warning: passing argument 1 of ‘i2d_OCSP_CERTID’ di
+scards ‘const’ qualifier from pointer target type [-Wdiscarded-qualif
+iers]
i2d_OCSP_CERTID(OCSP_SINGLERESP_get0_id(sir),&pi);
^~~~~~~~~~~~~~~~~~~~~~~~~~~~
In file included from /usr/include/openssl/objects.h:15,
from /usr/include/openssl/evp.h:28,
from /usr/include/openssl/x509.h:18,
from /usr/include/openssl/ssl.h:20,
from SSLeay.xs:167:
/usr/include/openssl/ocsp.h:333:1: note: expected ‘OCSP_CERTID *’ {aka
+ ‘struct ocsp_cert_id_st *’} but argument is of type ‘const OCSP_CERT
+ID *’ {aka ‘const struct ocsp_cert_id_st *’}
DECLARE_ASN1_FUNCTIONS(OCSP_CERTID)
Say I have a CPAN module and I found out that its behavior is not exactly optimal. So I would like to change it, but there may be users out there! How do I change my module before backward compatibility locks me into my bad decisions? And what modules should I look into that do the right thing (tm)?
My current policy is to keep old behavior with a deprecated warning for 5 releases (not including the bugfix), but I guess that's not the best I can do.
I am porting STAF based perl services to new perl version.
When trying to load threads in thread modules, getting error
threads.so: undefined symbol: PL_thr_key at /opt/ActivePerl-5.26/lib/XSLoader.pm
I saw some post which says this occurs if perl is not threaded. However, I have installed threaded perl downloaded from Active State.
version is perl 5.26.1
I can build a hash table for the contents, but trouble is with the header. I need to find out how to get the column number based on above header, to extract the corresponding values per column. The reason to do this, because the header is dynamic, including
orders, but for the same column, the header is always formated as aligned (first letter across multiple rows, as above).
For example, I need to find out which column of "Work Address" from header, then I can grep the corresponding column from the table contents.
