Nhập khẩu một cách thủ công các chức năng hữu ích trong một tập lệnh lớn

Question

Đôi khi tôi cần một chức năng tiện ích hữu ích, như List::Util::max ở giữa chương trình lớn thực hiện rất nhiều nội dung. Vì vậy, nếu tôi làm

use List::Util 'max'; 

Ở đầu chương trình, tôi bị mắc kẹt với biểu tượng đó, làm ô nhiễm toàn bộ không gian tên của tôi, mặc dù tôi chỉ cần nó trong một chương trình con.

Vì vậy, tôi đã nghĩ đến việc cố gắng một mô hình khác nhau, thay vì:

use List::Util(); 

# a whole bunch of stuff later... 
sub blah { 
    List::Util->import('max'); 
    $blah = max @foobar; 
    ... 
} 

Có hai vấn đề với điều này, mặc dù. Đối với một, nó không tự động unimport ở cuối khối (drat.) Tôi sẽ phải hoàn tác mọi thứ với một unimport.

Vấn đề khác là các nguyên mẫu rõ ràng không được áp dụng chính xác, vì vậy tôi phải nói max(@foobar) thay vì phiên bản không có dấu ngoặc đơn đẹp hơn.

Có cách nào dễ dàng để nhập tạm thời các biểu tượng cho một khối, tự động khiến chúng biến mất ở cuối khối và cũng xử lý mẫu chính xác không?

Answer 1

Bạn có thể bản địa hoá một mục bảng biểu tượng:

use List::Util(); 

@y = qw(1 3 5 -9 4); 

sub max { # return maximum *absolute value* of list 
    my $max = abs(shift); 
    $max<abs($_) && ($max=$abs($_)) for @_; 
    return $max; 
} 

sub max2 { 
    local *max = *List::Util::max; 
    return max(@_); 
} 

print "My max:   ", max(@y), "\n"; # ==> 9 
print "List::Util::max ", max2(@y), "\n"; # ==> 5 

Answer 2

Chỉ cần làm điều này, nó tốt hơn nhiều và rõ ràng hơn:

package Foo; 
use strict; use warnings; 
use List::Util 'max'; 
use namespace::autoclean; 

# your method definitions here... 

namespace::autoclean sẽ "unimport" biểu tượng sau chu kỳ biên soạn của gói được thực hiện. Cuộc gọi đến phương thức của bạn sẽ vẫn hoạt động, nhưng bạn không có ô nhiễm không gian tên (biểu tượng *Foo::max bị xóa) và gọi $obj->max() sẽ không thành công.

Ngoài ra, bạn có thể muốn xem Lexical::Import (Tôi không biết gì về nó; một chú chim hồng ngoại đã đề cập đến nó).

Answer 3

perlfunc ngụ ý rằng no MODULE nên làm những gì bạn muốn:

sub blah { 
    use List::Util qw(max); 
    say max @foobar; 
    no List::Util; 
} 

nhưng điều đó không làm việc - ít nhất là không cho liệt kê: : Util. Tôi tin rằng nó sẽ cần phải xác định một phương pháp unimport. Thậm chí sau đó, tôi không chắc chắn nếu bạn có thể có một max trần trong mô-đun của bạn gọi định nghĩa khác nhau.

Answer 4

Nếu bạn chỉ sử dụng tối đa trong một chương trình con, tôi sẽ không nhập nó vào không gian tên nào cả. Giải pháp của tôi là

use List::Util; 
sub blah { 
    print List::Util::max(@list); 
}