perl重命名：在子目录中的文件名之前添加一些内容

尽管perl的rename工具已成为我日常工作的宝贵伴侣，但仍有一些怪癖使工作更加困难-尤其是当文件不在当前工作目录中时。

假设有很多发票，并且我们知道customer1的所有发票都已分配给一个帐户。因此，为了使以后的脚本处理更加容易，我们希望在assi_“ assigned”之前添加前缀。

例如：

/home/user/bizz/invoices $ ls -1 t1/inv*

t1/inv_customer1_20130506.txt
t1/inv_customer1_20130823.txt
t1/inv_customer1_20130930.txt
t1/inv_customer2_20131207.txt
t1/inv_customer2_20131113.txt

现在看看会发生什么：

/home/user/bizz/invoices $ rename 's/^/assi_/' t1/inv_customer1*

Can't rename t1/inv_customer1_20130506.txt assi_t1/inv_customer1_20130506.txt: No such file or directory
(etc.)

嘿嘿 rename已经选择了整个路径作为前缀assi_，而不是仅选择文件。因此，难怪它无法在不存在的目录“ assi_t1”中找到inv_customer1_20130506.txt。

那么，如何rename教导仅将正则表达式应用于文件名呢？

注意：
1.我并不总是要转到cd子目录。
2.find如果可能的话，我将尽量避免使用循环。