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

 use strict;
 use warnings;

 my $filename = shift;

 if (my ($target, $path) = $filename =~ /((?:[^@]+@)?[^:]+):(.*)/) {
        open my $fh, "-|", "ssh", $target, "cat", $path or die "$!";
        while (<$fh>) {
                print;
        }
 }
	#!/usr/bin/perl

	use strict;
	use warnings;

	my $filename = shift;

	if (my ($target, $path) = $filename =~ /((?:[^@]+@)?[^:]+):(.*)/) {
	open my $fh, "-\|", "ssh", $target, "cat", $path or die "$!";
	while (<$fh>) {
	print;
	}
	}