Perl LWP 특정 단어가 포함 된 페이지에서 링크를 찾으십시오.

Question

정말 붙어 있습니다. LWP를 사용하고 있습니다. HTML 문서의 특정 링크를 배열로 푸시하고자합니다. 하지만 :

while ($edocument =~ m/href\s*=\s*"([^"\s]+)"/gi) { 
#dostuff 
} 

모든 링크를 처리합니다. URL에 'test'라는 단어가있는 링크 만 있으면됩니다.

저는 모든 종류의 조합을 시도했습니다. 내가 읽고 읽고 난 정말이 당황 상황에 대한 단서를 필요가있다

while ($edocument =~ m/href\s*=\s*"([^"\s*test*]+)"/gi) { 

(너무 많은 시도를 나열합니다).

누군가 도움을 줄 수 있습니까?

또한, $edocument에 대해서도 단어 테스트 중 하나만 일치하면됩니다. 같은 종류의 last 나는 루프에서 추측한다.

@links = $edocument =~ m/<a[^>]+href\s*=\s*["']?([^"'> ]+)/ig;

의

또한 시도 변형이어서 고유 서브 @ 링크를 통해 실행. 하지만 여전히 '테스트'라는 단어 만 연결하면됩니다. 무엇 다음과 같은 정규 표현식에 대한

Answer 1

:

while ($edocument =~ m/href\s*=\s*"([^"\s]+test[^"\s]+)"/gi) { #dostuff } 

이 정규 표현식은 그 안에 문자열 테스트와 URL을 일치합니다.