1

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. 

何か案は ?

4

1 に答える 1

0

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

これを試して?

$dir =~ s{[^\\]+}{a}g;
于 2013-10-09T14:35:43.320 に答える