Grep 관련 질문 드립니다

안녕하세요? 유분투 초보사용자 입니다.
제가 perl script 를 수정하는중인데

open IWSPY,"iwspy $interface|";
while(my $l=<IWSPY>)
{

}

스크립트가 위에 처럼 되어 있습니다. l 안에 B7:D6라는 문자 가있으면 괄호 안에 것들을 실행 시키고 싶습니다.
그래서 if (my $l= grep B7:D6) {
}
를 추가 했는데 되질 않네요… 문법적으로 틀린것은 알겠는데 찾아봐도 딱히 예제가 없어서입니다. 지적 부탁드립니다.

perl은 잘 모르지만
open IWSPY,"iwspy $interface| [color=#0000FF:axplu9iv]grep B7:D6[/color:axplu9iv]";
정도로 하면 될듯…

[quote="madampark28":axplu9iv]안녕하세요? 유분투 초보사용자 입니다.
제가 perl script 를 수정하는중인데

open IWSPY,"iwspy $interface|";
while(my $l=<IWSPY>)
{

}

스크립트가 위에 처럼 되어 있습니다. l 안에 B7:D6라는 문자 가있으면 괄호 안에 것들을 실행 시키고 싶습니다.
그래서 if (my $l= grep B7:D6) {
}
를 추가 했는데 되질 않네요… 문법적으로 틀린것은 알겠는데 찾아봐도 딱히 예제가 없어서입니다. 지적 부탁드립니다.[/quote:axplu9iv]

답변 감사합니다… 어제부터 꼬박 기달리고 있었어요 ^^;;; 이것저것 해보면서요…
제가 해봤는데요… 문제는 다른 perl에서도 iwspy 를 부르거든요
그러니깐 이쪽 펄에서 20ms 마다 저쪽에서는 50ms 마다 iwspy 를 부릅니다… 물론 서로 iwspy 듣는 대상이 틀리고요…

open IWSPY,"iwspy $interface| grep B7:D6"; 이렇게 해버리면… 그냥 iwspy 한것중에 B7:D6 를 잡아 버리거든요
문제는
open IWSPY,"iwspy $interface|";
while(my $l=<IWSPY>)
{
여기서 print $l;
또한 $l 을 이용합니다.
}
그래서 { } 안에서 $l 안에 B7:D6 가 있는지를 grep 으로 시도하려 하는 겁니다… ;;;; 너무 복잡해서 죄송합니다… ㅠㅠ

[quote="madampark28":pm54qy87]답변 감사합니다… 어제부터 꼬박 기달리고 있었어요 ^^;;; 이것저것 해보면서요…
제가 해봤는데요… 문제는 다른 perl에서도 iwspy 를 부르거든요
그러니깐 이쪽 펄에서 20ms 마다 저쪽에서는 50ms 마다 iwspy 를 부릅니다… 물론 서로 iwspy 듣는 대상이 틀리고요…

open IWSPY,"iwspy $interface| grep B7:D6"; 이렇게 해버리면… 그냥 iwspy 한것중에 B7:D6 를 잡아 버리거든요
문제는
open IWSPY,"iwspy $interface|";
while(my $l=<IWSPY>)
{
여기서 print $l;
또한 $l 을 이용합니다.
}
그래서 { } 안에서 $l 안에 B7:D6 가 있는지를 grep 으로 시도하려 하는 겁니다… ;;;; 너무 복잡해서 죄송합니다… ㅠㅠ[/quote:pm54qy87]

그런 문제라면, 굳이 grep 보다는
($string =~ m/regular experession/)
을 쓰셔도 되지 않을까요…?

[code:pm54qy87]open IWSPY,"iwspy $interface|";
while(my $l=<IWSPY>)
{
if ($l =~ m/B7:D6/)
{
print $l;
}
}
[/code:pm54qy87]
이렇게 하시면 어떠실지…?

ps. 초보가 잘 모르고 끼어들었을수도 있지만;
그렇다면 너그러이 봐주세요;
전 별볼일 없는 아마추어랍니다;ㅡ,.ㅡ;ㅎㅎ

답글 너무 감사드립니다. 계속 grep 에만 집착하고 있었는데 ㅎㅎㅎ
감사해요~~^^;;;

[code:27fci6u6]
while (my $l = <IWSPY>) {
next unless $l =~ m/B7:D6/;
#여기에 필요한 코드를 넣는다.
}
[/code:27fci6u6]

이렇게 하는것이 Perl다운 방법입니다. ‘ㅅ’;

펄 질문은
cafe.naver.com/perlstudy
또는
#perl 채널에서 하면 쉽게 답변을 얻을 수 있을겁니다.