perl

0열

1답변

내가 회원의 전체 이름을 읽고 FIRSTNAME 변수에 저장 펄 스크립트를 작성하고 아래와 같이 성 오전에 하나의 보존 자와 여러 단어 : my ($firstname, $lastname) = $member =~ m/^(\w+.*?) +(\w+)$/; my $member_name = $firstname.' '.$lastname; 값 for $ membe

2열

1답변

perl과 동등한 경우가 아니면! 자바 스크립트?

perl에서 표현식을 사용하는 경우 : isOK은 레코드 속성입니다. if (!record.isOK) 그래서 unless이 논리식 전에 !에 무엇이든에 자바 스크립트에 해당합니다는 1 또는 0 unless (record.isOK) 나의 이해는 그에게 자바 스크립트와 동일입니다. 이 정보가 맞습니까?

-3열

1답변

HTML 태그를 사용하여 테이블 형식의 루프에 대한 CGI 스크립트 당 출력을 인쇄하는 방법

다음은 내 루프 (perl-CGI 스크립트의 일부로 작성 됨)입니다. html 표 태그를 사용하여 내 웹 페이지의 표에 인쇄하고 싶습니다. 어떻게해야합니까? for($ff=0;$ff<scalar @phi;$ff++) { print $res[$ff],"---->"; printf("%0.2f",$omg[$ff]); print "<

0열

1답변

PERL Tk 및 Forks 불일치 모듈

Windows 및 Linux 용 Perl 다중 스레딩 소프트웨어를 각각 스레드 및 포크 모듈을 사용하여 개발하고 있습니다. 모든 것이 쉘로 보내지는 표준 출력으로 잘 작동하지만 일단 스크립트에 Tk 모듈을 포함시켜 GUI를 생성하기로 결정하면 응용 프로그램의 Windows 버전 만 제대로 작동하지만 실제로는 좋지 않지만 출력은 사용할 수 있습니다. 내가 리

2열

3답변

perl while 루프에서 eq 연산자로 예기치 않은 동작이 발생합니다. while 루프는 멈추지 않습니다

스칼라 $quit이 분명히 'j'와 같지 않은 후에 루프가 멈추지 않습니다. 왜 멈추지 않을까요? #!/usr/bin/perl -w use strict; my $quit = 'j'; while ($quit eq 'j') { print "Enter whatever value you want and I bet I still continue.

-2열

1답변

중첩 된 데이터 구조에 액세스하기위한 명확한 방법

코드가 작동하지만 깨끗한 방법으로 보이지 않습니다. foreach my $n (@node_list) { chomp ($n); foreach my $c (@cpes) { my @returned; #Interfaces to CPEs with MED settings my @creturned; #General

0열

1답변

더하기 및 빼기 서브 루틴을 만드는 방법

사용자가 묻는 양식에서 덧셈 및 뺄셈을위한 서브 루틴을 만드는 방법 두 개의 다른 숫자를 입력하고 합계는 처음 입력 한 숫자입니다. 더하기/빼기 두 번째 숫자를 더합니다. use CGI qw (:standard); print header; print start_html; if (!param) { print "<form action='$ENV

2열

1답변

Perl에서 사전 및 사후 점검을 사용하는 방법은 무엇입니까?

*.Tex 파일에 많은 테이블이 포함되어 있고 테이블 내부에 키워드가 있고 키워드가있는 테이블을 가져와야하는 파일이 있습니다. \\tobesplit 입력 파일 : 키워드 예를 들어 \begin{table1} ....\body1 .... \tbody1 .... \end{table1} some text ... \begin{table2} .... \body2

0열

1답변

Perl Archive :: Tar 루트 디렉토리를 제외하는 방법

d:\work 디렉토리에있는 .tgz 파일 (디렉토리 트리/파일 포함)을 추출하고 다시 변경 한 다음 다시 포장해야합니다. . D:\work\123a\... (.tgz 일 때문에 파일 \ 폴더 123a 많은 하위 폴더가 들어 같은 추출 된 폴더 지금 내가 Archive::Tar를 사용하여 반복적으로 팩을 시도 할 것이다, 그러나 문제는 "작업"폴더는 압축입

2열

4답변

디코딩 할 수 없습니다! 잘못된 Base58 문자!

나는 다음과 같은 명령을 사용하여 내 터미널에서 base58perl.pl 을 실행하려고 : perl base58perl.pl 을하지만 다음과 같은 오류 얻을 : my $fileSrc = 'base58.txt'; open my $fhSrc, $fileSrc or die "Could not open $fileSrc: $!"; my $fileDest =