perl

1열

2답변

Thread :: Queue가 끝날 때까지 기다리는 올바른 방법은 무엇입니까?

나는 간단한 크롤러를 구축하기 위해 노력하고있어,하지만 결코이 완료되지 모든 스레드, 심지어 큐가 비어있는 것 같다 #!/usr/bin/perl use strict; use warnings; use threads; use Thread::Queue; use LWP::UserAgent; use HTML::LinkExtor; my $ua = ne

4열

2답변

패턴 연산과 일치하는 펄 패턴

펄 정규식에서 일치하는 하위 패턴에 대해 어떻게 산술 연산을 수행 할 수 있는지 알고 싶습니다. 이건 그냥 샘플 코드이며, 나는 \1 사용하는 방법을 이해하려면 (이미 일치하는 하위 패턴이 경우 -. 7)에서 pattern+1(8) my $y = 77668; if($y =~ /(\d)\1(\d)\2\1+1/) #How to increment a previ

1열

2답변

펄에서 파일을 업로드하기위한 헤더는 무엇입니까?

나는 이것을 두시간 동안 붙들어 왔고 연구를 통해 해결책을 찾지 못했습니다. 다음 HTML 코드는 내가 필요로 무엇을 작동합니다 <form action="uploader.php" method="POST" enctype="multipart/form-data"> <label for="file">Filename:</label> <input type="file

0열

2답변

Perl : do-while 루프 이후에 인쇄 할 때 오류가 발생했습니다.

입력 문자열 각각을 주 문자열 $food에 추가하는 concatenating do-while 루프를 만들고 있습니다. 여기 코드는 다음과 같습니다 do { print("\nEnter your order(-1 to end): "); $order = <>; chop($order); if ($order != -1) {

0열

2답변

Perl 여러 파일에서 정지 단어 제거

파일에서 정지 단어를 제거하는 방법에 대한 많은 형식을 읽었으므로 다른 많은 것들이 제거되지만 정지 단어도 포함하고 싶습니다. 이것은 내가 얼마나 멀리 도달했는지는 모르지만 나는 무엇을 놓치고 있는지 모른다. use Lingua::StopWords qw(getStopWords); my $stopwords = getStopWords('en'); chdi

8열

1답변

Perl 스칼라가 특정 서브 루틴에 대한 참조를 보유하고 있는지 어떻게 확인할 수 있습니까?

즉, coderef "평등"을 어떻게 확인할 수 있습니까? smartmatch 연산자 (CODE->(ANY)로 취급 것) for obvious reasons 작동하지 않습니다,하지만 난 후 난 무엇을 보여주기 위해 예제를 포함 시켰습니다 :이 use strict; use warnings; use feature 'say'; sub pick_at_ran

3열

1답변

perl에서의 문자열 연결

이 문자열을 perl에서 연결하려고합니다. "/.hush_profile"; 문자열에 "/"를 추가해도 계속 문제가 발생합니다. 나는 그것을 벗어나려고했지만 그것도 작동하지 않습니다. 당신이 내게 줄 수있는 모든 도움을 이 #!/usr/bin/perl -w use strict; my($fileloc, $home_dir); $home_dir = $ENV

3열

1답변

WWW :: Mechanize :: Firefox 문제 해결

MozRepl을 내 브라우저에 설치하고 시작시 시작하고 외부 연결을 허용하도록 설정했습니다. 내 질문은 다음과 같습니다 1) 코드를 실행하는 것입니다 my $mech = WWW::Mechanize::Firefox->new(); 파이어 폭스 브라우저를 시작? 2) 외부 연결을 허용하도록 MozRepl을 설정했지만 Firefox가 실행되지 않는 동안 스크립트가

0열

1답변

Windows 실행 파일의 존재 여부를 확인하는 방법은 무엇입니까?

my $exe = "'C:/Program Files/Common Files/executable.exe'"; if(! -X $exe) { print "exe file not found"; exit 3; } my $cmd = $exe.' status'; @lines = qx ($cmd); 내 문제는 내가이 명령을 잘 실행할 수

-3열

1답변

http를 사용하여 바이너리 파일을 수신하는 Perl CGI 스크립트

http put 메소드를 사용하여 보낸 바이너리 파일을 수신하는 perl cgi 스크립트를 작성하고 싶습니다. 이 스크립트는 file의 바이너리 내용을 읽고 폴더에 저장합니다. 누군가 코드를 공유 할 수 있습니까? 감사합니다.