カレントディレクトリ以下に含まれるGitのリモートリポジトリのホスト名を一括して書き換える。

git-remote-rename.pl

#!/usr/bin/env perl
# -------------------------------------
# 要 IO:All (cpanm install IO::All)
# 必ずバックアップを行ってから実行すること
# -------------------------------------
use strict;
use warnings;
use feature 'say';

use File::Find;
use Data::Dumper;
use IO::All;

my $hostFrom="oldHost.domain";
my $hostTo  ="newHost.domain";

my @lists;
find(sub {
	my $name=$File::Find::name;
	if($name=~m!\Q/.git/config\E!) {
		push @lists,$name;
	}
},'.');


foreach my $fn(@lists) {
	say "[$fn]";
	my $buf=io($fn)->all;
	$buf=~s!url = git\@$hostFrom!url = git\@$hostTo!g;
	io($fn)->print($buf);
}