You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
381 B
16 lines
381 B
#!/usr/bin/env perl
|
|
|
|
my $user_at_address = $ARGV[0];
|
|
my @u_a = split(/@/, $user_at_address);
|
|
if (defined $u_a[1]) {
|
|
if ( $^O == 'linux' ) {
|
|
exec ("/usr/bin/ssh $u_a[0]\@$u_a[1]");
|
|
}
|
|
} else {
|
|
print "Enter your username: ";
|
|
my $username = <STDIN>;
|
|
chomp ( $username );
|
|
if ( $^O == 'linux' ) {
|
|
exec ("/usr/bin/ssh $username\@$u_a[0]");
|
|
}
|
|
}
|
|
|