Назад | Перейти на главную страницу

Perl удалить две косые черты регулярное выражение

У меня есть файл, внутри которого много строк

Все строки, содержащие

file=/aaaaaaa/bbbbbbb/cccccc/dddddd.txt

его нужно разделить до этого формата

file=/dddddd.txt

я выполняю perl в bash что-то вроде этого

perl -i -pe 'regex' /localpath/file.txt

В приведенной выше команде perl в «регулярном выражении» мне понадобится команда для этого, как это сделать?

Если вы просто хотите извлечь файл, я бы использовал Файл :: Базовое имя

perl -n -e 'print $1.$2."\n"if (/(.+\=)\/.+\/.+\/.+(\/.+)$/)' /localpath/file.txt > newfile.txt

Возможно, есть более элегантные способы сделать это.

 perl -ne '/(.*=).*\/(.*)$/ && print "$1/$2\n"' /localpath/file