I am using Strawbery Perl and trying to apply the image::Magick package on Windows 11 OS but keep getting errors:

C:\Program Files (x86)\Microsoft Visual Studio\2022\BuildTools>cpanm --force Image::Magick --> Working on Image::Magick Fetching http://www.cpan.org/authors/id/J/JC/JCRISTY/Image-Magick-7.1.1-28.tar.gz ... OK Configuring Image-Magick-v7.1.1 ... OK Building and testing Image-Magick-v7.1.1 ... FAIL ! Installing Image::Magick failed. See C:\Users\miki.cpanm\work\1725780811.5804\build.log for details. Retry with --force to force install it.

Log file of "C:\Users\miki.cpanm\work\1725780811.5804\build.log":

cpanm (App::cpanminus) 1.7047 on perl 5.040000 built for MSWin32-x64-multi-thread
Work directory is C:\Users\miki/.cpanm/work/1725780811.5804
You have make C:\Strawberry\c\bin\gmake.exe
You have LWP 6.77
Falling back to Archive::Tar 3.02_001
Searching Image::Magick () on cpanmetadb ...
--> Working on Image::Magick
Fetching http://www.cpan.org/authors/id/J/JC/JCRISTY/Image-Magick-7.1.1-28.tar.gz
-> OK
Unpacking Image-Magick-7.1.1-28.tar.gz
Entering Image-Magick-7.1.1
Checking configure dependencies from META.json
Checking if you have ExtUtils::MakeMaker 6.58 ... Yes (7.70)
Configuring Image-Magick-v7.1.1
Running Makefile.PL
Gonna create 'libMagickCore.a' from 'C:\Program Files\ImageMagick-7.1.1-Q16\CORE_RL_MagickCore_.dll'
Checking if your kit is complete...
Looks good
Generating a gmake-style Makefile
Writing Makefile for Image::Magick
Writing MYMETA.yml and MYMETA.json
-> OK
Checking dependencies from MYMETA.json ...
Checking if you have parent 0 ... Yes (0.241)
Checking if you have ExtUtils::MakeMaker 0 ... Yes (7.70)
Building and testing Image-Magick-v7.1.1
cp Magick.pm blib\lib\Image\Magick.pm
AutoSplitting blib\lib\Image\Magick.pm (blib\lib\auto\Image\Magick)
Running Mkbootstrap for Magick ()
"C:\Strawberry\perl\bin\perl.exe" -MExtUtils::Command -e chmod -- 644 "Magick.bs"
"C:\Strawberry\perl\bin\perl.exe" -MExtUtils::Command::MM -e cp_nonempty -- Magick.bs blib\arch\auto\Image\Magick\Magick.bs 644
"C:\Strawberry\perl\bin\perl.exe" "C:\Strawberry\perl\lib\ExtUtils/xsubpp"  -typemap C:\STRAWB~1\perl\lib\ExtUtils\typemap -typemap C:\Users\miki\.cpanm\work\1725780811.5804\Image-Magick-7.1.1\typemap  Magick.xs > Magick.xsc
"C:\Strawberry\perl\bin\perl.exe" -MExtUtils::Command -e mv -- Magick.xsc Magick.c
gcc -c  -I"C:\Program Files\ImageMagick-7.1.1-Q16\include" -std=c99 -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -D__USE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -Os -falign-functions -falign-jumps -falign-labels -falign-loops -freorder-blocks -freorder-blocks-algorithm=stc -freorder-blocks-and-partition   -DVERSION=\"7.1.1\" -DXS_VERSION=\"7.1.1\"  "-IC:\STRAWB~1\perl\lib\CORE"  -D_LARGE_FILES=1 -DHAVE_CONFIG_H Magick.c
In file included from C:\Program Files\ImageMagick-7.1.1-Q16\include/MagickCore/magick-config.h:25,
                 from C:\Program Files\ImageMagick-7.1.1-Q16\include/MagickCore/MagickCore.h:29,
                 from Magick.xs:56:
C:\Program Files\ImageMagick-7.1.1-Q16\include/MagickCore/magick-baseconfig.h:274:6: error: #error ImageMagick was build with a 64 channel bit mask and that requires a C++ compiler
  274 | #    error ImageMagick was build with a 64 channel bit mask and that requires a C++ compiler
      |      ^~~~~
gmake: *** [makefile:350: Magick.o] Error 1
-> FAIL Installing Image::Magick failed. See C:\Users\miki\.cpanm\work\1725780811.5804\build.log for details. Retry with --force to force install it.

Seems that both Perl and image Magick version are 64-bit:

C:\Program Files (x86)\Microsoft Visual Studio\2022\BuildTools>perl -v This is perl 5, version 40, subversion 0 (v5.40.0) built for MSWin32-x64-multi-thread*

C:\Program Files (x86)\Microsoft Visual Studio\2022\BuildTools>perl -v This is perl 5, version 40, subversion 0 (v5.40.0) built for MSWin32-x64-multi-thread

I tried to install several versions of ImageMagick (e.g. ImageMagick-7.1.1-Q16) And checked all options:

