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]*>);
--
fedora-list mailing list
fedora-list@xxxxxxxxxx
To unsubscribe: https://www.redhat.com/mailman/listinfo/fedora-list
