—

              
use File::Slurp::Remote;
use strict;
use warnings;
use File::Slurp;
require Exporter;
use File::Slurp::Remote::BrokenDNS qw($myfqdn %fqdnify);
use Tie::Function::Examples qw(%q_shell);
use File::Slurp::Remote::SmartOpen;
use File::Temp qw(tempdir);
our @ISA = qw(Exporter);
our @EXPORT = (@File::Slurp::EXPORT, qw(write_remote_file read_remote_file));
our $VERSION = 0.42;
my $tmpdir = tempdir(CLEANUP => 1);
our $scp = "scp -q -o StrictHostKeyChecking=no -o BatchMode=yes -o PasswordAuthentication=no";
sub write_remote_file
{
        my $host = shift;
        my $file = shift;
        my $fd;
        smartopen("$host:$file", $fd, "w");
        (print $fd @_) or die "write to $host:$file: $!";
        close($fd) or die "close $host:$file: $!";
}
sub read_remote_file
{
        my $host = shift;
        my $file = shift;
        my $fd;
        smartopen("$host:$file", $fd, "r");
        if (wantarray) {
                return <$fd>;
        } else {
                return join('', <$fd>);
        }
}
1;
__END__
HideShow 32 lines of Pod
=head1 NAME
 File::Slurp::Remote - read/write files on remote systems using ssh.
=head1 SYNOPSIS
 use File::Slurp::Remote;
 write_remote_file($host, $file, @contents);
 @lines = read_remote_file($host, $file);
 $whole_thing = read_remote_file($host, $file);
=head1 DESCRIPTION
This is similar to L<File::Slurp>, but it reads and writes files on
remote systems using C<ssh> to get there.
It uses ssh/scp to get to the remote systems.  You can override the copy
command by redefining C<$File::Slurp::Remote::scp>.  You can override
the remote shell command by redefining
C<$File::Slurp::Remote::SmartOpen::ssh>.
=head1 LICENSE
Copyright (C) 2008-2007,2008-2010 David Sharnoff.
Copyright (C) 2007-2008 SearchMe Inc.
Copyright (C) 2011 Google Inc.
This package may be used and redistributed under the terms of either
the Artistic 2.0 or LGPL 2.1 license.