Added the path to root to PATH (no bin subfolder exists).

I also installed Visual studio Build tools 2022 and retry to install from cpan via developer command prompt.

Running cl seems to work fine:

C:\Program Files (x86)\Microsoft Visual Studio\2022\BuildTools>cl Microsoft (R) C/C++ Optimizing Compiler Version 19.41.34120 for x86 Copyright (C) Microsoft Corporation. All rights reserved. usage: cl [ option... ] filename... [ /link linkoption... ]

Running magick --version seems to work fine:

C:\Program Files (x86)\Microsoft Visual Studio\2022\BuildTools>magick --version Version: ImageMagick 7.1.1-38 Q16 x64 b0ab922:20240901 https://imagemagick.org Copyright: (C) 1999 ImageMagick Studio LLC License: https://imagemagick.org/script/license.php Features: Channel-masks(64-bit) Cipher DPC Modules OpenCL OpenMP(2.0) Delegates (built-in): bzlib cairo flif freetype gslib heic jng jp2 jpeg jxl lcms lqr lzma openexr pangocairo png ps raqm raw rsvg tiff webp xml zip zlib Compiler: Visual Studio 2022 (194134120)

Any idea what else I can try here?

Thanks! Miki

If you go to youtube and hit the transcribe button, for some videos, youtube has a transcription service, you can see the whole video text on the right side. If you download it to a text file, it comes in this format. I want to separate the timestamps from the text.

0:12 
well good morning everybody thank you for joining us here at the National Shrine of the 
Divine Mercy it is
0:18 
Vietnamese day and uh we're glad that you could join us uh I have a strong tie 
0:24
to the Vietnamese people my father obviously serving in Southeast Asia being in Vietnam and uh my uh Seminary
0:31 
time I went to Seminary with a lot of the Vietnamese sisters so praise be to God uh we're glad you're with us and
0:38 
today's topic really is so important and I'm coming from a aspect of a personal

I want is formatted like this so I can put it in to and excel sheet, and separate the timestamps if needed.

0:12, well good morning everybody thank you for joining us here at the National Shrine of the Divine Mercy it is
0:18, Vietnamese day and uh we're glad that you could join us uh I have a strong tie
0:24, to the Vietnamese people my father obviously serving in Southeast Asia being in Vietnam and uh my uh Seminary
0:31, time I went to Seminary with a lot of the Vietnamese sisters so praise be to God uh we're glad you're with us and
0:38, today's topic really is so important and I'm coming from a aspect of a personal

the time stamps will go out to this 1:35:35

#!/usr/bin/perl
use strict;
use warnings;

if (@ARGV != 2) {
    die "Usage: $0 input_file output_file\n";
}
my ($input_file, $output_file) = @ARGV;
open(my $in, '<', $input_file) or die "Cannot open input file '$input_file': $!";
open(my $out, '>', $output_file) or die "Cannot open output file '$output_file': $!";
my $timestamp = '';
while (my $line = <$in>) {
    chomp $line;

    if ($line =~ /^[0-9:]+$/) {
        # Line is a timestamp
        $timestamp = $line;
    } elsif ($line =~ /\S/) {
        # Line is text and is not empty
        print $out "$timestamp, $line\n";
    }
}
close($in);
close($out);

print "Formatting complete. Output written to $output_file.\n";

I wrote the script above, however the file is coming out like this. and it should not be

, 0:12
, well good morning everybody thank you for joining us here at the National Shrine of the Divine Mercy it is
, 0:18
, Vietnamese day and uh we're glad that you could join us uh I have a strong tie
, 0:24
, to the Vietnamese people my father obviously serving in Southeast Asia being in Vietnam and uh my uh Seminary
, 0:31
, time I went to Seminary with a lot of the Vietnamese sisters so praise be to God uh we're glad you're with us and
, 0:38
, today's topic really is so important and I'm coming from a aspect of a personal

I tried this as well

sed 's/^\([0-9:]*\) \(.*\)$/\1\:\2/'

There are multiple text files (basically Informatica Parameter files) inside a directory. I would like to parse through all the files in a directory and print the single output. I want to print the file name followed by the first occurence of $$WKF_TABLE_NM, $$WKF_SRC_TAB_NM, $$WKF_SRC2_TAB_NM, $$WKF_TGT_TAB_NM which should be found after the text "Production". Because, we will have the same variables for different environments. All of the variables might not be present in all the files. So, whichever is available should be printed.

I have tried something like below but didn't get through this.

awk '/$$WKF_TABLE_NM/ {print}' wf_param_file1.txt
awk 'FNR == 1{ print FILENAME } ' wf_param_file1.txt

Can you please help me with the Shell command to perform this? Thank you in advance!

Sample Input file: [wf_param_file1.txt]

