Perl substituir string dentro do arquivo pelo nome do arquivo?

Question

Eu preciso substituir uma string em um arquivo JSON pelo nome do arquivo. Eu combinei com sucesso a string a ser substituída usando o regex abaixo, mas não consigo descobrir como colocar o nome do arquivo lá para substituir a string.

Nota: Este é um script usado em uma regra dentro do aplicativo Hazel. O aplicativo me diz para se referir ao arquivo sendo processado no script usando '$ 1'. Então, como eu insiro o nome do arquivo para o arquivo $ 1 na função localizar e substituir abaixo?

perl -pi -e 's/((?<=text": ")\S*(?="))/FILENAME/g' PATH-TO-FILE

    

Answer 1

O nome do arquivo atual é $ARGV

perl -pi -e 's/((?<=text": ")\S*(?="))/$ARGV/g' PATH-TO-FILE 

link