[완료]perl을 이용하여 txt 안에 있는 숫자값을 일정 규칙에 의해 치환하고자 할때..

글쓴이: momo7 / 작성시간: 수, 2012/04/18 - 5:29오후

perl을 이용하여 해결하고 싶습니다.

txt파일에

100 200 100 300
200 100 300 150
150 200 300 140
400 300 200 100

이라는 형식으로 기록이 되어있습니다.

이것을

perl을 이용하여 200이상인 값은 1 그렇지 않으면 0로 변환하여라는 것을 할 수 있나요?

즉 아래와 같이 바뀌면 됩니다.
0 1 0 1
1 0 1 0
0 1 1 0
1 1 1 0

Forums:

글쓴이: raymundo / 작성시간: 수, 2012/04/18 - 5:51오후

d:\Temp>perl -lne "print(join(' ', map { ($_>=200)?1:0 } split / /,$_))" input.txt
0 1 0 1
1 0 1 0
0 1 1 0
1 1 1 0

싫으시면 아래 걸로 ^^;

while ( my $line = <> ) {
    print join(' ', map { $_>=200?1:0 } split / /, $line), "\n";
}

좋은 하루 되세요!

글쓴이: raymundo / 작성시간: 수, 2012/04/18 - 5:56오후

생각해보니 그냥 정규식으로 해도...

d:\Temp>perl -lpe "s/(\d+)/$1>=200?1:0/ge" input.txt
0 1 0 1
1 0 1 0
0 1 1 0
1 1 1 0

while ( my $line = <> ) {
    $line =~ s/(\d+)/$1>=200?1:0/ge;
    print $line;
}

좋은 하루 되세요!

글쓴이: 익명 사용자 / 작성시간: 수, 2012/04/18 - 10:33오후

감사합니다.... 이제 perl을 배우기 시작했는데 공부해야할것이 많군요...

그래도 덕분에 많은 데이터를 손쉽게 조작할 수 있게 되었습니다.

펄은 참 재미있는것 같습니다...

부 메뉴