------------------------------------ Development  --------------------------------------------------
[Infa_folder_name.WF:Workflow1]
$DBConnection_TGT=TGT_CON1
-------------------------------------------------------------
- Environment Information for Command Task
-------------------------------------------------------------
$$WKF_ODS_USER_ID=USER1
$$WKF_PKG_NAME=ETL_PKG_1
$$WKF_PROC_NAME=ETL_PROC_1
$$WKF_DB_ENV=
$$WKF_TABLE_NM=TBL1
$$WKF_SRC_TAB_NM=SCHEMA1.SRC_TABLE1
$$WKF_SRC2_TAB_NM=SCHEMA1.SRC_TABLE2
$$WKF_TGT_TAB_NM=SCHEMA1.TGT_TABLE
$$WKF_ERR_MSG=FAILED
$$WKF_ERR_NM=FAILURE
$$WKF_WRK_ENV=DEV

------------------------------------ Production  --------------------------------------------------
[Infa_folder_name.WF:Workflow1]
$DBConnection_TGT=TGT_CON1
-------------------------------------------------------------
- Environment Information for Command Task
-------------------------------------------------------------
$$WKF_ODS_USER_ID=USER1
$$WKF_PKG_NAME=ETL_PKG_1
$$WKF_PROC_NAME=ETL_PROC_1
$$WKF_DB_ENV=
$$WKF_TABLE_NM=TBL1
$$WKF_SRC_TAB_NM=SCHEMA1.SRC_TABLE1
$$WKF_SRC2_TAB_NM=SCHEMA1.SRC_TABLE2
$$WKF_TGT_TAB_NM=SCHEMA1.TGT_TABLE
$$WKF_ERR_MSG=FAILED
$$WKF_ERR_NM=FAILURE
$$WKF_WRK_ENV=PROD

------------------------------------ Acceptance  --------------------------------------------------
[Infa_folder_name.WF:Workflow1]
$DBConnection_TGT=TGT_CON1
-------------------------------------------------------------
- Environment Information for Command Task
-------------------------------------------------------------
$$WKF_ODS_USER_ID=USER1
$$WKF_PKG_NAME=ETL_PKG_1
$$WKF_PROC_NAME=ETL_PROC_1
$$WKF_DB_ENV=
$$WKF_TABLE_NM=TBL1
$$WKF_SRC_TAB_NM=SCHEMA1.SRC_TABLE1
$$WKF_SRC2_TAB_NM=SCHEMA1.SRC_TABLE2
$$WKF_TGT_TAB_NM=SCHEMA1.TGT_TABLE
$$WKF_ERR_MSG=FAILED
$$WKF_ERR_NM=FAILURE
$$WKF_WRK_ENV=ACP

Expected output:

wf_param_file1.txt
$$WKF_TABLE_NM=TBL1
$$WKF_SRC_TAB_NM=SCHEMA1.SRC_TABLE1
$$WKF_SRC2_TAB_NM=SCHEMA1.SRC_TABLE2
$$WKF_TGT_TAB_NM=SCHEMA1.TGT_TABLE

wf_param_file2.txt
$$WKF_TABLE_NM=TBL2
$$WKF_SRC_TAB_NM=SCHEMA1.SRC_TABLE2
$$WKF_TGT_TAB_NM=SCHEMA1.TGT_TABLE1

Hi I have a parent class called DedicatedToServers with a child class called Blog. Blog has 3 children, User, Post, Category, Comment

In my code If I do this

package Blog;
use DBI;
use Data::Dumper;
use Moose;
extends 'DedicatedToServers';

my $dbh = DedicatedToServers->DbConnect();

All is good, however if i then create an object of User like this

package User;
use DBI;
use Data::Dumper;
use Moose;
extends 'Blog';

I get a recursive inheritance error

So how do I avoid that, do I have to extend the base class each time, or is there away to extend a class that is extended from another class

I'm struggling to pass command-line options to a systemx command from Perl's IPC::System::Simple module. Please find my minimal example below:

#!/usr/local/bin/perl

use v5.40;
use strict;
use utf8;
use warnings;
use IPC::System::Simple qw(systemx);

# set executable name
my $exe = 'hostname';

# set GNU time command
my $time = "/opt/local/bin/gtime";

# set log file name
my $ofile = $exe . '.log';

# set GNU time command options
my $opt = ' -a -f %e\t%U\t%S\t%P\t%M\t%c\t%w\t%F\t%R -o ' . $ofile;

systemx($time, $opt, $exe);

When I call systemx without options to gtime, it works well:

# systemx($time, $exe);

lobachevsky
0.00user 0.00system 0:00.01elapsed 0%CPU (0avgtext+0avgdata 1152maxresident)k
0inputs+0outputs (1major+189minor)pagefaults 0swaps

When I call systemx with options to gtime, my script fails:

# systemx($time, $opt, $exe);

gtime: cannot run  -a -f %e\t%U\t%S\t%P\t%M\t%c\t%w\t%F\t%R -o hostname.log: No such file or directory
Command exited with non-zero status 127
0.00user 0.00system 0:00.00elapsed 50%CPU (0avgtext+0avgdata 1040maxresident)k
0inputs+0outputs (0major+83minor)pagefaults 0swaps
"/opt/local/bin/gtime" unexpectedly returned exit value 127 at ./profiler_mini.pl line 21.

I must be missing something obvious here.