shell script의 awk 명령을 perl로 구현할 수 있는 방밥 질문드립니다 ㅠㅠ
글쓴이: yoon7068 / 작성시간: 화, 2017/02/14 - 10:30오전
test_script라는 shell script file이 있습니다 내용은 아래와 같습니다.
cat ./test | grep \?\?\? | sort --key=3 | awk '{ printf "%s %-30s %s %s %s\n",$1, $2 , $3, $4, $5}' | sed 's/X/0/g' | awk '$4 ~ /1/'
위의 shell script 구문에서
cat ./test | grep \?\?\? | sort --key=3 | sed 's/X/0/g' | awk '$4 ~ /1/'
는 그대로 shell script로 사용하고
awk '{ printf "%s %-30s %s %s %s\n",$1, $2 , $3, $4, $5}' -> awk부분만 perl로 만들어서 구현하고 싶습니다.
위의 awk 명령만 perl로 만든 다음 test_script를 돌렸을 때 awk명령을 perl로 바꾸어도, shell script로 만들었을 때와 동일하게 구현되게 하려고 하는데 너무 어렵습니다..ㅜ shell script 환경의 경우에 perl이 안먹는거 같고 perl로 위의 awk 명령 file로 만들어서 shell script에 대입하면 될거 같다고도하고 system 함수 쓰면 될거라고 하는데 어렵습니다.
script와 perl 배워 보지 못해서, 해보려고 하는데 위의 내용 어떤 식으로 구현하면 될지 알려주시면 감사 드리겠습니다 도움 부탁드립니다 ㅠ
Forums:
awk를 거의 몰라서 그런데, 라인을 공백을 구분자로
awk를 거의 몰라서 그런데, 라인을 공백을 구분자로 해서 분리한 다음 처음 다섯 컬럼을 저 포맷에 맞춰 출력하면 되는 거죠?
정도로 해보시면 될 것 같네요.
(이미 원하는 일을 하는 스크립트가 있는데 굳이 일부만 (뒤에도 awk가 있는데 그건 놔두면서) 바꾸시려는 이유가 궁금하긴 합니다만)
좋은 하루 되세요!
#!/usr/local/bin/perl 새 글
#!/usr/local/bin/perl 새 글
글쓴이: yoon7068 / 작성시간: 수, 2017/02/15 - 4:00오후
#!/usr/local/bin/perl
use strict;
use warnings;
while (defined(my $line = <>)) {
# http://perldoc.perl.org/functions/split.html
my @chunks = split ' ', $line;
grep "???";
print " $chunks[0] $chunks[1] $chunks[2] $chunks[3] $chunks[4]\n"; # -Multf8 -CilO -ne 'print if / *???*/' ;
## -Multf8 -CilO -ne 'print if / *???*/'
}
위와의 구문을 test.pl 파일로 만들어서
test.pl 입력file.txt (enter)
이렇게 만들었어요 이미 스크립트가 있는데 perl 공부를 하려고 하는 중입니다
perl -ne 'printf "%s %-30s %s %s %s\n", (split)[0..4]'
이렇게 알려주신 거는 다른 형식으로 진행 하는거같은데 test.pl file에 기입해서
하는게 아닌가봐요 어떻게 사용하는건지 물어봐도 될까요? 친절히 답변 달아주셔서 감사합니다
윤희혁
윤희혁
별도의 펄 스크립트 파일을 만들 필요 없이, 그냥
별도의 펄 스크립트 파일을 만들 필요 없이, 그냥 원래 있던 test_script 의 내용에서 awk 대신 쓰시라고 했던 거였습니다.
perl 인터프리터의 명령행인자 중 -n와 -e 를 사용해서 즉석으로 실행되는 코드를 만든 겁니다.
이것은
처럼 실행됩니다. 결과적으로 글쓰신 분이 따로 만드신 펄 스크립트와 유사하게 동작하죠. $line 대신 암묵적 디폴트 변수 $_를 사용한다는 차이 정도.
좋은 하루 되세요!
넵 친절한 설명 감사드립니다 :^)
넵 친절한 설명 감사드립니다 :^)
윤희혁
#!/usr/local/bin/perl
#!/usr/local/bin/perl
use strict;
use warnings;
while (defined(my $line = <>)) {
# http://perldoc.perl.org/functions/split.html
my @chunks = split ' ', $line;
grep "???";
print " $chunks[0] $chunks[1] $chunks[2] $chunks[3] $chunks[4]\n"; # -Multf8 -CilO -ne 'print if / *???*/' ;
## -Multf8 -CilO -ne 'print if / *???*/'
}
위와의 구문을 test.pl 파일로 만들어서
test.pl 입력file.txt (enter)
이렇게 만들었어요 이미 스크립트가 있는데 perl 공부를 하려고 하는 중입니다
perl -ne 'printf "%s %-30s %s %s %s\n", (split)[0..4]'
이렇게 알려주신 거는 다른 형식으로 진행 하는거같은데 test.pl file에 기입해서
하는게 아닌가봐요 어떻게 사용하는건지 물어봐도 될까요? 친절히 답변 달아주셔서 감사합니다
윤희혁
댓글 달기