Làm cách nào để trích xuất các kết quả phù hợp từ toán tử đối sánh Perl thành các biến?

Question

Nếu tôi có toán tử đối sánh, làm cách nào để lưu các phần của chuỗi được ghi trong dấu ngoặc đơn trong các biến thay vì sử dụng $1, $2, v.v.

... = m/stuff (.*) stuff/; 

Điều gì xảy ra bên trái?

Answer 1

Bí quyết là để làm cho công việc m // trong danh sách bối cảnh bằng cách sử dụng một giao danh sách:

($interesting) = $string =~ m/(interesting)/g; 

Điều này có thể gọn gàng mở rộng để lấy những thứ nhiều hơn, ví dụ:

($interesting, $alsogood) = $string =~ m/(interesting) boring (alsogood)/g; 

Answer 2

Thông thường bạn cũng muốn thực hiện kiểm tra để đảm bảo chuỗi đầu vào khớp với cụm từ thông dụng của bạn. Bằng cách đó bạn cũng có thể xử lý các trường hợp lỗi.

Để trích xuất nội dung nào đó thú vị, bạn cũng cần phải có một số cách để neo bit bạn quan tâm đến việc trích xuất.

Như vậy, với ví dụ của bạn, điều này sẽ trước tiên hãy chắc chắn rằng các chuỗi đầu vào phù hợp với biểu hiện của chúng tôi, và sau đó trích xuất các bit giữa hai bit 'nhàm chán':

$input = "boring interesting boring"; 
if($input =~ m/boring (.*) boring/) { 
    print "The interesting bit is $1\n"; 
} 
else { 
    print "Input not correctly formatted\n"; 
} 

Answer 3

Sử dụng bracketing xây dựng (...) để tạo ra một bộ đệm chụp. Sau đó, sử dụng các biến đặc biệt $1, $2, v.v. để truy cập chuỗi đã ghi.

if (m/(interesting)/) { 
    my $captured = $1; 
} 

Answer 4

$ & - Chuỗi kết hợp bởi cuối cùng thành công mô hình phù hợp (không kể bất kỳ trận đấu ẩn trong một BLOCK hoặc eval() được bao bọc bởi các BLOCK hiện hành).

#! /usr/bin/perl 

use strict; 
use warnings; 

my $interesting; 
my $string = "boring interesting boring"; 
$interesting = $& if $string =~ /interesting/; 

Answer 5

Bạn có thể sử dụng bộ đệm chụp tên:

if (/ (?<key> .+?) \s* : \s* (?<value> .+) /x) { 
    $hash{$+{key}} = $+{value}; 
} 

Answer 6

@strings đi bên trái và sẽ chứa kết quả, sau đó đi chuỗi đầu vào của bạn $input_string. Đừng quên cờ g để phù hợp với tất cả các chất nền.

my @strings=$input_string=~m/stuff (.*) stuff/g;