Mercurial > ec-dotfiles

comparison bin/putcrc.pl @ 138:f963d52c031a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge.
author Edho Arief <edho@myconan.net>
date Wed, 02 Nov 2011 22:12:16 +0700
parents 5bafb912837e
children
comparison
equal deleted inserted replaced
137:983beb13c736 138:f963d52c031a
1 #!/usr/bin/perl
2
3 use warnings;
4 use strict;
5 use String::CRC32;
6
7 my @files = @ARGV or print("Usage: ren file1 ... fileN\n") && exit(1);
8 my $skip=0;
9 foreach (@files) {
10 my $newname = $_;
11 open(FILE,$_);
12 my $crc=sprintf("%08X",crc32(*FILE));
13 close(FILE);
14 $newname =~ s/(.*)\.([^.]*)/$1 [$crc].$2/;
15 $newname =~ s/\] (\[$crc)/]$1/;
16 print(qq($_: $newname already exists, skipping\n)) and next() if -e $newname and $_ ne $newname;
17 if ($_ eq $newname) {
18 print("$_: no need to rename, skipping\n");
19 } else {
20 if($skip==1) { print("$_ --> $newname\n"); }
21 else {
22 if(rename($_, $newname)) { print("$_ -> $newname\n"); }
23 else { print("$_: rename failed"); }
24 }
25 }
26 next();
27 }
28
29 exit(0);