Tôi có nên tránh lồng nhau nếu các câu lệnh trong Perl không?

Question

Tôi đang làm một số Perl và nhìn thấy lồng nhau của tôi "nếu" báo cáo là lái xe cho tôi điên. Tôi quản lý để giảm một số người trong số họ với các khối bảo vệ trong một phần khác, nhưng tôi bị mắc kẹt ở đây.

Bạn có nghĩ rằng tôi có thể để nguyên mã như vậy hoặc có cách "thích hợp" để cấu trúc lại những điều sau không? (Tôi cũng thừa nhận là tương đối mới đối với Perl)

Đây thực sự là chương trình con yêu cầu người dùng nhập vào từng thông số của danh sách (tệp bên ngoài). $ [3] là mẫu phù hợp, $ [2] là giá trị mặc định cho tham số được xem xét (NULL nếu không có), $ _ [1] chỉ định nếu nó là bắt buộc hay không. câu lệnh 'next' dùng để chỉ tham số tiếp theo đọc (while loop).

Với sự giúp đỡ của mọi người (cảm ơn!), Đây là phiên bản mới nhất.

100   if ($input ne '' && ($input !~ $match || $input =~ /'.+'/)) { 
101    print "! Format not respected. Match : /$match/ (without \' \')\n"; 
102    next; 
103   } 
104   if ($input eq '') { 
105    if ($default eq 'NULL') { 
106     if ($manda eq 'y') { 
107      print "! Mandatory parameter not filled in\n"; 
108      next; 
109     } 
110     print "+ Ignoring parameter.\n"; 
111     $input = ''; 
112    } 
113    else { 
114     print "+ Using default value\n"; 
115     $input = $default; 
116    } 
117   } 

---

98  if($input eq ''){ 
99    if($_[2] eq 'NULL'){ 
100     if($_[1] eq 'y'){ 
101      print "! Mandatory parameter not filled in\n"; 
102      next; 
103     } 
104     else{ 
105      print "+ Ignoring parameter.\n"; 
106      $input = ''; 
107     } 
108    } 
109    else{ 
110     print "+ Using default value\n"; 
111     $input = $_[2]; 
112    } 
113   } 
114   elsif($input !~ $_[3] || $input =~ /'.+'/){ 
115     print "! Format not respected. Match : /$_[3]/ (without \' \')\n"; 
116     next; 
117    } 
118   } 

Answer 1

Dưới đây là một phiên bản nhẹ dễ đọc hơn của sự hỗn loạn câu trả lời:

# Set sane variable names... 
my ($is_required, $default, $pattern) = @_ 

# Convert the external string convention for simpler evaluation... 
$default = undef if $default eq 'NULL' 

# Refuse problematic input before going any further... 
if ($input ne '' && $input !~ $pattern || $input =~ /'.+'/) { 
    print "! Format not respected. Match : /$pattern/ (without \' \')\n"; 
    next; 
} 


# If there was no input string... 
if($input eq '') { 

    # Set the default, if one was provided... 
    if($default) { 
     print "+ Using default value\n"; 
     $input = $default; 
    } 
    # otherwise, complain if a default was required... 
    else { 
     if($is_required eq 'y'){ 
      print "! Mandatory parameter not filled in\n"; 
      next; 
     } 
     print "+ Ignoring parameter (no input or default provided).\n"; 
    } 
} 

Những điểm chính là:

• Bạn không cần khác nếu bạn đang thoát khỏi vòng lặp hiện tại với tiếp theo
• Trường hợp ngoại lệ cần được xử lý trước tiên
• Bạn có thể cải thiện đáng kể khả năng đọc bằng cách sử dụng các biến được đặt tên

Answer 2

Nếu bạn logic yêu cầu lồng câu lệnh if sau đó tôi đoán không có gì sai với họ là.

Tuy nhiên, bạn có thể cải thiện khả năng đọc của mã của bạn bằng

1. Sử dụng chỉ là một chút không gian trắng hơn và
2. Bằng cách sử dụng các biến riêng của bạn thay vì hoạt động trực tiếp trên @_

ISN' điều này có thể đọc được một chút không?

98  if ($input eq '') { 
99    if ($default eq 'NULL'){ 
100     if ($input eq 'y'){ 
101      print "! Mandatory parameter not filled in\n"; 
102      next; 
103     } 
104     else { 
105      print "+ Ignoring parameter.\n"; 
106      $input = ''; 
107     } 
108    } 
109    else { 
110     print "+ Using default value\n"; 
111     $input = $default; 
112    } 
113   } 
114   elsif ($input !~ $foo || $input =~ /'.+'/) { 
115     print "! Format not respected. Match : /$foo/ (without \' \')\n"; 
116     next; 
117    } 
118   } 

