Perl PHP在Web开发中的代码重构案例

代码重构是提高代码质量和可维护性的重要过程。下面我将为您提供一个简单的Perl和PHP在Web开发中的代码重构案例。

假设我们有一个简单的Web应用程序，用于计算两个数的和。这个应用程序使用Perl和PHP编写。我们将分别展示Perl和PHP的原始代码，然后提供重构后的代码。

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>";
?>

重构后的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";
        }
    }
}

重构后的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";
        }
    }
}
?>

在重构后的代码中，我们将参数验证逻辑提取到了单独的函数中，使代码更加模块化和可维护。同时，我们使用了关联数组来存储参数，使代码更具可读性。