행의 날짜 필드에 대한 후행 0 바꾸기

Question 1

다음을 수행할 수 있습니다.

perl -F'[|]' -lae 's/\.\d+?\K0+$// for $F[2], $F[4]; print join "|", @F'

(여기서 가정하면날짜 필드각각 세 번째 ^와 다섯 번째 ⁾ .

Answer

다음을 수행할 수 있습니다.

perl -F'[|]' -lae 's/\.\d+?\K0+$// for $F[2], $F[4]; print join "|", @F'

(여기서 가정하면날짜 필드각각 세 번째 ^와 다섯 번째 ⁾ .

Question 2

파일이 있습니다

perl -ip -e 's/(\.\d+?)0*(\|)/$1$2/g' "$F"

또는 파이프

echo "$V" | perl -pe 's/(\.\d+?)0*(\|)/$1$2/g'

Answer

파일이 있습니다

perl -ip -e 's/(\.\d+?)0*(\|)/$1$2/g' "$F"

또는 파이프

echo "$V" | perl -pe 's/(\.\d+?)0*(\|)/$1$2/g'

Question 3

이건 어때? :

perl -pe 's/(\.\d+?)0*(\D)/$1$2/g'

예제 입력에는 시작과 끝 부분에 큰따옴표가 포함되어 있으므로 아마도 줄 끝에 부동 소수점은 없을 것입니다.

Answer

이건 어때? :

perl -pe 's/(\.\d+?)0*(\D)/$1$2/g'

예제 입력에는 시작과 끝 부분에 큰따옴표가 포함되어 있으므로 아마도 줄 끝에 부동 소수점은 없을 것입니다.

관련 정보