Perl wget 따옴표 문법 문제

Question

읽어 주셔서 감사합니다.

wget과에 쉘 명령에 대한

,이 같은 작품 :

wget -q -O - http://www.myweb.com | grep -oe '\w*.\w*@\w*.\w*.\w\+' | sort -u 

을 그러나, 나는 백 슬래시 어디 운영자 발견 한 후 나는 "를 참조 구문 오류, 펄 프로그램 내에서 해당 명령을 삽입 할 때 운영자가 예상 한 곳에서 예상대로 베어 메드를 발견했습니다. " 그래서이 정규 표현식을 둘러싸고있는 따옴표를 {}로 대체했지만, 주석으로 처리하는 것은 오류를 가져 오지 않습니다. 그러나 정규 표현식이 아닌 것처럼 중괄호는 잘못된 시도.

이

는 foreach는 내부 코드입니다 :

foreach(@my_array) { 

$browser->get($_); 
# and here below is where the error comes 
system ('wget -q -O -"$_" | grep -oe '\w*.\w*@.\w*.\w\+' | sort -u'); 

내가 {로 정규 표현식을 감싸는 작은 따옴표를 교체 할 경우}, 다음 wget과는 URL을 얻을 않지만 grep 명령이 작동하지 않습니다.

은 그래서 당신이 원하는

Answer 1

을 성가신 따옴표를 해결 구문하는 방법이 문제입니다 :

이

system ("wget -q -O -\"$_\" | grep -oe '\\w*.\\w*@.\\w*.\\w\\+' | sort -u"); 

당신은 당신이 따옴표로 좋아하는 것을 포함 할 수 있습니다 만 특정 문자를 탈출해야 .

덧붙여서 Perl의 qq() 운영자가 관심을 가질 수 있습니다. 당신은 그것을 볼 수 있습니다.

Answer 2

시스템 호출시 작은 따옴표 '을 사용하고 있습니다. 그들은 당신을 위해 변수를 채우지 않습니다. $_이 대체되지 않습니다. 또한 grep 옆의 작은 따옴표는이 잘못된 구문을 만듭니다.

대신을 시도해보십시오

system ("wget -q -O - $_ | grep -oe '\w*.\w*\@.\w*.\w\+' | sort -u"); 

또한 qq 연산자를 사용할 수 있습니다 perlop.

---

또 다른 생각을보고, 또한

system (qq(wget -q -O - $_ | grep -oe '\w*.\w*\@.\w*.\w\+' | sort -u)); 

을 : 당신은 $browser 객체가있는 경우 그 수는 get()입니다. , 왜 wget을 사용해야합니까? Perl에서도이 작업을 수행 할 수 있습니다.