perl

    3

    1답변

    Locale::Maketext (또는 더 구체적으로는 CatalystX::I18N::Model::Maketext)을 통해 웹 사이트를 여러 언어로 번역했습니다. maketext 클래스는 데이터베이스에서로드하여 컴파일시 var % Lexicon 패키지에 어휘집을로드합니다. 내 앱에서 어휘집에 대한 관리 인터페이스를 추가하고 싶었지만 어휘집을 다시로드하는 방법

    0

    2답변

    배치 (batch) 또는 때로는 명령 프롬프트에서 입력 (텍스트 파일)을 제공하는 펄 스크립트가 있습니다. 배치 파일에서 입력을 제공 할 때 가끔 파일이 존재하지 않을 수 있습니다. 이 오류가 발생하면 No such file exists 오류를 catch하고 다른 작업을 수행하고 싶습니다. 아래 샘플 코드를 찾으십시오. while(<>) //here it

    0

    2답변

    Excel 파일을 구문 분석하고 다음을 수행하는 Perl 스크립트가 있습니다. A 열의 각 값, B 열의 요소 수를 계산합니다. 스크립트는 다음과 같습니다. use strict; use warnings; use Spreadsheet::XLSX; use Data::Dumper; use List::Util qw(sum); my $col1 = 0;

    0

    3답변

    이것은 생물 정보학 관련 질문이지만 여전히 많은 프로그래밍 문제입니다. 나는 아래에 주어진 문제에 대해 bash에서 몇 개의 라이너를 구축하지 못했고 여기에 그것을 묻는 것을 생각했다. 친절하게 도와주세요. 문제점 : 두 개의 파일 (탭 구분)이 있습니다. 파일 A 모양 같습니다 chr1 17050255 234916798 chr1 36688211 3684

    2

    3답변

    perl을 사용하여 아래 문자열을 분할해야합니다. 자세한 내용은 아래에 나와 있습니다. CSV 파일에서 테이블에 데이터를로드해야합니다. 문자열 변수는 ""로 묶입니다. 저에게 아이디어를 제공해주세요. 펄 스크립팅을 처음 접했습니다. 문자열 : "February 6, 2012","","","1","02/06/12","","",1,1,0 출력 :이 CSV처럼

    4

    2답변

    저는 Perl을 배우려고하고 use과 모듈에 대해 이해하려고합니다. (use strict; use warnings; 가정) 은 본인은 use File::Find;로드 모듈의 모든 서브 루틴. use File::Find qw(find);은 모듈의 find 서브 루틴 만로드합니다 (다른 서브 루틴은 File::Find::finddepth을 통해 사용됨). 그럼

    2

    1답변

    나는 두 배열 내가 처음이별로 일치 할 필요 @one = ("1|1|the|dog|ran", "1|2|a|x|b", "2|8|e|s|e"); @two = ("1|2|a|x|b", "1|1|down|the|street", "2|8|e|s|e"); 이 분리 된 요소. 따라서 $ 1 [0] 일 때 검색은 $ 2를 반환합니다 [1]. 각 배열에는 수백만 개의

    2

    1답변

    내 가게에서 코드를 확인하는 작업은 복잡한 춤을 포함하며 ClearCase 체크인의 트리거 내부에서 몇 가지 프롬프트에 응답하는 것으로 끝납니다. 트리거를 수정하여 명령 줄 인수를 사용하고 싶습니다. 이것이 가능한가? 실패하면 프롬프트에 응답 할 수 있도록 STDIN을 흔들어 볼 수 있습니다. 여기에 파일을 사용해 보았지만 두 번째 프롬프트는 무한 반복되었

    4

    5답변

    File :: Temp를 사용하여 임시 파일을 만듭니다. 내 임시 파일은 프로그램이 정상적으로 종료되면 자동으로 삭제됩니다. 내 프로그램이 Ctrl + C로 중지되면 같은 일이 일어날 것으로 예상했다. 그렇지 않습니다. 다음은 간단한 문제를 보여주는 프로그램입니다. 원하는 동작은 다음과 같습니다. 그것을 어떻게 성취 할 수 있습니까? 나는 리눅스에있다. 파

    5

    2답변

    Perl의 $_ 기능과 동일한 기능이 있습니까? 나는 C#에서 오래된 Perl 스크립트를 다시 작성하고 Perl을 전혀 배웠다. Heres는 내가 모든 sub copyText { while($_[0]){ $_[1]->Empty(); $_[0] = $_[1]->IsText(); sleep(1); }