Re: running command line from Perl

your standard shell is most probably CMD but the command you are trying to run is Powershell.

> # this runs fine from command line

which is powershell? (look at the preceding PS)

> `` works perfectly fine on macOS

MacOS supports PS?

UPDATE

TIMTOWTDI, but this works for me

C:\tmp>perl
print `powershell Invoke-Command -ScriptBlock {"get-wmiobject Win32_Co
+mputerSystemProduct | select-object -ExpandProperty UUID"}`
__END__
C44A693E-8B14-11EC-6464-A0542DA054C5
[download]

Only tangentially a Perl question, you need to find ways to execute your PS from CMD ...

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery}

Comment on Re: running command line from Perl Download Code

Replies are listed 'Best First'.
Re^2: running command line from Perl by karlgoethebier (Abbot) on May 18, 2022 at 13:40 UTC
MacOS supports PS? ŤThe Crux of the Biscuit is the Apostropheť	[reply]
Re^3: running command line from Perl by LanX (Saint) on May 18, 2022 at 14:32 UTC
Interesting, thanks! :) Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply]
Re^2: running command line from Perl by Anonymous Monk on May 18, 2022 at 12:11 UTC
You are right. I am using Powershell but CMD is standard. I found this alternative for CMD: `wmic path win32_computersystemproduct get uuid #works in CMD` [download] Still I do not get the principle from Perl for CMD `my $UUID = system ('wmic path win32_computersystemproduct get uuid');` [download] No PS on macOS. I meant the way to call a command from Terminal works out-of-the-box. This works on macOS: my ($UUID) = `ioreg -d2 -c IOPlatformExpertDevice` =~ /^.\bIOPlatform +UUID\b."([^"]+)"\s*$/m or print "failed to parse ioreg"; [download]	[reply] [d/l] [select]
Re^3: running command line from Perl by LanX (Saint) on May 18, 2022 at 12:41 UTC
> `system ('wmic path win32_computersystemproduct get uuid');` ehm ... ~~works for me~~ °, `C:\tmp>perl print system ('wmic path win32_computersystemproduct get uuid'); __END__ UUID 2DA054C5-6464-11EC-8B14-A054C44A693E 0 C:\tmp>` [download] ... but you need to extract the second line from the output. Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery} update °) sorry, the demo is misleading, see Re^6: running command line from Perl a working approach is: `C:\tmp>perl $a=qx(wmic path win32_computersystemproduct get uuid); print "<<<$a>>>"; __END__ <<<UUID 2DA054C5-6464-11EC-8B14-A054C44A693E >>> C:\tmp>` [download]	[reply] [d/l] [select]
Re^4: running command line from Perl by Anonymous Monk on May 18, 2022 at 14:50 UTC
system does not capture output, "print" in parent just says "0"	[reply]
Re^5: running command line from Perl by NetWallah (Canon) on May 18, 2022 at 15:14 UTC
Re^6: running command line from Perl by LanX (Saint) on May 18, 2022 at 15:48 UTC
Re^3: running command line from Perl by ikegami (Patriarch) on May 18, 2022 at 17:57 UTC
Nothing stops you from using `system` to run powershell instead of cmd.	[reply] [d/l]
Re^3: running command line from Perl by LanX (Saint) on May 18, 2022 at 12:12 UTC
Please look at my update for another way to do it :) Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply]
Re^4: running command line from Perl by Anonymous Monk on May 18, 2022 at 12:44 UTC
Rolf, that update is super. Thank you!	[reply]

UPDATE

update