Answer 3

Thực hành phổ biến là xác định hằng số cho chỉ mục mảng của bạn và đặt tên cho chúng có ý nghĩa. Chẳng hạn như:

use constant MANDATORY => 1, 
      DEFAULT => 2, 
      PATTERN => 3; 
... 
if($_[DEFAULT] eq 'NULL') { 
    ... 
} 

Theo như làm tổ - Bạn thường nên cố gắng giảm bớt sự thụt lề (có nghĩa là giữ cho mức độ làm tổ thấp), nhưng không bao giờ làm như vậy tại các chi phí của việc giữ mã dễ hiểu. Tôi không có vấn đề với mức độ làm tổ, nhưng đây cũng chỉ là một đoạn mã nhỏ của bạn. Nếu nó thực sự là một vấn đề, bạn có thể phá vỡ các điều kiện thành các chương trình con riêng biệt.

Answer 4

Cho rằng có thể bạn sẽ làm một spaghetti goto khác, Tuyệt đối số

gì có thể tốt hơn là một switch case.

Answer 5

if($input ne '' && ($input !~ $_[3] || $input =~ /'.+'/)) { 
    print "! Format not respected. Match : /$_[3]/ (without \' \')\n"; 
    next; 
} 
if($input eq '') { 
    if($_[2] eq 'NULL') { 
     if($_[1] eq 'y'){ 
      print "! Mandatory parameter not filled in\n"; 
      next; 
     } 
     print "+ Ignoring parameter.\n"; 
     $input = ''; 
    } else { 
     print "+ Using default value\n"; 
     $input = $_[2]; 
    } 
} 

Answer 6

bạn có thể đơn giản hóa như sau nếu bạn không thích tất cả của người khác.

if($input eq ''){ 
    $input = $_[2]; 
    $output = "+ Using default value\n"; 
    if($_[2] eq 'NULL'){ 
     $input = ''; 
     $output = "+ Ignoring parameter.\n"; 
     if($_[1] eq 'y'){ 
      $output = "! Mandatory parameter not filled in\n"; 
     } 
    } 
} 
elsif($input !~ $_[3] || $input =~ /'.+'/){ 
    $output = "! Format not respected. Match : /$_[3]/ (without \' \')\n"; 
} 
print $output; 

Answer 7

Mối quan tâm chính là giữ cho mã có thể đọc được.

Nếu bạn có thể nhận được mã có thể đọc được với các câu lệnh lồng nhau, hãy tiếp tục. Nhưng giữ cho cảm giác thông thường luôn hoạt động ở mọi thời điểm.

Answer 8

Tôi cho rằng bạn có thể làm kết hợp logic để san bằng nó ra:

if(($input eq '')&&($_[2] eq 'NULL')&&($_[1] eq 'y')){ 
    print "! Mandatory parameter not filled in\n"; 
    next; 
} 

elsif(($input eq '')&&($_[2] eq 'NULL')){ 
    print "+ Ignoring parameter.\n"; 
    $input = ''; 
} 

elsif($input eq ''){ 
    print "+ Using default value\n"; 
    $input = $_[2]; 
    next; 
} 


elsif($input !~ $_[3] || $input =~ /'.+'/){ 
    print "! Format not respected. Match : /$_[3]/ (without \' \')\n"; 
} 

print $output; 

Sau đó, bạn có thể sử dụng một công tắc để làm cho nó tốt hơn một chút.

Answer 9

Tôi nghĩ rằng lý do chính (nếu không chỉ) cho mối quan tâm liên quan đến lồng là phức tạp thuật toán. Trên các trường hợp khác, bạn nên lo lắng về khả năng đọc và khả năng bảo trì, có thể được nhấn mạnh với nhận xét propoer và thụt đầu dòng.

tôi luôn luôn tìm thấy một bài tập tốt trong maintanability để đọc mã cũ của tôi, không chỉ để phản hồi về khả năng đọc mà còn về kỹ thuật ...

Answer 10

Một phương pháp khác mà đôi khi giúp với khả năng đọc là để đặt một số hoặc tất cả của các nhánh trong các tham chiếu mã được đặt tên tốt. Đây là sự khởi đầu cho ý tưởng:

$format_not_respected = sub { 
    return 0 if ...; 
    print "! Format not respected...."; 
    return 1; 
} 
$missing_mandatory_param = sub { 
    return 0 if ...; 
    print "! Mandatory parameter not filled in\n"; 
    return 1; 
} 

next if $format_not_respected->(); 
next if $missing_mandatory_param->(); 
etc...