Mercurial > ec-dotfiles
view bin/rmcrc @ 616:dc2070cb5d71
Default json to 2 spaces indentation
author | nanaya <me@nanaya.pro> |
---|---|
date | Mon, 09 Jul 2018 16:04:01 +0900 |
parents | 66c32422a3d4 |
children |
line wrap: on
line source
#!/usr/bin/env perl use warnings; use strict; use File::Basename; my @files = @ARGV or print("Usage: ",basename($0)," file1 ... fileN\n") && exit(1); my $skip=0; foreach (@files) { print(qq(Could not find file "$_", skipping\n)) and next() unless -e $_; my $newname = $_; $newname =~ s/\[[[:xdigit:]]{8}\]//i; $newname =~ s/ *(\.\w+)$/$1/; print(qq($_: $newname already exists, skipping\n)) and next() if -e $newname and $_ ne $newname; if ($_ eq $newname) { print("$_: no need to rename, skipping\n"); } else { if($skip==1) { print("Result: $_ --> $newname\n"); } else { if(rename($_, $newname)) { print("$_ -> $newname\n"); } else { print("$_: rename failed\n"); } } } next(); } exit(0);