Perl 이름 바꾸기 도구(Debian)에서 산술 연산을 수행하려고 합니다.

Question 1

당신은 거의 그것을 가지고 있습니다. /e따옴표와 점 연산자를 사용하여 수정된 대체 항목에서 리터럴 문자열과 문자열 연결을 명시적으로 표시하기 만 하면 됩니다 .

rename 's/0([2-4])([\s\S]+)/"0".($1+1).$2/e' *

Answer

당신은 거의 그것을 가지고 있습니다. /e따옴표와 점 연산자를 사용하여 수정된 대체 항목에서 리터럴 문자열과 문자열 연결을 명시적으로 표시하기 만 하면 됩니다 .

rename 's/0([2-4])([\s\S]+)/"0".($1+1).$2/e' *

Question 2

이에 대한 완전한 독립형 스크립트를 작성하지 않고 한 줄 스크립트를 선호합니다.

상황이 이렇게 복잡해지면 스크립트를 작성하지 않을 이유가 없습니다. 한 실행에서 다음 실행까지 실행하는 방법을 기억하지 못하기 때문에 매번 다시 만들거나 스크립트로 래핑하게 됩니다.

이와 같은 작은 문제의 경우 일반적으로 Bash에서 해결하려고 노력하는 것부터 시작합니다.

#!/bin/bash
if [ -z "$1" ] ; then echo Need arguments. ; exit 1 ; fi

typeset -i i=1
for f in "$*"
do
    tailbits=`echo "$f" | sed -e 's/^[0-9]+//'`
    mv "$f" sertmp-`printf %02d $i`"$tailbits"
    i=i+1
done

for f in "sertmp-*"
do
    mv "$f" `echo "$f" | sed -e s/^sertmp-//` 
done

기본적으로 스크립트는 모든 선행 숫자를 제거하고 앞에 0으로 채워진 증분 일련 번호를 추가하며 파일은 스크립트에 전달한 순서에 따라 번호가 매겨집니다.

이 작업은 두 단계로 수행됩니다. sertmp-첫 번째 단계에서는 이름 충돌 위험을 피하기 위해 접두사를 사용합니다. 이 스크립트를 호출 mp3-renamer하고 다음과 같이 호출 하면 :

$ mp3-renamer 01-foo.mp3 03-bar.mp3 04-qux.mp3

이름 바꾸기에 2개의 패스를 사용하지 않으면 첫 번째 이름 바꾸기에서 약간의 충돌이 발생합니다. ( 01-foo.mp3-> 01-foo.mp3.)

하지만 다음과 같이 호출하면:

$ mp3-renamer 02-foo.mp3 01-foo.mp3

01-foo.mp3처음 이름을 바꾸었을 때 실수로 이름 바꾸기를 삭제했습니다 .

문제가 더 복잡해지면 Perl로 다시 작성하겠습니다. 이 시점에서 해시를 사용하여 이전 이름과 새 이름의 매핑을 저장할 수 있으며, 두 번의 패스가 필요하지 않도록 이름 바꾸기를 수행하는 올바른 순서를 알아내는 몇 가지 영리한 코드를 사용할 수 있습니다.

Answer