deploy.pl

来自「本人历尽千辛万苦找的clustream中的jar包」· PL 代码 · 共 45 行

#!/usr/bin/perl

use FileHandle;

$hostfile = $ARGV[0];
$copyfile0 = $ARGV[1];
$copyfile1 = $ARGV[2];

print "$hostfile\n";
print "$copyfile0\n";
print "$copyfile1\n";

my $FH = new FileHandle("$hostfile");

while($line=<$FH>)
{
	my ($flag, $ipaddress) = (substr($line, 0, 1), substr($line, 2, 13));
	$errmes = system ("ssh $ipaddress 'mkdir /scratch/chenlia'");
	print "\n$errmes\n\n";
	if($errmes = ~m "No such file or ")
	{
		$errmes = system ("ssh $ipaddress 'mkdir /scratch1/chenlia'");
		print "try scratch1\n";
		$dir="/scratch1/chenlia/index-service-config.xml";
	}
	else
	{
		$dir="/scratch/chenlia/index-service-config.xml";
	}
	print "\n$flag";
	if($flag = ~m "1")
	{
		$copyfile = $copyfile1;
	}
	else
	{
		$copyfile = $copyfile0;
	}

#	print "scp $copyfile $ipaddress\:$dir";
	system( "scp $copyfile $ipaddress\:$dir");
	print "done with $ipaddress\n";
}