Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
executable file 9 lines (8 sloc) 204 Bytes
#!/usr/bin/perl
my @AllBranches = `git branch -a`;
for my $branch (@AllBranches) {
if($branch =~ /^ *(found\/\d\d\d)$/) {
printf "Delete branch: %s\n", $1;
`git branch -D $1`;
}
}