masayuki5160 · December 22, 2015 21:09 · masayuki5160 · Sep 14, 2013
diff --git a/openssh.pl b/openssh.pl
 use Net::OpenSSH;

 my $host = "hostname";

 # ログイン認証
 my $ssh = Net::OpenSSH->new(
        $host,
        (
            user => 'username',
            password => 'pass',
            port => '10022',
        ),
    );
 $ssh->error and die "Can't ssh to ". $host .": " . $ssh->error;
	use Net::OpenSSH;

	my $host = "hostname";

	# ログイン認証
	my $ssh = Net::OpenSSH->new(
	$host,
	(
	user => 'username',
	password => 'pass',
	port => '10022',
	),
	);
	$ssh->error and die "Can't ssh to ". $host .": " . $ssh->error;