# sed 와 동일한 방법으로..
echo 123456 | perl -pa -e 's/^.*(.)$/\1/'
# 또는 정규 표현식이 와닿지 않는다면..
echo 123456 | perl -naF -e 'print @F[-2].$/'
# 위와 동일하지만 내부변수를 조금 더 사용한다면
echo 123456 | perl -paF -e '$_=@F[-2].$/'
그렇군요.. 갑자기 솔라리스 머신이 갖고 싶어지는 순간이네요.
perl은 좀 의외네요. 특별히 버전을 타지 않는 구문으로 작성한 것이라..
언뜻 드는 생각은 쉘이 문자열을 처리하는 방식이 다른 것이 아닌가 생각합니다.
'' 안에 들어가는 내용이라던지 \ (이스케잎 시퀀스)라던지..
rev 가
rev 가 있다면
[bushi@rose src]$ A=123456 [bushi@rose src]$ echo ${A}|rev|cut -c1 6bash 라면 외부유틸 필요없이
[bushi@rose src]$ A=123456 [bushi@rose src]$ echo ${A:${#A}-1:1} 6OTL
정확한 조건을 잘
정확한 조건을 잘 모르겠습니다만 마지막 글자만 따오는 것이라면
sed
정도가 될 것 같습니다.
perl
$Myoungjin_JEON=@@=qw^rekcaH lreP rehtonA tsuJ^;$|++;{$i=$like=pop@@;unshift@@,$i;$~=18-length$i;print"\r[","~"x abs,(scalar reverse$i),"~"x($~-abs),"]"and select$good,$day,$mate,1/$~for 0..$~,-$~+1..-1;redo}
감사합니다
감사합니다.....
리눅스와 솔라리스 명령어 구조차이 때문인지 sed는 안되는군요. 지금 스크립트 책을 다시 보고 있는 중입니다만..ㅋㅋ
perl 문의 경우 맨 처음만 가능하군요.... perl도 다시 봐야겠습니다. 제눈에는 암호문 수준이군요 ..T.T
--- 나는요? ---
리눅스와 솔라리스 그리고 윈도우의 껍데기만 맛보고 있습니다.
--- 나는요? ---
리눅스와 솔라리스 그리고 윈도우의 껍데기만 맛보고 있습니다.
감사합니다
감사합니다.....
리눅스와 솔라리스 명령어 구조차이 때문인지 sed는 안되는군요. 지금 스크립트 책을 다시 보고 있는 중입니다만..ㅋㅋ
perl 문의 경우 맨 처음만 가능하군요.... perl도 다시 봐야겠습니다. 제눈에는 암호문 수준이군요 ..T.T
--- 나는요? ---
리눅스와 솔라리스 그리고 윈도우의 껍데기만 맛보고 있습니다.
--- 나는요? ---
리눅스와 솔라리스 그리고 윈도우의 껍데기만 맛보고 있습니다.
그렇군요.. 갑자기
그렇군요.. 갑자기 솔라리스 머신이 갖고 싶어지는 순간이네요.
perl은 좀 의외네요. 특별히 버전을 타지 않는 구문으로 작성한 것이라..
언뜻 드는 생각은 쉘이 문자열을 처리하는 방식이 다른 것이 아닌가 생각합니다.
'' 안에 들어가는 내용이라던지 \ (이스케잎 시퀀스)라던지..
아무튼 화이팅입니다. =_=
$Myoungjin_JEON=@@=qw^rekcaH lreP rehtonA tsuJ^;$|++;{$i=$like=pop@@;unshift@@,$i;$~=18-length$i;print"\r[","~"x abs,(scalar reverse$i),"~"x($~-abs),"]"and select$good,$day,$mate,1/$~for 0..$~,-$~+1..-1;redo}