The easy way is to use ssh like a filehandle:
my $verbose = 1; my $r_cat = 'ssh %s cat "%s" |'; # host, file sub r_open { my ($spec) = @_; my ($host,$file) = split /:/, $spec,2; my $cmd = sprintf $r_cat, $host, $file; print "Opening [$cmd]\n" if $verbose; open my $fh, $cmd or die "Couldn't open remote file: $cmd: $!/$?"; $fh }; my $fh = r_open('user@host:some/file'); while (<$fh>) { chomp; print "I read line '$_'\n"; };
As a second step, you might want to push some of the filtering steps onto the remote server to reduce the amount of data to be transferred:
my $verbose = 1; my $r_grep = 'ssh %s grep "%s" "%s" |'; # host, re, file sub r_grep { my ($re,$spec) = @_; my ($host,$file) = split /:/, $spec,2; my $cmd = sprintf $r_cat, $host, $re, $file; print "Opening [$cmd]\n" if $verbose; open my $fh, $cmd or die "Couldn't open remote file: $cmd: $!/$?"; $fh }; my $fh = r_grep( 'foo|bar', 'user@host:/some/other/file' ); while (<$fh>) { chomp; die "Weird line <$_>" unless /foo|bar/; print "Read line [$_]\n"; };
Update Fixed wrong order of split arguments
In reply to Re: SSH to Unix and search files for string
by Corion
in thread SSH to Unix and search files for string
by stan131
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |