[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]

Re: script help request



Paul Lemmons wrote:
Try this. I am sure it could be done better but I think it will get the job done ...

Not "better" just different:

# Read pairs like "81230 jsmith" from stdin
%id = map {split} <>;

foreach (<*_d_[0-9]*>) {
    # substitute the id#: $_ is orig filename, $n is new
    ($n = $_) =~ s/_d_([0-9]+)_/_d_$id{$1}_/;

    # rename the file only if the id# is in our list
    if ($id{$1}) {
	rename($_,$n) || warn "can't rename $_: $!\n";
    } else {
	warn "unknown id '$1' in file '$_'\n";
    }
}


Or just for fun, as a one-liner:

%id=map{split}<>;($n=$_)=~s/_d_([0-9]+)_/_d_$id{$1}_/ && \
$id{$1} && print("$_>$n\n") || warn "$_:$!\n" foreach(<*_d_[0-9]*>);


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]