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.
I'm trying to upload a file, via REST. but I keep getting a 500 Not a SCALAR reference
I'm read numerous articles as to why...I can only speculate that my data/content is not correctly formatted.
use strict;
use warnings;
use diagnostics;
use IO::Socket::SSL qw( SSL_VERIFY_NONE );
use LWP::UserAgent;
use Data::Dumper;
use MIME::Base64;
use JSON;
my $json = JSON->new;
my $ua = LWP::UserAgent->new();
$ua->ssl_opts( SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE
+, SSL_hostname => '', verify_hostname => 0 );
$ua->default_header('Content-Type' => 'application/json' );
$ua->default_header('Content_Type' => 'form-data;boundary=xYzZY');
$ua->default_header('Authorization', "Basic " . encode_base64("adm
+in:password"));
$ua->timeout(600);
my $file = ["/tmp/test_image.tgz.bin"];
my $url = "https://10.248.179.31/api/rest/software_package";
my $header = ['Content-Type' => 'form-data;boundary=xYzZY'];
my $request = HTTP::Request->new("POST", "$url", $header, $file);
# my $request = HTTP::Request->new("GET", "${url}?select=*", undef)
+;
print Dumper $request;
my $res = $ua->request($request);
if($res->is_success) {
my $data = $json->decode($res->decoded_content);
print Dumper $data;
}
else {
print Dumper $res;
}
Hello all, it has been a while for me. You were all a huge help with my last project.
This is actually a follow-up of that same project, and while I feel that this should be simple I cannot find (or don't know enough to adapt) a solution online. I have a text file with a line (there will only ever be a single line that matches) like this:
N1*PE*COMPANY NAME INC*XX*123456~
**edit: on Windows using Strawberry Perl with a .pl script** I need to extract the number at the end of this line, excluding the tilde, and add it to a variable so that $number = 123456. So far I have only been able to come up with the match regex, but I'm not sure how to get the text at the end. So far I have this which gives the entire line:
perl -ne "print if /INC\*XX\*/" cr835.txt
Inside my perl script I assume that I will use something like this, but of course including any recommended code changes:
my $number = "perl -ne "print if /INC\*XX\*/" cr835.txt";
My end goal is to detect this number and use it to rename the file. I already have the code tested for renaming the file with a timestamp and I just need help populating this variable.
I have names all composed of ascii characters, that I need to uniformize:
remove non letter (',.)
replace "-" by a space
start each word with an upper case
break camel case word: dosSantos -> Dos Santos
I came with the code below that seems to work (as far as I can test it).
My questions: how could I improved it ? (I think it will break if with unicode characters, what changes should I made to get it work with any character set ?)
Thanks
François
use strict;
use warnings;
while ( my $t = <DATA> ) {
chomp $t;
printf "orig: %-30s translated: %s\n", $t, translate($t);
}
sub translate {
my $str = shift;
$str =~ tr/-/ /; #replace - with a space
$str =~ tr/a-zA-Z/ /cs; #replace non letter with a space
my @words = split( /\s+/, $str );
foreach my $w (@words) {
#insert a space when a upper case is inside a word
if ( $w =~ /\p{isLower}\p{isUpper}/ ) {
my @all;
while ( $w =~ m/\G(\p{isUpper}*\p{isLower}+)/g ) {
push @all, $1;
}
$w = join( " ", @all );
}
else {
$w = ucfirst( lc($w) ); # we are using side effect of fore
+ach loop
}
}
return join( ' ', @words );
}
__DATA__
Acierno James S., Jr.
Acierno James, Jr.
Ackermann-Hirschi L.
Agatonovic-Jovini T.
Alba-Castro Jose-Luis
Alconada Verzini M. J.
AlconadaVerzini M. J.
Alvarez Fernandez A.
Alvarez-Bolado Gonzalo
Alvarez-Gonzalez B.
AlvarezGonzalez B.
AlvarezPiqueras D
Amor Dos Santos S. P.
Amor DosSantos S. P.
AmorDosSantos S. P
da Costa F. Barreiro Guimaraes
Dano Hoffmann M.
DanoHoffmann M.
Dell' Acqua A.
Dell' Asta L.
Dell'Acqua A.
Dell'Asta L.
Dell'Omo Giacomo
della Volp D.
della Volpe D.
Della Volpe D.
DeRegie J. B. De Vivie
Derendarz D.
deRenstrom P. A. Bruckman
Dupl'akova Nikoleta
Duplakova Nikoleta
Faucci Giannelli M.
Fauccigiannelli M.
FaucciGiannelli M.
Yusuff I.
Yusuff' I.
Yao W-M
Yao W-M.
Yao W. -M
Yao W. -M.
Hello monks. I am an undergrad that has started to teach myself Perl from scratch. I know nothing about coding or any thing similar but this has grabbed my attention. So I come to you this day to seek your knowledge and guidance. I have a text file that has a DNA string in it. I want a way to isolate the DNA string and ignore the rest of the text file. Is this possible? Thank you for your time.
I have a Mojolicious lite app that works as I would expect for a single user. However, if two users are accessing it at the same time, the value of $router is changing depending on who submitted the request last.
For example, if user A submits the form to query 'RouterA' then the information is displayed for that router. However, when user B then submits the form to query 'RouterB', the session for user A and user B displays the information for 'RouterB'. I figure it must be since I am declaring $router (and other things) globally but I'm not sure how to store this and pass it around the different routes I have...
my ( $router, $cfg, $ip );
get '/' => sub {
my $c = shift;
$c->render( template => 'index' );
};
post '/' => sub {
my $c = shift;
($router) = $c->param('router');
app->log->info("Router $router");
$cfg = get_config($router);
$ip = $cfg->get_ip();
$c->render(
template => 'result',
router => $router,
ip => $ip,
);
} => 'index';
get '/info' => sub {
my $c = shift;
$c->render(
template => 'result',
router => $router,
ip => $ip,
);
};
get '/cards' => sub {
my $c = shift;
my %cards = $cfg->get_cards();
$c->render( template => 'cards', router => $router, cards => \%cards
+ );
};
app->start;
The reason I have globally declared the variables is so I can pass them between the different routes and have the value of $router preserved and displayed on each resultant HTML page. Any help greatly appreciated as I'm scratching my head with this one!
Hi. Can anyone advise how I can get my Net::SSH::Perl object to use a particular key I have identified in my Net::SSH::Perl::Agent object ?
I have deliberatley simplified down - I will actually iterate over all available keys until I find the one I want ( based on 'comment' ) and then wish to use that particular key
Im unable to try all keys as my target host only allows a few attempts, and I have many keys loaded into the agent ( reducing these available keys is not an option )
Many Thanks !
# Ensure the invoking process has a valid ssh-agent running, and is lo
+aded with an appropriate key, or keys
use warnings;
use strict;
use Net::SSH::Perl::Key;
use Net::SSH::Perl::Agent;
my $agent = Net::SSH::Perl::Agent->new(2);
my ($key, $comment) = $agent->first_identity;
use Net::SSH::Perl;
my $ssh_user = 'myuser';
my $ssh_host = 'myhost';
## How to use the above referenced $key in the following ssh connectio
+n ?? ##
my %ssh_params = ( debug => '1', options => [ "StrictHostKeyChecking n
+o", "UserKnownHostsFile /dev/null" ] );
my $ssh = Net::SSH::Perl->new( $ssh_host, %ssh_params );
my $result = $ssh->login("$ssh_user");
if ( $result ) {
print "Logged in as ${ssh_user} on host ${ssh_host}\n";
} else {
print "Failed to login in as ${ssh_user} on host ${ssh_host}\n";
}
Greeting monks!
I have been using perl system, backtick for some time to invoke other executables.
But then I came across IPC::Cmd run, run_forked, I realize that it's somewhat better in a sense that I can easily access stdout, stderr and also exit code.
So the question is when is it appropriate to use each system, backtick, or other modules?
Is there best practice?
Here's what's happening: I have a real SSH client that uses a single SSH keyprofile for two different unix systems. I've double checked and the and authorized.keys files on both servers are identical. I have the two constants: HOST and USER.
when I changed the HOST and USER to be the new system and the username to use on that system, I get
Username/PublicKey combination invalid (-18 LIBSSH2_ERROR_PUBLICKEY_UN
+RECOGNIZED
) at D:\Perl\ondreamhost.pl line 28.
sometimes I have the problem of having to look at large Data::Dumper or json dumps.
With json I can simply load them into vim and with "foldmethod=syntax" I can easily fold them and so navigate easily the hierarchies of large documents.
Unfortunately I have yet to figure out how to fold Data::Dumper output in vim in a similar way.
Does someone have a tip here?
Many thanks and sorry for posting a question that may more pertain to vim than to perl...
I have a simple script that appears to show that some byte in the output is causing Perl to behave strangely.
The script calls a command that coughs up 150 bytes or so of binary data. One stream of returned data behaves as expected. Another stream causes chaos.
The script:
$cmd = "/usr/local/bin/mycmd";
print "The cmd to be run is: $cmd \n";
open(CMD, "$cmd |" ) or die "Can't run '$cmd'\n$!\n";
while (<CMD>)
{
chomp;
print "My raw output is: $_ \n";
$dataout = $_;
print "My DATAOUT is: $dataout \n";
}
When I run the above script in a "good" scenario I get the below output:
The cmd to be run is: /usr/local/bin/mycmd
My raw output is: � ` /11�%_$�%f$�&c$A
+533;%a$�%\$&c$&^$�&i$
My DATAOUT is: � ` /11�%_$�%f$�&c$�
+%a$�%\$&c$&^$�&i$
When I run the above script in a "bad" scenario I get the below output:
The cmd to be run is: /usr/local/bin/mycmd
My raw output is:
My DATAOUT is:
My raw output is: �0]�c ��
My DATAOUT is: �0]�c ��
Ultimately the goal is to ingest the data and process it using unpack but that was failing as $_ didn't contain data is should contain to process. The "bad" behavior above seems to show that there is some sort of "killer byte" being output from mycmd that throws a wrench into things. Below is the good and bad output in hex form via xxd. Is there a byte in there tripping up Perl?
