perl

2열

1답변

이것이 가능한지 모르겠지만 소켓을 통한 명령 출력을 보내려고하므로 명령이 실행되는 동안 클라이언트와 서버 컴퓨터 모두에 표시됩니다. 백틱을 사용하려고하면 오랜 시간이 걸리는 명령을 실행할 때 명령이 완료 될 때까지 출력이 변수에 저장되지 않습니다. 질문 : 다른 프로세스를 생성하고 변수를 "감시"한다고 말하면 라인별로 출력을 검사하는 방법이 있습니까? 편집

5열

1답변

App :: cpanminus (cpanm)의 기본 미러를 구성하는 방법이 있습니까?

특정 미러를 사용하도록 cpan을 쉽게 구성 할 수 있다는 것을 알고 있습니다. 그러나 최근에는 친구의 조언으로 cpanm을 사용하기 시작했으며 매번 명령 줄에 --mirror http://cpan.metacpan.org을 지정하지 않고 기본 미러를 설정하는 방법을 찾지 못하는 것 같습니다. 기본 미러를 설정할 수있는 환경 변수 또는 구성 파일이 있습니까?

2열

2답변

perl에서 숫자를 입력 할 때 각 자릿수를 더하십시오.

저는 perl에 익숙하지 않습니다. 그리고 이것은 C++과 다르다는 것을 배우고 있습니다. 그래서 사용자는 임의의 길이의 숫자를 입력하고, 각 숫자를 더하고 합계를 인쇄하려고합니다. #!/usr/bin/perl -w use strict; use warnings; print "Enter a number :"; my $num = <STDIN>;

2열

2답변

구문 분석 양식 데이터는 우리가 이상한 문자를보고있는 웹 양식 항목에서

같은 사용하는 이외의 모든 영숫자/문장 부호를 제거 DY '• (이모티콘) 또는 Ã ¢ Â € Â¬ (아무 생각하지만 윈도우 1252 생각), 그 중 일부는 정규식을 사용하여 간단히 utf-8로 대체 할 수 있지만 효율적으로 제거하는 일종의 정규식 또는 인코딩을 선호합니다. 나는 UTF-8 펄이를위한 최고의 가장 이상적인 해결책은 무엇인가에 MYSQL의 D

3열

1답변

Perl SOAP 서버가 더 이상 base64를 반환하지 않음

몇 년 전 필자는 Windows Server 2000에서 실행되는 몇 가지 Perl SOAP :: Transport :: HTML 서버를 작성했습니다. 해당 컴퓨터에서 서비스의 리턴 문자열에 soap envelope, 이 문자열을 base64로 자동 인코딩하여 클라이언트가 처리했습니다. 최근 스크립트는 Server 2008 및 Perl 5.22.1을 실행하

1열

1답변

적절한 해부학

나는 다음과 같은 코드로 펄 MIME을 통해 발송 :: 라이트 아래의 이메일을 얻기 위해 노력하고 있어요 : #!/usr/bin/perl5 -w ############### sub email_it { ############### use strict; use MIME::Lite; my ($recip, $body, $subj, $r_to, $c

0열

2답변

디렉토리 및 해당 하위 디렉토리의 단어 검색 및 바꾸기

디렉토리 및 해당 하위 디렉토리의 모든 파일에서 단어를 찾아 교체해야합니다. 나는이 코드 줄 사용 : perl -pi -w -e 's/foo/bar/g;' *.* 을하지만은 현재 디렉토리에있는 파일에 단어를 변경하고 하위 디렉토리에 영향을주지 않습니다. 어떻게 모든 디렉토리와 하위 디렉토리에서 단어를 바꿀 수 있습니까?

5열

2답변

perl에서 서브 루틴의 반환 값을 변수에 할당 할 때 메모리에 복제 된 데이터가 있습니까?

sub foo { my @return_value = (1, 2); } my @receiver = foo(); 이 할당은 perl의 다른 할당과 동일합니까? 배열은 메모리에 복제됩니까? 나는이 서브 루틴에 의한 배열 유지가 일회용이므로 복제가 완전히 중복 됨으로 인해 이러한 이유가 의심 스럽다. 최적화를 위해 배열을 @receiver에 '연결

0열

1답변

pdb 파일에서 모든 ATOM을 꺼내려고합니다.

안녕하세요. ATOM으로 시작하는 모든 행을 pdb 파일에서 꺼내려고합니다. 웬일인지, 나는 곤란을 겪고있다. 어레이 @newlines에 open (FILE, $ARGV[0]) or die "Could not open file\n"; my @newlines; my $atomcount = 0; while (my $lines = <FILE>)

1열

1답변

sqlite3 및 perl에서 고유 인덱스를 만드는 방법은 무엇입니까? 즉, 새 항목이 올 때마다 있도록

나는 데이터베이스에 값을 삽입하기 위해 노력하고, 내 데이터베이스 테이블로, 나는 장치 이름 열에 대한 고유 인덱스를 생성하고있는 DB에 삽입하기 전에 여기 $stmt = qq(CREATE TABLE IF NOT EXISTS INFO ( DeviceName TEXT NOT NULL, CurrentStatus INT NO