cowens · August 26, 2014 19:50
diff --git a/alternate remote cat b/alternate remote cat
 #!/usr/bin/perl

 use strict;
 use warnings;

 @ARGV = map {
        /((?:[^@]+@)?[^:]+):(.*)/ ? "ssh $1 cat $2 |" : $_ 
 } @ARGV;

 while (<>) {
        print;
 }
	#!/usr/bin/perl

	use strict;
	use warnings;

	@ARGV = map {
	/((?:[^@]+@)?[^:]+):(.*)/ ? "ssh $1 cat $2 \|" : $_
	} @ARGV;

	while (<>) {
	print;
	}