主页 / coding / 问题

问题[perl](coding)

Martin Hope
Bart Van der Donck
Asked: 2024-12-27 22:41:27 +0800 CST
  • 5

我有一个大型语言文件，其结构如下：

  Click here|Cliquez ici
  New|Nouveau
  ...

然后我有一个英语和法语的应用程序。语言文件由 CONF.pm 加载到 hash 中%t，它在整个应用程序中的使用方式如下：

  <input type="button" value="$t{'Click here'}">
  <a href="new.pl">$t{'New'}</a>
  ...

因此，根据用户设置，应用程序将以英语或法语显示。为此，必须先通过 CONF.pm 加载大型语言文件以填充%t。

问题是我们的大多数用户都是英语用户，每次加载语言文件都会浪费不少内存。语言文件对于英语用户来说并不是“真正”必要的，因为 的值$t{'Click here'}始终是Click here。

你会同意这可能不是最智能的语言配置设计。当用户是英语时，Perl 是否有可能不加载语言文件？当值未定义时，只显示哈希的键？

  <input type="button" value="Click here">
  <a href="new.pl">New</a>

我无法更改$t{'...'}应用程序中的所有文件，因为文件数量肯定有数千个。不为每个请求加载大型语言文件将为我节省大量内存。

perl
Martin Hope
mpapec
Asked: 2024-12-27 16:51:27 +0800 CST
  • 6

我得到了这个预期的输出

perl -MData::Dumper -e 'print Dumper do q(./dotest.pl)'
$VAR1 = [
          1,
          2,
          3,
          4
        ];

而dotest.pl​

use strict;
use warnings;

my $x=1;
if ($x) {
  my $ret = [
    # map { my %h = (x => $_); \%h }
    1..4
  ];
}

sub foo { 1 }

但是，当我取消注释地图转换时，单行程序不会输出任何内容。

这是一个错误吗？perl 是5.34.0

perl
Martin Hope
capser
Asked: 2024-12-27 05:28:30 +0800 CST
  • 3

我有一个脚本，它接受一个字符串并在字符串末尾添加“.html”。如果字符串已经有一个“.hmtl”，我想删除它，然后稍后添加 html。它可以正常工作，但我收到警告，但我不明白警告的含义。因此，如果我使用字符串 foo_foo.html 运行脚本，我不希望结果是 foo_foo.html.html，我会在 if 语句中输入

