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.
18 lines
377 B
18 lines
377 B
8 years ago
|
#!/usr/bin/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]");
|
||
|
|
}
|
||
|
|
}
|