Re: running command line from Perl

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]

Comment on Re: running command line from Perl Download Code

Replies are listed 'Best First'.
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
Didn't know that. I'm mostly on Linux these days. Probably spending less than 50 hours per year fiddling with Windows ;-) `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^5: running command line from Perl by LanX (Saint) on May 23, 2022 at 11:37 UTC


Perl Monk, Perl Meditation
	PerlMonks