logo
Author: ksurent
Description: rename.pl
Language: Perl
#!perl

use strict;
use warnings;

$| = 1;

my $INPUT = shift || usage();
my $PATH  = shift || './/';

-d $PATH or die 'check your <directory>';
open my $fh, '<', $INPUT or die 'check your <input>';

while(<$fh>) {
	chomp;
	
	my($old, $new) = split /\t|;/o;
	print "$old => $new: ";
	my $res = rename $PATH . $old, $PATH . $new;
	print $res ? 'DONE' : "FAILED [$!]", "\n"
}

close $fh;

sub usage {
	exit print qq{
Usage: perl $0 <input> [directory]
E.g.:  perl $0 files.txt "C:\\\\my dir\\\\"
Note:  <directory> must be double-slashed
	}
}
Recent pastes:
n4n (Plain Text)
n4n (Perl)
alexITmore (Delphi)
alexITmore (Delphi)
ksurent (Perl)
ksurent (Perl)
ksurent (SQL)
cra (Perl)
cra (C++)
ksurent (Perl)
n0xi0uzz (Bash)
ksurent (Perl)
ksurent (Perl)
ksurent (Perl)
biophreak (Perl)
ksurent (Perl)
Gum (C++)
n0xi0uzz (PHP)
netsago.paste.β © 2008 Neunica