我有一些旧的Perl代码，我被告知容易受到跨站点脚本攻击或SQL注入攻击。我想我会通过改变从#!/usr/local/bin/perl的家当来#!/usr/local/bin/perl -T打开感染模式，现在我得到这个错误信息： Insecure dependency in require while running with -T switch at <big long path>/main.c
我有一个Perl脚本，我想先检查是否有可能ssh到服务器之前，我实际上做ssh。所以如果有可能ssh，然后继续ssh进入该服务器，否则适当处理此异常。 所以我有这样的脚本，通过一个文本文件去与数据库的列表，并尝试ssh到每个服务器来执行检查bash命令，如果服务器正在执行的MySQL SST与否： #!/usr/bin/perl -w
use strict;
use warnings;
我想把他们的所有日志文件/var/log和cat都转换成主日志文件，然后压缩该主文件。我究竟该怎么做？ 我在我的代码中有cat，因为这是我知道如何在bash中完成的。我将如何在Perl中做到这一点？ #!/usr/bin/perl
use strict;
use warnings;
use IO::Compress::Zip qw(zip $ZipError);
# cat /va