Perl PHP在Web開(kāi)發(fā)中的代碼重構(gòu)案例

代碼重構(gòu)是提高代碼質(zhì)量和可維護(hù)性的重要過(guò)程。下面我將為您提供一個(gè)簡(jiǎn)單的Perl和PHP在Web開(kāi)發(fā)中的代碼重構(gòu)案例。

假設(shè)我們有一個(gè)簡(jiǎn)單的Web應(yīng)用程序，用于計(jì)算兩個(gè)數(shù)的和。這個(gè)應(yīng)用程序使用Perl和PHP編寫。我們將分別展示Perl和PHP的原始代碼，然后提供重構(gòu)后的代碼。

Perl原始代碼：

#!/usr/bin/perl
use strict;
use warnings;

use CGI qw(:standard);

print "Content-type: text/html\n\n";

my $num1 = param('num1');
my $num2 = param('num2');

my $sum = $num1 + $num2;

print "<h1>Sum: $sum</h1>";

PHP原始代碼：

<?php
header("Content-type: text/html");

$num1 = $_GET['num1'];
$num2 = $_GET['num2'];

$sum = $num1 + $num2;

echo "<h1>Sum: $sum</h1>";
?>

重構(gòu)后的Perl代碼：

#!/usr/bin/perl
use strict;
use warnings;
use CGI qw(:standard);

my $schema = {
    num1 => '',
    num2 => '',
};

validate_params($schema);

my $sum = $schema->{num1} + $schema->{num2};

print "Content-type: text/html\n\n";
print "<h1>Sum: $sum</h1>";

sub validate_params {
    my ($schema) = @_;

    foreach my $key (keys %$schema) {
        if (!defined $schema->{$key} || $schema->{$key} eq '') {
            die "Invalid parameter: $key";
        }
    }
}

重構(gòu)后的PHP代碼：

<?php
header("Content-type: text/html");

$schema = [
    'num1' => '',
    'num2' => '',
];

validate_params($schema);

$sum = $schema['num1'] + $schema['num2'];

echo "<h1>Sum: $sum</h1>";

function validate_params(&$schema) {
    foreach ($schema as $key => $value) {
        if (!isset($value) || $value === '') {
            die "Invalid parameter: $key";
        }
    }
}
?>

在重構(gòu)后的代碼中，我們將參數(shù)驗(yàn)證邏輯提取到了單獨(dú)的函數(shù)中，使代碼更加模塊化和可維護(hù)。同時(shí)，我們使用了關(guān)聯(lián)數(shù)組來(lái)存儲(chǔ)參數(shù)，使代碼更具可讀性。