«perl» 태그된 질문

배열에는 많은 데이터가 있으며 두 개의 요소를 삭제해야합니다. 아래는 내가 사용중인 코드 스 니펫입니다. my @array = (1,2,3,4,5,5,6,5,4,9); my $element_omitted = 5; @array = grep { $_ != $element_omitted } @array;

81 arrays  perl 

루트 액세스 권한이없는 공유 서버에 Perl 모듈을 설치하고 싶습니다. 어떻게 할 수 있습니까? 그들은 또한 이전 버전의 CPAN을 가지고있는 것 같습니다 (명령을 실행할 때 불만이 있습니다), 루트 액세스없이 내 계정에서 사용중인 CPAN 명령을 업데이트 할 수 있습니까?

81 perl  cpan 

배열이 있다고 가정 해 봅시다. "배열에 X가 포함되어 있습니까?"라는 작업을 많이 할 것입니다. 체크 무늬. 이를 수행하는 효율적인 방법은 해당 배열을 해시로 바꾸는 것입니다. 여기서 키는 배열의 요소입니다. 그러면 다음과 같이 말할 수 있습니다.if ($ hash {X}) {...} 이 배열에서 해시로 변환하는 쉬운 방법이 있습니까? 이상적으로는 익명 배열을 취하고 익명 …

80 arrays  perl  hash 

grep과 일치하는 모든 파일에서 문자열을 검색하고 바꾸려고합니다. grep -n 'foo' * 다음과 같은 형식으로 출력을 제공합니다. [filename]:[line number]:[text] 그렙에 의해 반환 된 각 파일에 대해, 나는 대체하여 파일을 수정하고 싶습니다 foo와 함께 bar.

80 linux  perl  awk  sed  grep 

아주 간단한 것을 봅시다. # Foo.pm package Foo { my $baz = bar(); sub bar { 42 }; ## Overwrite this print $baz; ## Before this is executed } 어쨌든 설정된 test.pl것을 변경 하고 화면에 다른 것을 인쇄 하는 실행 코드를 사용할 수 있습니까?$bazFoo.pm # maybe something here. use Foo; …

20 perl  compilation 

를 보면 Type::Tiny호출 할 때 클래스 이름 Type::Tiny->new이 공식 문서에 인용되어 있음을 알 수 있습니다. my $NUM = "Type::Tiny"->new( name => "Number", constraint => sub { looks_like_number($_) }, message => sub { "$_ ain't a number" }, ); 왜 이런거야? 이것은 단순한 스타일입니까? 이 연습에 성능상의 영향이 있습니까?

12 perl  coding-style  classname  bareword 

$ perl -pe 1 foo && echo ok Can't open foo: No such file or directory. ok 파일이 없으면 펄 스크립트가 실패하고 싶습니다. 입력 파일이 없을 때 -p 또는 -n을 실패시키는 "적절한"방법은 무엇입니까?

11 perl 

perl 5에서는 wc -loneliner를 사용하여 에뮬레이션 할 수 있습니다 . perl -lnE 'END {say $.}' test.txt Raku에서이 기능을 구현하는 방법 이것을 구현하려고하면 : raku -e 'say "test.txt".IO.open.lines.elems' 속도가 느리고 많은 메모리를 사용합니다. 재생산을위한 정보 : $ wget http://eforexcel.com/wp/wp-content/uploads/2017/07/1500000%20Sales%20Records.zip $ unzip "1500000 Sales Records.zip" $ mv "1500000 Sales Records.csv" part.txt $ …

9 perl  raku 

5 개의 예상되는 반환 문자열을 실행 중입니다. while (glob '{a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z}'x5) { print "$_\n"; } 그러나 4 문자 만 반환합니다. anbc anbd anbe anbf anbg ... 그러나 목록의 문자 수를 줄이면 : while (glob '{a,b,c,d,e,f,g,h,i,j,k,l,m}'x5) { print "$_\n"; } 올바르게 반환됩니다. aamid aamie aamif aamig aamih ... 누군가 내가 여기서 누락 …

9 perl 

Raku (Perl 6)와 그 구문을 배우고 싶어합니다. 우분투 컴퓨터에 Perl 5가 이미 설치되어 있습니다. vinod@ubuntu-s-1vcpu-1gb-nyc1-01:~$ perl -v This is perl 5, version 26, subversion 1 (v5.26.1) built for x86_64-linux-gnu-thread-multi (with 67 registered patches, see perl -V for more detail) Copyright 1987-2017, Larry Wall Perl may be copied only under the …

9 perl  install  raku  rakudo-star