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 ích cho tôi?

Câu trả lời của tôi là không phổ biến, nhưng tôi không nghĩ rằng các lập trình viên Perl nên cố gắng sử dụng khái niệm cực kỳ tồi tệ về thứ mà chúng ta gọi là "ngoại lệ" trong Perl. Đây thực chất là giá trị trả về kênh phụ. Tuy nhiên, vẫn còn say mê với ý tưởng về các ngoại lệ, ngay cả với tất cả sự phức tạp của việc sử dụng một biến toàn cục để chuyển xung quanh trạng thái, mọi người vẫn tiếp tục cố gắng làm cho nó hoạt động.

Tuy nhiên, trên thực tế, mọi người sử dụng dieđể báo hiệu sự thất bại. Một số người sẽ nói rằng bạn có thể dievới một tham chiếu và trả lại các đối tượng lỗi, nhưng bạn không cần dieđiều đó. Chúng ta có các đối tượng, vì vậy chúng ta nên sử dụng tất cả sức mạnh của các đối tượng:

 sub some_sub {
    ...
    return Result->new( error => 1, description => ... ) if $something_went_wrong;
    return Result->new( error => 0, ... );
    }

 my $result = some_sub( ... );
 if( $result->is_error ) { ... };

Điều đó không liên quan đến các biến toàn cục, hành động ở khoảng cách xa, đau đầu trong phạm vi hoặc yêu cầu đặc biệt đặc biệt. Bạn tạo một lớp nhỏ Result, hoặc bất cứ thứ gì bạn muốn gọi nó, để bọc các giá trị trả về của bạn để bạn có dữ liệu có cấu trúc thay vì các giá trị đơn lẻ không có danh tính. Không còn thắc mắc giá trị trả về có nghĩa là gì. Đó là undefgiá trị thực hay là dấu hiệu của sự thất bại? Giá trị trả về có tốt không nếu nó được xác định hoặc nếu nó đúng? Đối tượng của bạn có thể cho bạn biết những điều này. Và, bạn có thể sử dụng cùng một đối tượng vớidie . Nếu bạn đã sử dụng đối tượng với dievà sử dụng nó làm giá trị trả về, thì có rất ít điều để giới thiệu tất cả những thứ bổ sung mà bạn phải làm để dung nạp$@ .

Tôi nói thêm về điều này trong "Trả lại các đối tượng lỗi thay vì ném các ngoại lệ"

Tuy nhiên, tôi biết rằng bạn không thể giúp những gì người khác làm, vì vậy bạn vẫn phải giả vờ Perl có ngoại lệ.

Nó luôn luôn là một trường hợp sở thích cá nhân. Bạn có thích

my $rv;
if (!eval { $rv = f(); 1 } ) {
   ...
}

hoặc là

my $rv = try {
   f();
} catch {
   ...
};

Nhưng hãy nhớ rằng cái sau sử dụng anon subs, vì vậy nó sẽ gây rối return, cũng nhưnext và tương tự. Hãy thử :: Quá trình thử bắt của Tiny có thể sẽ phức tạp hơn nhiều khi bạn thêm các kênh giao tiếp giữa khối bắt và bên ngoài khối đó.

Trường hợp tốt nhất (đơn giản nhất) để trả về ngoại lệ là nếu $rvluôn đúng khi không có ngoại lệ. Nó sẽ giống như sau:

my $rv;
if ($rv = eval { f() }) {
   ...
   return;
}

vs

my $rv = try {
   f();
} catch {
   ...
};

if (!$rv) {
   return;
}

Đó là lý do tại sao tôi sẽ sử dụng TryCatch thay vì Try :: Tiny là tôi sử dụng một mô-đun như vậy.

Thay đổi thành Perl chỉ đơn giản là bạn có thể làm if ($@)lại. Nói cách khác,

my $rv;
if (!eval { $rv = f(); 1 } ) {
   ...
}

có thể được viết

my $rv = eval { f() };
if ($@) {
   ...
}

Nếu không có gì khác, Try::Tinyvẫn là đường cú pháp đẹp. Nếu bạn muốn thứ gì đó nặng hơn một chút, thì cũng có TryCatch, giải pháp giải quyết một số vấn đề liên quan đến thực tế là các mệnh đề trong Try::Tinylà chương trình con (ví dụ: returnkhông rời khỏi hàm bao quanh).

Try::Tinydễ dàng và nhẹ. Quá dễ dàng. Chúng tôi gặp hai vấn đề:

• người đăng ký ẩn danh - luôn có vấn đề với 'return câu lệnh '' bên trong
• bắt luôn và mọi thứ

Vì vậy, tôi đã thực hiện một số thay đổi để Try::Tinygiúp chúng tôi. Bây giờ chúng tôi có:

try sub {},
catch 'SomeException' => sub {},
catch [qw/Exception1 Exception2/] => sub {},
catch_all sub {};

Tôi biết - cú pháp này hơi kỳ lạ, nhưng nhờ có bằng chứng ' sub', các lập trình viên của chúng tôi giờ đây biết rằng returncâu lệnh '' chỉ thoát khỏi trình xử lý ngoại lệ và chúng tôi luôn chỉ bắt các ngoại lệ này mà chúng tôi muốn bắt :)

Hoặc làm:

local $@;
eval { … }

… Để ngăn các thay đổi đối với $ @ ảnh hưởng đến phạm vi toàn cầu hoặc sử dụng Try :: Tiny.

Về mặt cú pháp, có những tình huống mà tôi thích cái này hay cái kia.

Try :: Tiny rất tuyệt, nhưng yêu cầu dấu chấm phẩy trên dấu ngoặc nhọn cuối cùng và không cho phép sử dụng phép gán biến ngoại lệ và chưa nói đến việc bắt lớp ngoại lệ. TryCatch đã từng làm rất tốt, nhưng đã bị phá vỡ với phiên bản mới 0.006020 của Devel :: Declare . Một triển khai tuyệt vời khác là Cú pháp :: Từ khóa :: Thử nhưng nó không triển khai các phép gán biến ngoại lệ hoặc bắt lớp ngoại lệ.

Có một mô-đun mới Nice :: Try , là một sự thay thế hoàn hảo.

Không cần phải có dấu chấm phẩy ở dấu ngoặc cuối như Try :: Tiny.

Bạn cũng có thể thực hiện gán biến ngoại lệ như

  try
  {
    # something
  }
  catch( $e )
  {
    # catch this in $e
  }

Nó cũng hoạt động bằng cách sử dụng ngoại lệ lớp như

  try
  {
    # something
  }
  catch( Exception $e )
  {
    # catch this in $e
  }

Và nó cũng hỗ trợ finally. Bộ tính năng của nó làm cho nó khá độc đáo.

Tiết lộ đầy đủ: Tôi đã phát triển mô-đun này khi TryCatch bị hỏng.