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 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.
I have a perl program working fine as perl, but when converting to an exe (using pp), it dies by saying "Can't call method crc32String...".
After investigation I notice that I build a button with a "png" graphic part. The image is loaded using Tk:findINC(), which seems to be an issue (and as it is part of a third party module, I cannot avoid this).
I didn't find anything about this (which dll do I have to include?) on Google, so I need some help if you don't mind.
I want to generate an array of bit streams depending on the width with each nibble(4 bits)taking either all 1s or 0s. Width is a multiple of 4
E.g. 1. if my Width= 8. I would like to generate 3 bit streams as
11110000
00001111
11111111
if Width=12 , My array should have elements like
111111111111
111111110000
111100001111
000011111111
111100000000
I have tried to generate it using the following perl code
my $numofstrobes;
my @strobes;
# To generate the stream of all 1s
my $all1stream="1" x $width;
my $x_num = oct("0b" . $all1stream); # to convert string into int
#To Calculate the number of streams
for($i=4;$i<=$width;$i=$i+4){
$numofstrobes+=int($width/$i);
}
#To calculate the bit stream
`my $j=4;
for($i=0; $i<$numofstrobes-1; $i++){
my $k=$j-4;
my $temp_num=$x_num;
while($k<$j) {
$temp_num=$temp_num-(2**$k);
$k++;
}
$strobes[$i]=$temp_num;
$j+=4;
$strobes[$numofstrobes-1]=$x_num`;
It's working fine to generate stream with changing just nibbles around but doesn't work for case where I need to make let's say 2 nibbles 0s(1111 0000 0000)
can someone help me with it or can suggest a better way to do it ?
For troubleshooting purposes I extracted one "chunk" of the log and put it into a text file t.txt. I then crafted t.pl to see if I could get the coding to work without impacting my larger script. Basically, I need to capture everything between "message=" and "Message Id" for this log entry. I am thinking in an array for processing after extraction. I have literally tried 40 different ideas, either my own or found on internet search, and nothing works. Here's my t.pl code I'm trying to make work:
#!/bin/perl
use strict;
use warnings;
use Data::Dumper;
my $mlsf = "t.txt";
my @res;
open IN, "<", $mlsf or die "IN: $!\n";
while (my $mls = <IN>) {
@res = $mls =~ m/^.*message=(.*?)Message Id.*$/gs;
}
print Dumper (\@res);
Hi Monks,
I am trying to install a CPAN module but every time I try I get a long result that ends in an error.
When I run:
cpan install Algorithm::Permute
I get...
Reading '/Users/matthewsnyder/.cpan/Metadata'
Database was generated on Thu, 15 Nov 2018 14:17:03 GMT
Running install for module 'Algorithm::Permute'
Running make for S/SL/SLOYD/Algorithm-Permute-0.16.tar.gz
Checksum for /Users/matthewsnyder/.cpan/sources/authors/id/S/SL/SLOYD/
+Algorithm-Permute-0.16.tar.gz ok
CPAN.pm: Building S/SL/SLOYD/Algorithm-Permute-0.16.tar.gz
Checking if your kit is complete...
Looks good
Warning: prerequisite Test::LeakTrace 0 not found.
Generating a Unix-style Makefile
Writing Makefile for Algorithm::Permute
Writing MYMETA.yml and MYMETA.json
---- Unsatisfied dependencies detected during ----
---- SLOYD/Algorithm-Permute-0.16.tar.gz ----
Test::LeakTrace [build_requires]
Running make test
Delayed until after prerequisites
Running make install
Delayed until after prerequisites
Running install for module 'Test::LeakTrace'
Running make for L/LE/LEEJO/Test-LeakTrace-0.16.tar.gz
Checksum for /Users/matthewsnyder/.cpan/sources/authors/id/L/LE/LEEJO/
+Test-LeakTrace-0.16.tar.gz ok
CPAN.pm: Building L/LE/LEEJO/Test-LeakTrace-0.16.tar.gz
Checking if your kit is complete...
Looks good
Generating a Unix-style Makefile
Writing Makefile for Test::LeakTrace
Writing MYMETA.yml and MYMETA.json
cp lib/Test/LeakTrace.pm blib/lib/Test/LeakTrace.pm
cp lib/Test/LeakTrace/JA.pod blib/lib/Test/LeakTrace/JA.pod
cp lib/Test/LeakTrace/Script.pm blib/lib/Test/LeakTrace/Script.pm
Running Mkbootstrap for LeakTrace ()
chmod 644 "LeakTrace.bs"
"/usr/bin/perl" "-Iinc" -MExtUtils::Command::MM -e 'cp_nonempty' -- Le
+akTrace.bs blib/arch/auto/Test/LeakTrace/LeakTrace.bs 644
"/usr/bin/perl" "-Iinc" "/System/Library/Perl/5.18/ExtUtils/xsubpp" -
+typemap '/System/Library/Perl/5.18/ExtUtils/typemap' LeakTrace.xs >
+LeakTrace.xsc
mv LeakTrace.xsc LeakTrace.c
cc -c -g -pipe -fno-common -DPERL_DARWIN -fno-strict-aliasing -fstac
+k-protector -Os -DVERSION=\"0.16\" -DXS_VERSION=\"0.16\" "-I/Syste
+m/Library/Perl/5.18/darwin-thread-multi-2level/CORE" LeakTrace.c
LeakTrace.xs:2:10: fatal error: 'EXTERN.h' file not found
#include <EXTERN.h>
^~~~~~~~~~
1 error generated.
make: *** [LeakTrace.o] Error 1
LEEJO/Test-LeakTrace-0.16.tar.gz
/usr/bin/make -- NOT OK
'YAML' not installed, will not store persistent state
Running make test
Can't test without successful make
Running make install
Make had returned bad status, install seems impossible
Running make for S/SL/SLOYD/Algorithm-Permute-0.16.tar.gz
Has already been unwrapped into directory /Users/matthewsnyder/.cpan
+/build/Algorithm-Permute-0.16-bq41zl
CPAN.pm: Building S/SL/SLOYD/Algorithm-Permute-0.16.tar.gz
Warning: Prerequisite 'Test::LeakTrace => 0' for 'SLOYD/Algorithm-Perm
+ute-0.16.tar.gz' failed when processing 'LEEJO/Test-LeakTrace-0.16.ta
+r.gz' with 'make => NO'. Continuing, but chances to succeed are limit
+ed.
cp lib/Algorithm/Permute.pm blib/lib/Algorithm/Permute.pm
Running Mkbootstrap for Permute ()
chmod 644 "Permute.bs"
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Permute.bs
+ blib/arch/auto/Algorithm/Permute/Permute.bs 644
cc -c -g -pipe -fno-common -DPERL_DARWIN -fno-strict-aliasing -fstac
+k-protector -Os -DVERSION=\"0.16\" -DXS_VERSION=\"0.16\" "-I/Syste
+m/Library/Perl/5.18/darwin-thread-multi-2level/CORE" -DPERL_EXT cool
+lex.c
In file included from coollex.c:11:
./coollex.h:13:10: fatal error: 'EXTERN.h' file not found
#include "EXTERN.h"
^~~~~~~~~~
1 error generated.
make: *** [coollex.o] Error 1
SLOYD/Algorithm-Permute-0.16.tar.gz
/usr/bin/make -- NOT OK
Running make test
Can't test without successful make
Running make install
Make had returned bad status, install seems impossible
I'm pretty experienced with scripting but this sort of stuff is out of my realm. I see a couple issues but I have not been able to resolve any of them:
1. Twice it says "fatal error: 'EXTERN.h' file not found". But I can locate this file. It's actually in many locations in my home folder and elsewhere on my hard drive.
And 2. Near the end: "/usr/bin/make -- NOT OK"
I tried reinstalling CPAN and updating Perl. The weirdest part is that I can install other modules just fine, provided I do sudo. But running the above command as a super user returns the same thing.
Now, and was my original goal, I want to reproduce this stream and I found that all modules I investigated need a file while
I have a stream.
If you take a look at my above mentioned code, I just read froma a socket by chunk and, in the read_stream sub, I get $buf populated
with just the music (no metadata) and I pass $buf to the write_stream sub.
So my original idea was to push all these $buf into something like a big cache and have some other sub shifting such cache and play each chunk..
Some help on how to implement it? ;=) I'd like a perl solution, portable as much as it is possible (you know I mainly work on win32..): so using external programs as'mpeg123' and similar are not what i'm searching for. Until now I have mumbled the following:
1 - tempfile)As all modules (and programs too) I investigated, needs to be feed with a file, it will be possible to have a temp file and append to it. It's
not a optimal solution: how to know how much of the the neverending file was already played? how to rotate it?
2 - reproxing) Once i have $buf i can re-stream them using a local server listening on 127.0.0.1 and launch an external program (like vlc or you preferred one) to connect to such stream to play it. This is an overcomplicated solution..
The only module I found that seems able to play music contained in a variable is SDL::Mixer::Music that can receive data via SDL::RWOps but I was not able to make it to run. Examples in this direction will be appreciated. I suppose SDL has some limitation playing mp3 on windows (missing libraries?) I had success only playing wav files (not varibles with wav inside).
use SDL;
use SDL::Mixer;
use SDL::Mixer::Music;
use SDL::RWOps;
my $rwops = SDL::RWOps->new_const_mem( $scalar_holding_music );
my $music = SDL::Mixer::Music::load_MUS_RW( $rwops );
Is there a way to clear the browser cache, using Selenium::Remote::Driver module with Chrome driver. I want to clear the cache each time i need to quit the browser/driver
Can i ask a favor if I can have a perl script to login ssh into multiple servers and execute a command like "df -h" and have the printout written into one log file.
example: 10 servers, and the 10 printout of those 10 servers using df -h command will be appended into one file.
Thank You and appreciate your help.
