Re^3: running command line from Perl

> 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]

Comment on Re^3: running command line from Perl Select or Download Code

Replies are listed 'Best First'.
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
Documentation for system explicitly says: This is not what you want to use to capture the output from a command; for that you should use merely backticks or qx//, as described in "`STRING`" in perlop. Return value of -1 indicates a failure to start the program or an error of the wait(2) system call (inspect $! for the reason). "These opinions are my own, though for a small fee they be yours too."	[reply]
Re^6: running command line from Perl by LanX (Saint) on May 18, 2022 at 15:48 UTC
It's worth noting that AnoMonk was right, the output of the command bypassed Perl (instead of being printed by Perl) and went via STDOUT directly to the console. I've updated the misleading node. Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply]