Có cách nào dễ dàng để bản địa hóa (bảo toàn) tất cả "biến ma thuật" như $ 1, $ & v.v ... không?

Question

Tôi biết rằng trong một subroutine trong Perl, nó là một ý tưởng rất tốt để giữ gìn "biến mặc định" $_ với local trước khi làm bất cứ điều gì với nó, trong trường hợp người gọi đang sử dụng nó, ví dụ:

sub f() { 
    local $_;    # Ensure $_ is restored on dynamic scope exit 
    while (<$somefile>) { # Clobbers $_, but that's OK -- it will be restored 
     ... 
    } 
} 

Bây giờ , thường là lý do bạn sử dụng $_ ở nơi đầu tiên là vì bạn muốn sử dụng regexes, có thể đưa kết quả vào các biến "ma thuật" tiện dụng như $1, $2 v.v. Tôi cũng muốn giữ các biến đó, nhưng tôi đã Tôi có thể tìm cách để làm điều đó.

Tất cả perlvar nói là @+ và @-, mà $1, vv dường như phụ thuộc vào nội bộ, tham khảo phần "submatches thành công cuối cùng trong phạm vi năng động đang hoạt động". Nhưng ngay cả điều đó cũng có vẻ mâu thuẫn với các thí nghiệm của tôi. Theo kinh nghiệm, các bản in mã sau "aXaa" như tôi đã hy vọng:

$_ = 'a'; 
/(.)/;   # Sets $1 to 'a' 
print $1;  # Prints 'a' 
{ 
    local $_; # Preserve $_ 
    $_ = 'X'; 
    /(.)/;  # Sets $1 to 'X' 
    print $1; # Prints 'X' 
} 
print $_;  # Prints 'a' ('local' restored the earlier value of $_) 
print $1;  # Prints 'a', suggesting localising $_ does localise $1 etc. too 

Nhưng những gì tôi tìm thấy thực sự đáng ngạc nhiên là, trong ActivePerl tôi 5.10.0 ít nhất, ý kiến ​​ra dòng local vẫn giữ $1 - - đó là, câu trả lời "aXXa" được tạo ra! Dường như phạm vi từ vựng (không động) của khối ngoặc nhọn bằng cách nào đó giữ nguyên giá trị của $1.

Vì vậy, tôi thấy tình huống này khó hiểu nhất và rất thích nghe lời giải thích cuối cùng. Tâm trí bạn, tôi muốn thực sự giải quyết một cách chống đạn để bảo vệ tất cả biến kỳ diệu regex liên quan đến mà không cần phải liệt kê tất cả chúng như trong:

local @+, @-, $&, $1, $2, $3, $4, ... 

đó rõ ràng là một hack kinh tởm. Cho đến lúc đó, tôi sẽ lo lắng rằng bất kỳ regex nào mà tôi chạm vào đều sẽ làm một cái gì đó mà người gọi không mong đợi bị che khuất.

Cảm ơn!

Answer 1

Có thể bạn có thể đề xuất một từ ngữ tốt hơn cho tài liệu. Phạm vi động có nghĩa là mọi thứ bắt đầu từ khối bao quanh hoặc chương trình con, cộng với mọi thứ bắt đầu từ khối đó hoặc cuộc gọi chương trình con, v.v. ngoại trừ mà bất kỳ khối đã đóng nào đều bị loại trừ.

Một cách khác để nói: "các lần gửi thành công cuối cùng trong phạm vi hoạt động hiện đang hoạt động" có nghĩa là hoàn toàn có local $x=$x; ở đầu mỗi khối cho mỗi biến.

Hầu hết các đề cập về phạm vi động (ví dụ: http://perldoc.perl.org/perlglossary.html#scope hoặc http://perldoc.perl.org/perlglossary.html#dynamic-scoping) đang tiếp cận nó theo cách khác. Chúng áp dụng nếu bạn nghĩ về một thành công regex như ngầm thực hiện một local $1, v.v.

Answer 2

Tôi không chắc có bất kỳ lý do thực sự nào để trở thành hoang tưởng về tất cả các biến này hay không. Tôi đã quản lý để sử dụng Perl trong gần mười năm mà không cần sử dụng một cách rõ ràng local trong ngữ cảnh này.

Câu trả lời cho câu hỏi cụ thể của bạn là: Số biến số không phải là số đã cho (mặc dù có giới hạn bộ nhớ cứng cho số lượng kết quả phù hợp với bạn). Vì vậy, không thể bản địa hóa tất cả chúng cùng một lúc.

Answer 3

Tôi nghĩ bạn đang lo lắng quá nhiều. Điều tốt nhất để làm được điều hành điều hành trận đấu của bạn, ngay lập tức lưu các giá trị bạn muốn vào các biến có ý nghĩa, sau đó để cho các biến đặc biệt làm bất cứ điều gì họ làm mà không lo lắng về họ:

if($string =~ m/...(a.c).../) { 
    my $found = $1; 
    } 

Khi tôi muốn chụp các bộ phận của chuỗi, tôi thường xuyên nhất sử dụng toán tử trận trong danh sách bối cảnh để có được một danh sách các ký ức trở lại:

my @array = $string =~ m/..../g;