running command line from Perl

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: running command line from Perl by LanX (Saint) on May 18, 2022 at 11:54 UTC
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}	[reply] [d/l]
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
Re^5: running command line from Perl by NetWallah (Canon) on May 18, 2022 at 15:14 UTC
Some notes below your chosen depth have not been shown here
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
Re: running command line from Perl by soonix (Canon) on May 18, 2022 at 13:16 UTC
using DBD::WMI: `use strict; use warnings; use DBI; my $dbh = DBI->connect('dbi:WMI:'); my $sth = $dbh->prepare('SELECT * FROM Win32_ComputerSystemProduct'); $sth->execute(); while (my @row = $sth->fetchrow) { print $row[0]->{UUID}, "\n"; }` [download]	[reply] [d/l]
Re^2: running command line from Perl by cavac (Parson) on May 19, 2022 at 07:08 UTC
Nice one! My first reaction was "someone wrote a DBD module to query some Windows API". But of course, there is a DBD for stuff like that. There always is. `perl -e 'use Crypt::Digest::SHA256 qw[sha256_hex]; print substr(sha256_hex("the Answer To Life, The Universe And Everything"), 6, 2), "\n";'`	[reply] [d/l]
Re^3: running command line from Perl by LanX (Saint) on May 19, 2022 at 18:44 UTC
> "someone wrote a DBD module to query some Windows API" FYI: The dominant "Windows API" of WMI is WQL which is kind of SQL, so it's not really that surprising Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply]
Re^4: running command line from Perl by cavac (Parson) on May 23, 2022 at 05:25 UTC
Re^5: running command line from Perl by LanX (Saint) on May 23, 2022 at 11:37 UTC
Re: running command line from Perl by Anonymous Monk on Jun 08, 2022 at 02:10 UTC
In Windows you mostly can use: `use Win32::OLE('in'); use constant wbemFlagReturnImmediately => 0x10; use constant wbemFlagForwardOnly => 0x20; $computer = "."; $objWMIService = Win32::OLE->GetObject ("winmgmts:\\\\$computer\\root\\CIMV2") or die "WMI connection fai +led.\n"; $colItems = $objWMIService->ExecQuery ("SELECT * FROM Win32_ComputerSystemProduct","WQL",wbemFlagReturnI +mmediately \| wbemFlagForwardOnly); foreach my $objItem (in $colItems) { print "UUID: $objItem->{UUID}\n"; print "\n"; }` [download] Remember "There's always more than one way to do it."	[reply] [d/l]


Keep It Simple, Stupid
	PerlMonks

running command line from Perl

UPDATE

update