Câu hỏi được gắn thẻ «perl»

Perl là một ngôn ngữ lập trình động, cấp cao, đa mục đích, được biết đến với sự hỗ trợ nguyên gốc của các biểu thức chính quy và khả năng phân tích chuỗi. Vui lòng sử dụng thẻ này cho các câu hỏi về Perl nói chung. Đối với những thứ liên quan đến ngôn ngữ mới (nhưng có liên quan) Raku (trước đây là "Perl 6"), vui lòng sử dụng thẻ raku. Đối với các biểu thức chính quy theo kiểu Perl trong các ngôn ngữ khác, hãy sử dụng thẻ regex hoặc, nếu chúng dựa trên thư viện PCRE, thẻ pcre.

Cách tốt nhất để xóa một giá trị khỏi một mảng trong Perl là gì?

Mảng có nhiều dữ liệu và tôi cần xóa hai phần tử. Dưới đây là đoạn mã tôi đang sử dụng, my @array = (1,2,3,4,5,5,6,5,4,9); my $element_omitted = 5; @array = grep { $_ != $element_omitted } @array;

81 arrays perl

Làm cách nào để sử dụng CPAN với tư cách là người dùng không phải root?

Tôi muốn cài đặt mô-đun perl trên một máy chủ dùng chung mà tôi không có quyền truy cập root. Tôi có thể làm cái này như thế nào? Họ dường như cũng có phiên bản CPAN cũ hơn (nó phàn nàn về điều đó khi chạy lệnh), liệu có …

81 perl cpan

Trong Perl, làm cách nào để tạo một băm có các khóa đến từ một mảng nhất định?

Giả sử tôi có một mảng và tôi biết mình sẽ làm rất nhiều câu hỏi "Mảng có chứa X không?" Séc. Cách hiệu quả để làm điều này là biến mảng đó thành một hàm băm, trong đó các khóa là các phần tử của mảng và sau đó …

80 arrays perl hash

Dòng lệnh: tìm kiếm và thay thế trong tất cả các tên tệp được khớp bởi grep

Tôi đang cố gắng tìm kiếm và thay thế một chuỗi trong tất cả các tệp được đối sánh bởi grep: grep -n 'foo' * sẽ cung cấp cho tôi đầu ra ở dạng: [filename]:[line number]:[text] Đối với mỗi tệp được trả về bởi grep, tôi muốn sửa đổi tệp …

80 linux perl awk sed grep

Làm cách nào để xóa văn bản trong dấu ngoặc đơn bằng regex?

Tôi đang cố gắng xử lý một loạt tệp và sau đó tôi cần phải thay đổi để xóa thông tin không liên quan trong tên tệp; đáng chú ý, tôi đang cố gắng xóa văn bản bên trong dấu ngoặc đơn. Ví dụ: filename = "Example_file_(extra_descriptor).ext" và tôi muốn …

79 python regex perl

Có phím tắt Perl để đếm số trận đấu trong một chuỗi không?

Giả sử tôi có: my $string = "one.two.three.four"; Tôi nên chơi với ngữ cảnh như thế nào để có số lần mẫu tìm thấy khớp (3)? Điều này có thể được thực hiện bằng cách sử dụng một lớp lót không? Tôi đã thử điều này: my ($number) = scalar($string=~/\./gi); …

78 arrays regex perl perl4

Try :: Tiny có còn được khuyến nghị để xử lý ngoại lệ trong Perl 5.14 trở lên không?

Sự đồng thuận của cộng đồng Perl dường như Try::Tinylà cách ưa thích để xử lý các trường hợp ngoại lệ. Perl 5.14 (là phiên bản tôi sử dụng) dường như giải quyết được các vấn đề với evalcác Try::Tinyđịa chỉ đó . Try::TinyVẫn sẽ cung cấp bất kỳ lợi …

76 perl exception-handling

Làm thế nào để tôi ngủ trong một phần nghìn giây ở Perl?

Làm cách nào để tôi ngủ trong thời gian ngắn hơn một giây ở Perl?

76 perl sleep

Ghi đè một chức năng được xác định trong một mô-đun nhưng trước khi được sử dụng trong giai đoạn thời gian chạy của nó?

Hãy lấy một cái gì đó rất đơn giản, # Foo.pm package Foo { my $baz = bar(); sub bar { 42 }; ## Overwrite this print $baz; ## Before this is executed } Có cách nào tôi có thể từ test.plmã chạy thay đổi những gì $bazđược đặt thành …

20 perl compilation

Tại sao một số người dùng trích dẫn tên lớp trong Perl?

Nhìn vào Type::Tiny, tôi thấy rằng tên lớp trong lệnh gọi Type::Tiny->newđược trích dẫn trong các tài liệu chính thức, my $NUM = "Type::Tiny"->new( name => "Number", constraint => sub { looks_like_number($_) }, message => sub { "$_ ain't a number" }, ); Tại sao lại thế này? Đây có …

12 perl coding-style classname bareword

Làm thế nào tốt nhất (thành ngữ) để thất bại tập lệnh perl (chạy với -n / -p) khi không tìm thấy tệp đầu vào?

$ perl -pe 1 foo && echo ok Can't open foo: No such file or directory. ok Tôi thực sự muốn tập lệnh perl bị lỗi khi tập tin không tồn tại. Cách "thích hợp" để tạo -p hoặc -n không thành công khi tệp đầu vào không tồn tại?

11 perl

Cách mô phỏng wc -l trong Raku

Trong perl 5, bạn có thể mô phỏng wc -lbằng oneliner: perl -lnE 'END {say $.}' test.txt Cách triển khai chức năng này trên Raku Nếu bạn cố gắng thực hiện điều này: raku -e 'say "test.txt".IO.open.lines.elems' Hóa ra là chậm và sử dụng nhiều bộ nhớ Thông tin để …

9 perl raku

Glob của Perl có giới hạn không?

Tôi đang chạy chuỗi trả về mong đợi sau đây gồm 5 ký tự: 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"; } nhưng nó chỉ trả về 4 ký tự: anbc anbd anbe anbf anbg ... Tuy nhiên, khi tôi giảm số lượng ký tự trong danh sách: while (glob '{a,b,c,d,e,f,g,h,i,j,k,l,m}'x5) …

9 perl

Cài đặt Raku (Perl 6) trong Ubuntu cùng với Perl 5.26

Tôi háo hức tìm hiểu Raku (Perl 6) và cú pháp của nó. Tôi đã cài đặt Perl 5 trong máy Ubuntu. 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 …

9 perl install raku rakudo-star

Tôi có thể sử dụng Text :: CSV_XS để phân tích chuỗi định dạng csv mà không ghi nó vào đĩa không?

Tôi đang nhận được "tệp csv" từ nhà cung cấp (sử dụng API của họ), nhưng những gì họ làm chỉ là đưa toàn bộ nội dung vào phản hồi của họ. Tất nhiên, đó sẽ không phải là một vấn đề quan trọng ngoại trừ việc một số người …

8 csv perl filehandle

Khi sử dụng trang web của chúng tôi, bạn xác nhận rằng bạn đã đọc và hiểu Chính sách cookie và Chính sách bảo mật của chúng tôi.

Licensed under cc by-sa 3.0 with attribution required.