#!/usr/bin/perl -w
#
# $Id: mv2inode,v 1.1 2007/07/09 22:42:35 vogelke Exp $
#
#<Rename each regular file on command line as its inode number.
# Optionally print mv commands for restoring original names to stdout.

use strict;
use File::Basename;

my ($dev, $dir, $file, $ino, $mode);
my $quiet = 1;  # FIXME: should be an option

foreach $file (@ARGV) {
    unless (-f $file) {
        warn "$file is not a regular file, skipping\n";
	next;
    }

    ($dev, $ino, $mode) = stat($file);
    die "$file: cannot stat: $!\n" unless defined($ino);

    # Has file already been renamed?
    if (basename($file) eq $ino) {
        warn "$file is already named after inode, skipping\n";
	next;
    }

    # Rename or warn.
    $dir = dirname($file);
    if (rename("$file", "$dir/$ino")) {
        print "/bin/mv $dir/$ino $file\n" unless $quiet;
    }
    else {
        warn "$file -> $dir/$ino: $!\n";
    }
}

exit(0);