You should look into using the rsync cpan module.<br><br><a href="http://search.cpan.org/~leakin/File-Rsync-0.42/Rsync.pm">http://search.cpan.org/~leakin/File-Rsync-0.42/Rsync.pm</a><br><br>Not only can you keep it all in perl-land, but you can use your already generated script as source material for your new perl script that "does it all".<br>
<br>A few ssh keys and some creative rsyncing, and you can manage just about anything. Also, if you want to run interactively, you can use Expect.pm and do it in an automated fashion:<br><br><a href="http://search.cpan.org/~rgiersig/Expect-1.21/Expect.pod">http://search.cpan.org/~rgiersig/Expect-1.21/Expect.pod</a><br>
<br><br>Hope that helps!<br><br clear="all">---<br>Jerald M. Sheets jr.<br>
<br><br><div class="gmail_quote">On Mon, Aug 10, 2009 at 11:34 AM, Tim Watts <span dir="ltr"><<a href="mailto:timtw@earthlink.net">timtw@earthlink.net</a>></span> wrote:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Another way to mix bash & perl uses perl's -x option and __END__.<br>
<br>
The nice thing here is you don't have to worry about quoting so much. See man<br>
perlrun for more details.<br>
<br>
#!/bin/bash<br>
<br>
echo "This is from bash"<br>
perl -x $0 "$@"<br>
echo "back to bash"<br>
exit 0;<br>
<br>
#!perl<br>
use English;<br>
use strict;<br>
<br>
print "This is from perl\n";<br>
<br>
my $a;<br>
foreach $a (@ARGV) {<br>
print "arg: $a\n";<br>
}<br>
<br>
__END__<br>
<br>
<br>
Be sure to exit in the bash portion before you hit #!perl or bash will start<br>
complaining. __END__ is not strictly necessary if nothing follows it in the<br>
file.<br>
<div><div></div><div class="h5"><br>
<br>
On Monday 10 August 2009 8:28:18 am Chuck Payne wrote:<br>
> Sorry if this question seem a bit silly, but I am still very much a<br>
> newbie when it come some to scripting.<br>
><br>
> I want to write a shell script that does some scp of files, but I like<br>
> to use both bash and perl. Could I do some thing this, how would I<br>
> got about mixing shell, python, perl and other things with in a<br>
> script.<br>
><br>
> #!/bin/bash<br>
><br>
> workdir=/tmp<br>
> file="`hostname`.`date +%m%d%Y`.tgz"<br>
><br>
> # Functions<br>
><br>
> scpjvm () {<br>
><br>
> #!/usr/bin/perl -w<br>
><br>
> use Net::SFTP;<br>
> use strict;<br>
><br>
> my $host = "<a href="http://mars.myhost.com" target="_blank">mars.myhost.com</a>";<br>
> my %args = (<br>
> user => 'toor,<br>
> password => '1234567',<br>
> debug => 'true'<br>
> );<br>
><br>
> my $sftp = Net::SFTP->new($host, %args);<br>
> $sftp->get("/tmp/'jvm.`hostname`.`date +%m%d%Y`.tgz'",<br>
> "/home/ia/'jvm.`hostname`.`date +%m%d%Y`.tgz'");<br>
><br>
><br>
> }<br>
><br>
> # The work<br>
><br>
> cd $workdir<br>
><br>
> tar czvfpP $file /etc/httpd /opt/jboss/jboss/bin/<br>
> /opt/jboss/jboss/server /usr/local/bin --exclude *log* --exclude<br>
> *nohup*<br>
><br>
> scpjvm<br>
><br>
> rm $file<br>
<br>
--<br>
</div></div>It is the final proof of God's omnipotence that he need not exist in order to<br>
save us.<br>
-- Peter De Vries<br>
<div><div></div><div class="h5"><br>
_______________________________________________<br>
Ale mailing list<br>
<a href="mailto:Ale@ale.org">Ale@ale.org</a><br>
<a href="http://mail.ale.org/mailman/listinfo/ale" target="_blank">http://mail.ale.org/mailman/listinfo/ale</a><br>
</div></div></blockquote></div><br>