From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

PEVANS / IPC-PerlSSH-0.17 / examples / get-uname 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

              
#!/usr/bin/perl
use strict;
use warnings;
use feature qw( say );
use Scalar::Util qw( refaddr );
use IPC::PerlSSH;
my $ips = IPC::PerlSSH->new( Host => $ARGV[0] );
$ips->eval( "use POSIX qw( uname )" );
my @remote_uname = $ips->eval( "uname()" );
say for @remote_uname;