원격 Git 저장소들을 백업 목적으로 clone 또는 pull 하는 스크립트

clone_and_pull.pl

#! /usr/bin/env perl

use strict;
use warnings;

use Git::Repository;

my $fh;
open $fh, '-|', 'ssh xen01vm02 ls /home/bookworm/git/' or die('Can\'t open remote git repository');
while ( my $dir = <$fh> ) {
    chomp $dir;
    if ( $dir =~ /.+\.git$/ ) {
	my @dirname = split /\./, $dir; 

	print "> $dirname[0]\n";

	unless ( -e $dirname[0] ) {
	    Git::Repository->run( clone => "ssh://xen01vm02/home/bookworm/git/$dir" );
	    next;
	}

	if ( -d $dirname[0] ) {
	    my $repo = Git::Repository->new( work_tree => $dirname[0] );
	    my @output = $repo->run(pull => '--all');
	    print "@output\n";
	    next;
	}
    }

    print "skip.\n";
}
close $fh;

1;