regex - perl 正規表現を使用して長いパスを変更する方法

Question

perl非常に長いディレクトリ パスを通過するスクリプトを作成しようとしています\dir1\dir2\dir3\.....\dir99。

私findはその道を通っています。

ディレクトリ構造は次のようなものです。

E:\work\important stuff\dir1

dir2繰り返した後、たとえば通過します

E:\work\important stuff\dir1\dir2

スラッシュの間にあるものを nameregexに置き換えるa を書き込もうとしています。目的は、パスを短くして削除できるようにすることです。\ \a

最終的にパスは次のようになります。

E:\work\important stuff\a\a\a\....\a. 

何か案は ？

Answer 1

編集：コードを「コードフィールド」に入れなかったのは残念です。バックスラッシュがありませんでした。これで正しいはずです。

これを試して？

$dir =~ s{[^\\]+}{a}g;