同步git修改文件到远端服务器脚本

 #!/usr/bin/perl -w
 @files=`git status -s` ;
 @sync_files = ();

 foreach (@files)
 {
 　　$file = substr($_,);  # 固定前2个字符为状态 + 1个空格
 　　chomp($file);
 　　push(@sync_files, $file);
 }

 $cmd = "scp -r ";
 foreach $file (@sync_files)
 {
 　　$cmd = $cmd.$file." ";
 }

 $cmd = $cmd.' ops@192.168.1.1:/home/ops/';

 print $cmd."\n";
 system($cmd);