如何使用 html 创建按钮到 perl 中的符号链接文件？

Question

我在 perl 中遇到问题我正在使用脚本实际上是符号链接工具，所以我尝试创建一个名为 symlink 的按钮来符号链接一个名为 /etc/passwd 的文件，所以我怎么称呼但这些在一起

$target="/etc/passwd";
$distension ="1.txt";

$symlink = symlink($target,$distension);

if($symlink == 1) {print " distension symlink created successfully";}

else {print "cannot symlink File $distension Already Exists ";}

---

<button value="" name="symlink" type="button"
onclick="alert('symlink created successfully ^_^')">symlink</button>

所以我想要的是当我点击符号链接按钮时会发生并且对我的英语感到抱歉

Answer 1

Perl 程序需要在 Web 服务器中运行或作为 Web 服务器运行。 例子：

应用程序.psgi

#!/usr/bin/env plackup
use strict;
use warnings;
use Plack::Request qw();
use HTTP::Status qw(
    HTTP_OK HTTP_METHOD_NOT_ALLOWED HTTP_INTERNAL_SERVER_ERROR
);

my $app = sub {
    my ($env) = @_;
    my $req = Plack::Request->new($env);
    if ('POST' eq $req->method) {
        my $target = '/etc/passwd';
        my $distension = '1.txt';
        if (symlink $target, $distension) {
            return $req->new_response(
                HTTP_OK, ['Content-Type' => 'text/plain'], [
                    'distension symlink created successfully'
                ]
            )->finalize;
            print ;
        } else {
            return $req->new_response(
                HTTP_INTERNAL_SERVER_ERROR, ['Content-Type' => 'text/plain'], [
                    "could not symlink <$target> to <$distension>: $!"
                ]
            )->finalize;
        }
    } else {
        return $req->new_response(HTTP_METHOD_NOT_ALLOWED)->finalize;
    }
};

HTML 表单需要向 Web 服务器发出 POST 请求。

<form method="POST" action="http://localhost:5000">
    <input type="submit" value="create symlink">
</form>