Skip to content

Instantly share code, notes, and snippets.

@moeffju
moeffju / moshalias.pl
Last active December 14, 2015 23:59 — forked from mariow/moshalias.pl
#!/usr/bin/perl
my $ssh="/usr/bin/ssh";
my $mosh="/usr/bin/mosh";
my $host;
my $unsupported=0;
for (my $i=0; $i <= $#ARGV; $i++) {
if ($ARGV[$i] =~ /^-/) {
$ssh .= " \"$ARGV[$i]\"";