if ($input =~ s/\.html$//)

所以它从字符串中去掉了“dot html”

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

# Check if a string is provided as an argument
if (@ARGV != 1) {
    die "Usage: $0 'string'\n";
}

# Get the input string from the command line arguments
my $input = $ARGV[0];

if ($input =~ s/\.html$//) {
        $input ;
}


# Convert all characters to lowercase
$input = lc($input);

# Replace spaces with underscores
$input =~ s/ /_/g;

# Print the modified string
print "<!--- \"$input.html\" -->\n";
print "     \n";
print "     \n";
print "$input.html"

我收到此警告

 Useless use of private variable in void context at 
./perl_make_html_string_cut_html.pl line 14.

脚本运行正常 - 只是警告困扰着我。

perl
Martin Hope
olivierg
Asked: 2024-12-26 22:56:50 +0800 CST
  • 6

我有一个像这样的数据结构（具有许多哈希和数组，包含不同的环境、用户、配置文件、访问权限等）：

%AR = (
'prod' => {
                   'username' => {
                                        'access_profile1' => [
                                                             'accessright1',
                                                             'accessright2',
                                                             'accessright3',
                                                             'accessrightN',
                                                            ],
                                        'access_profile2' => [
                                                             'accessright7',
                                                             'accessright8',
                                                             'accessright9',
                                                            ],
                                        'access_profileN' => [
                                                             'accessrightX',
                                                             'accessrightX',
                                                             'accessrightX',
                                                            ],
                                       },
                   },
);

我想给我的脚本一个选项，当启用时，它必须强制结构中的所有配置文件名称都使用标准名称（例如 default_profile）（重新生成它） - 当然这意味着所有访问权限都是唯一的，否则有些可能会覆盖其他访问权限 -

我知道我可以通过简单地循环这个结构并填充一个“新”结构来做到这一点，如下所示：

my $newAR;

foreach my $env ( keys %AR ) {
   foreach my $user ( keys %{ $AR{$env} } ) {
      foreach my $profile ( keys %{ $AR{$env}{$user} } ) {

         # fill the new data structure
         foreach my $accessright (@{ $AR{$env}{$user}{$profile} }) {
            push (@{ $newAR{$env}{$user}{'default_profile'} }, $accessright);
         }

      }
   }
}

最后给出了正确的结果：

$VAR1 = {
          'prod' => {
                      'username' => {
                                      'default_profile' => [
                                                             'accessrightX',
                                                             'accessrightX',
                                                             'accessrightX',
                                                             'accessright7',
                                                             'accessright8',
                                                             'accessright9',
                                                             'accessright1',
                                                             'accessright2',
                                                             'accessright3',
                                                             'accessrightN'
                                                           ]
                                    }
                    }
        };

在 Perl 中，难道没有一种“更干净”的方式来做到这一点吗？我不太擅长所有映射等，我相信一定有一种更简洁的方式来编写这些嵌套循环。

perl
Martin Hope
ericgbirder
Asked: 2024-12-17 05:11:38 +0800 CST
  • 5

是的，我查看了许多“不是 HASH 引用”文章，但似乎没有一篇能解决我的问题。我有一个多维哈希。在 for 循环中，我在哈希中向下几层，只处理链中最后一个哈希的值，我想通过对最后一个哈希进行哈希引用来节省输入。

该值存在：

$date2solveInfo{ $weekDate }{ $dow }{ secs } = 2272;

我像这样分配哈希引用：

my $ref = \( %date2solveInfo{ $weekDate}->{ $dow});

调试器即将执行该行，如下所示。


  DB<2> x %date2solveInfo  # showing what we're taking a reference to

0  '2020-09-07'
1  HASH(0x7faaec193f68)
   'Tue' => HASH(0x7faaec193f20)
      'secs' => 2272

  DB<3> s    # does the reference assignment above

  DB<3> x $ref  # showing the contents of $ref

0  REF(0x7faaea208ef8)
   -> HASH(0x7faaec193f20)
         'secs' => 2272

  DB<4> p $ref->{"secs"}  # try to deref the hash reference

Not a HASH reference at (eval 15)[/System/Library/Perl/5.30/perl5db.pl:738] line 2, <$fh> line 10.

看起来调试器显示的$ref是对哈希的引用，所以我很困惑。

perl
Martin Hope
Alex Regan
Asked: 2024-12-13 12:25:33 +0800 CST
  • 6

我正在尝试使用 perl Email::MIME 将电子邮件的多部分/混合部分捕获到缓冲区中。我有一个已经使用了很长时间的脚本，现在它在处理某封电子邮件时出现了问题，我认为这是因为该电子邮件的格式不正确。

use Email::MIME;
my $buf;
while(<STDIN> ){
        $buf .= $_;
}
my @mailData;
my $msg = Email::MIME->new($buf);
my @parts = $msg->parts;
my $desc = $msg->debug_structure;
print "descr: $desc\n";
 $msg->walk_parts(sub {
     my ($part) = @_;
     #warn($part->content_type . ": " . $part->subparts);
     my $content_type = $msg->content_type;
     if (($content_type =~ m/multipart\/mixed/i) && !@mailData) {
             @mailData = split( '\n', $part->body);
        print $part->body;
     }
     elsif (($part->content_type =~ m/text\/plain$/i) && !@mailData) { 
        @mailData = split( '\n', $part->body);
     }
 });

以下是电子邮件的相关部分，与显示的完全一致，包括两个连字符：

Content-Type: multipart/mixed; boundary="===============7958309719180706421=="
Content-Length: 8034
Status: RO
X-Status: 
X-Keywords: NonJunk         
X-UID: 2

--===============7958309719180706421==

--------------------------------------------------------------------------------
Sending command: "Execute SMART Extended self-test routine immediately in off-line 
Drive command "Execute SMART Extended self-test routine immediately in off-line
    
--------------------------------------------------------------------------------

system security tool that allows system administrators to set authentication
policy without having to recompile programs that handle authentication.

上述代码将正文添加到 @mailData，但只添加第二行连字符后的文本。它完全跳过了第二行连字符，只收集以“系统安全工具”开头的文本。

它还打印出显示以下部分的描述：

descr: + multipart/mixed; boundary="===============7958309719180706421=="
     + 
     + text/plain; charset="utf-8"

在电子邮件客户端中显示的 text/plain 部分似乎只是邮件列表信息，而不是实际的正文内容。

这是 Email::MIME 中的错误吗？还是我没有正确处理这些部分？

编辑：这是完整原始电子邮件的链接 https://pastebin.com/F5MbSfYm

perl
Martin Hope
gatorreina
Asked: 2024-11-30 04:43:14 +0800 CST
  • 5

为了实验目的，我设置了一个 Mariadb Maxscale（1 个主服务器和 2 个副本）复制集群。据我所知，使用 Maxscale 的主要目的是决定查询哪个服务器。因此，我不确定如何将我的 DBI 查询定向到 Maxscale 而不是特定服务器。

我通常使用 Perl DBI 以以下方式连接数据库；

my $dbh = DBI->connect("DBI:mysql:database=$db_name};$server",$user,$passwd);

有人能告诉我如何使用 Maxscale 做到这一点吗？

maxctrl list servers
┌─────────┬─────────────┬──────┬─────────────┬─────────────────┬──────────┬─────────────────┐
│ Server  │ Address     │ Port │ Connections │ State           │ GTID     │ Monitor         │
├─────────┼─────────────┼──────┼─────────────┼─────────────────┼──────────┼─────────────────┤
│ server1 │ 192.168.0.2 │ 3306 │ 0           │ Master, Running │ 0-2-1438 │ MariaDB-Monitor │
├─────────┼─────────────┼──────┼─────────────┼─────────────────┼──────────┼─────────────────┤
│ server2 │ 192.168.0.3 │ 3306 │ 0           │ Slave, Running  │ 0-2-1438 │ MariaDB-Monitor │
├─────────┼─────────────┼──────┼─────────────┼─────────────────┼──────────┼─────────────────┤
│ server3 │ 192.168.0.4 │ 3306 │ 0           │ Slave, Running  │ 0-2-1438 │ MariaDB-Monitor │
└─────────┴─────────────┴──────┴─────────────┴─────────────────┴──────────┴─────────────────┘

我似乎能够按照以下方式连接：

$ mysql -h 192.168.0.1 -umaxscale -ppasswd -P4006 -e 'SHOW DATABASES;'
+--------------------+
| Database           |
+--------------------+
| admin              |
| information_schema |
| mysql              |
| performance_schema |
| sys                |
| test               |
+--------------------+

我只是想不明白如何通过 Perl DBI 成功查询。

perl
Martin Hope
Peter
Asked: 2024-11-25 18:41:14 +0800 CST
  • 6

对于我目前正在编写的应用程序，我需要创建链接。链接由文章名称和类别名称组成，必须在我想要使用链接的所有地方都这样做。重复该代码对我来说很难维护并且容易出错。因此，我希望此链接/url 是表/类中的虚拟列。

我确实找到了一个可以添加虚拟列的模块，但文档指出这只是一个“概念验证”，已有 10 多年历史，并且存在未解决的问题。DBIx ::Class::VirtualColumns

还发现了一种使用自定义方法扩展结果集的方法： 预定义搜索和创建结果集类

两者都使用预定义搜索的方法。

因此我创建了一个结果集目录和以下模块

package MySite::Schema::ResultSet::Article;
use strict;
use warnings;
use Data::Dumper;
use base 'DBIx::Class::ResultSet';

sub returnURL {
    my ($self, $which) = @_;
    my $blaat =$self->find(
        {article_id => $which}
    );
    my $result = $blaat->slug;
    print "\n>>$result<<\n";
    return $result;
}
1;

出于调试目的调用此方法（在 Dancer2 应用程序中）：

debug schema.resultset('Article')->returnURL(2);

输出结果如下

>>artikel_2<<
[MySite:94935] debug @2024-11-25 10:08:13> MySite::Schema=HASH(0x6216cb9aae60)artikel_2 in /var/www/MySite/bin/../lib/MySite.pm l. 24

第一行正是我所期望的。第二行中的“MySite::Schema=HASH(0x6216cb9aae60)”不是。这是从哪里来的？

此外：我在 TT 模板中循环文章并尝试获取方法的结果：

    <% url1 = schema.resultset('Article').returnURL(1) %>
    <% url2 = article.returnURL(1) %>
    >><% url1 %><<
    >><% url2 %><<

（是的，文章索引现在是硬编码的）url1 和 url2 都返回空。

我很确定我正在做一些非常研究的事情，只是不知道是什么。

按照 Dave 的建议尝试过（我认为）

将该方法移至 wat 为我创建的类中：

sub returnURL {
  print ">>blaat<<";
  my ($self, $which) = shift;
    # my $blaat =$self->find(
    #     {article_id => $which}
    # );
    # my $result = $blaat->slug;
    # print "\n>>$result<<\n";
    # return $result;
    return("hey there ".$self->slug);
}

在 Perl 代码中调用该方法会返回错误。

Can't locate object method "returnURL" via package "DBIx::Class::ResultSet" at /var/www/MySite/bin/../lib/MySite.pm line 24.

所以我想，谁在乎呢……无论如何模板中都需要它。然后注释掉了它。之后我在模板中使用的第二种方法确实返回了一个结果：

<% article.returnURL() %>

给了我

hey there artikel_4

这正是我所期望的，也是我可以使用的东西。结果我甚至不需要提供文章索引。

谢谢你戴夫

perl
Martin Hope
Denis Hamelin
Asked: 2024-11-12 06:09:32 +0800 CST
  • 6

图像文件在显示后被删除，而不是之前被删除。

我使用 Perl 的文件上传功能上传了一个文件。上传工作正常，它是预期的上传目录。在同一个脚本中，我显示文件（它是一个图像文件），并且工作正常。我想要做的是在显示文件后删除它，但是当我这样做时，我得到了一个断开的链接，并且图像（当然）从目录中删除了。尝试了睡眠功能，但无济于事。

print "<img src=\"path_to\image\">
#sleep (5);
unlink "path\to\image\";
perl
Martin Hope
gatorreina
Asked: 2024-11-10 01:33:53 +0800 CST
  • 6

我的 Dancer 应用程序中有这条路线：get '/newplayer/:name/:team/:season' => sub {它被像这样调用：https://website.com/newplayer/Joe Smith/Tigers/Fall 2024并从 url 收集数据并将其放入模板 newplayer.tt 中的表单中，以便当用户到达页面时这些信息大部分已经填写完毕。

它运行良好，但我正在寻找一种方法，即使 URL 中没有提供任何值，仍然可以找到路由，这样如果用户访问，https://website.com/newplayer 他们仍然会到达页面，尽管表单为空，而不是收到 404 错误。有人知道我该怎么做吗？

perl