主页 / coding / 问题

问题[perl](coding)

Martin Hope
Rawley Fowler
Asked: 2025-04-23 03:17:49 +0800 CST
  • 6

我有一个非常大的程序，需要向 写入很多内容STDOUT，我希望能够将所有输出都传递给 和STDOUT，并将它们发送到任意的FILE。我决定使用IO::Tee来创建共享的可写句柄：

use IO::Tee;

pipe(my $reader, my $writer);
my $new_stdout = IO::Tee->new(\*STDOUT, $writer);

*{STDOUT} = $new_stdout;

print "foo";

print(do { local $\; <$reader> });

然而，这会导致深度递归并使程序崩溃。因此，我无法引用*STDOUT，而是创建了它：

use IO::Tee;

pipe(my $reader, my $writer);
my $new_stdout = IO::Tee->new(*STDOUT, $writer);

*{STDOUT} = $new_stdout;

print "foo";

print(do { local $\; <$reader> });

这会产生警告：Undefined value assigned to typeglob at ... line 42，而当我使用Data::Printer来描述时$new_stdout，结果是undef。我该怎么做？

perl
Martin Hope
user1462402
Asked: 2025-03-09 07:45:18 +0800 CST
  • 5

当将类型为非 ASCII 名称的对象传递给 时Scalar::Util::blessed()，它似乎返回八位字节而不是 Perl 字符串。我在 Windows 上运行 ActiveState Perl v5.20.2。有人可以检查这是否发生在任何其他平台/版本上吗？（请注意，confess()正确显示调用的类名check_self()。）

use strict; use warnings;
use utf8;
use English;
use feature qw(unicode_strings);
use open qw(:std :utf8);

package MyClass {
    use strict; use warnings;
    use utf8;
    use feature qw(unicode_strings);
    use Carp ();
    use Scalar::Util ();

    sub new {
        my $class = $_[0];
        return bless( {}, $class );
    }
    sub check_class {
        my $class = $_[0];
        STDERR->print( "$class\n" );
        unless ( defined($class) && ref($class) eq '' 
               && $class->isa(__PACKAGE__) ) {
          Carp::confess( sprintf( "bad call to %s()", ( caller(1) )[3] ) );
        }
        return;
    }
    sub check_self {
        my $self = $_[0];
        check_class( Scalar::Util::blessed($self) );
        return;
    }
}

package MüClass {
    use strict; use warnings;
    use utf8;
    use Carp ();
    use Scalar::Util ();

    sub new {
        my $class = $_[0];
        return bless( {}, $class );
    }
    sub check_class {
        my $class = $_[0];
        STDERR->print( "$class\n" );
        Carp::confess( sprintf( "bad call to %s()", ( caller(1) )[3] ) )
            unless defined($class) && ref($class) eq '' 
                && $class->isa(__PACKAGE__);
        return $class;
    }
    sub check_self_1 {
        my $self = $_[0];
        return check_class( ref($self) );
    }
    sub check_self_2 {
        my $self = $_[0];
        my $class;
        $class = check_class( Scalar::Util::blessed($self) );
        return $class;
    }
    sub check_self_3 {
        my $self = $_[0];
        my $class = Scalar::Util::blessed($self);
        utf8::decode($class) unless utf8::is_utf8($class);
        return check_class($class);
    }
}

my $myclass = MyClass->new;
MyClass->check_class;
$myclass->check_self;
my $müclass = MüClass->new;
MüClass->check_class;
$müclass->check_self_1;
eval{ $müclass->check_self_2; };
STDERR->print($EVAL_ERROR) if $EVAL_ERROR;
$müclass->check_self_3;

输出：

MyClass  
MyClass  
MüClass  
MüClass  
MüClass  
bad call to MüClass::check_self_2() at D:\Batch/test-blessed.pl line 47.
        MüClass::check_class("M\x{c3}\x{bc}Class") called at D:\Batch/test-blessed.pl line 59  
        MüClass::check_self_2(MüClass=HASH(0x256d560)) called at D:\Batch/test-blessed.pl line 76  
        eval {...} called at D:\Batch/test-blessed.pl line 76  
MüClass
perl
Martin Hope
James Finnegan
Asked: 2025-02-27 02:05:23 +0800 CST
  • 6

我有一个字符串，我想从中提取数据库表名称。我不知道该字符串是否包含换行符或回车符。我不确定如何拆分该部分。这是字符串。这是从数据库查询中提取的。

INSERT INTO DWH_CCP.TGT.CCP_ATTR_XREF
SELECT
ATTR_KEY
,ATTR_NAME
,ATTR_DESC

我的代码如下：

    while($string =~ / INTO (\S+?\.\S+?)[\s\n\r()]/gi) {
      my $table = $1;
    }
    print "\ntable is $table\n";

但输出内容如下： 

table is DWH_AIR.DWH_CCP.TGT.CCP_ATTR_XREFSELECTATTR_KEY,ATTR_NAME,ATTR_DESC
perl
Martin Hope
U. Windl
Asked: 2025-02-25 16:19:52 +0800 CST
  • 7

我写了一些代码，尝试通过将列表转换为哈希，然后使用该哈希的键作为元素来使列表成员唯一。这在 Perl 5.18 中毫无问题地运行，但现在在 Perl 5.26 中失败了：

@a = keys { map { $_ => undef } @a }

错误信息如下

Experimental keys on scalar is now forbidden at ...
Type of arg 1 to keys must be hash or array (not anonymous hash ({})) at ...

我想避免为此目的创建临时哈希变量。

在 perlfaq4如何从列表或数组中删除重复元素？中有一个解决方案，但它使用了一个单独的临时变量：

my %hash   = map { $_, 1 } @array;
# or a hash slice: @hash{ @array } = ();
# or a foreach: $hash{$_} = 1 foreach ( @array );

my @unique = keys %hash;

#...
my %seen = ();
my @unique = grep { ! $seen{ $_ }++ } @array;
perl
Martin Hope
Zilore Mumba
Asked: 2025-02-13 02:32:32 +0800 CST
  • 5

我可以Text::Table:Boxed按照此处给出的示例输出用模块生成的表格，第一行如下：

binmode STDOUT, ":utf8";

use Text::Table::Boxed;
open(my $tfh, "> /home/zmumba/Output/Rtable.txt") or die "open 'Rtable.txt': failed $! ($^E)";
my $tb = Text::Table::Boxed->new({
... table contens ...
})

print $tfh $tb
close($tfh)

Text::Table::More如此处所述，并未明确提供将输出定向到文件的可能性。前几行

#!perl
use 5.010001;
use strict;
use warnings;
use Text::Table::More qw/generate_table/;

my $rows = [
...Table content ...
];

binmode STDOUT, "utf8";
print generate_table(
.. attributes ...
);

我能够生成表格并将其显示在屏幕上。但我不知道如何将该表格导出到文件中。

perl
Martin Hope
Sam Dorfman
Asked: 2025-02-12 00:21:17 +0800 CST
  • 7

我正在编写一个 perl 脚本，使用 Curses 库在终端中显示动画，但当终端大小改变时，我无法让它重新动画。目标是当终端大小调整时，动画从终端中间重新启动。

这是我尝试过的代码，但即使终端尺寸发生变化，它也永远不会重新绘制实体：

#!/usr/bin/env perl

use Term::Animation;
use Term::Animation::Entity;
use Curses;

# Declaration of $anim1 and addition of entity

my ($width, $height, $assumed_size) = $anim1->screen_size();

while (1) {
    # Animate the current frame
    $anim1->animate();

    # Check for terminal resize and update if necessary
    my ($new_width, $new_height) = $anim1->screen_size();
    if ($new_width != $width || $new_height != $height) {
        
        # Update terminal size variables
        $width = $new_width;
        $height = $new_height;

        # Update entity position based on new terminal size
        my $entity->{position} = [$height / 2 - 7, $width / 2 - 25, 0];
        
        # Redraw all entities
        $anim1->update_term_size();
    }

    # Handle user input
    my $input = getch();
    if ($input && $input eq 'c') {
        last; # Exit the loop if 'c' is pressed
    }
}
perl
Martin Hope
Zilore Mumba
Asked: 2025-02-11 03:04:33 +0800 CST
  • 6

我拥有的数据包括地点名称和 4 个天气参数的风险等级（从 1 到 4），这 4 个参数分别是 1)24 小时降雨量、2) 5 天总降雨量、3) 最低温度和 4) 最高温度。一天中，所有四个参数的风险等级只能为 1（无风险），在这种情况下无需处理。或者可以处理 1、2，最多 4 个。

我能够确定是否不需要处理（即所有地方的风险级别为 1）。

下面给出了一个数据样本__DATA__。

我能够确定有多少天气因素的风险级别高于 1（从文件头），因此能够@Riskarray根据该头创建一个数组。

我想做的是将每一行拆分，并为每个天气元素写入单独的文件，两列（位置和风险值）。这类似于如何在第一次出现数字时拆分字符串，对此我得到了非常有帮助的帮助。

在下面的代码片段中，我不知道while语句之后该如何进行。

#!/usr/bin/perl -w

use strict;
use warnings;

my @RiskArray=("H1dR", "H5dR", "Tmin", "Tmax");
my $arraynum=scalar @RiskArray;

my $hdr=<DATA>;
for my $i (0..$#RiskArray){
 while (my $line = <DATA>){

 }
}

__DATA__
Risk    H1dR  H5dR  Tmin  Tmax
Maputsoe, 2, 1, 3,  2
Butha-Buthe (Butha-Buthe District), 4, 3, 2, 1
Mohale's Hoek, 2, 2, 3, 4
Qacha's Nek, 2, 3, 1,  2

示例输出将为四个文件，例如文件“H1dRrv.txt”将包含

Maputsoe, 2
Butha-Buthe (Butha-Buthe District), 4
Mohale's Hoek, 2
Qacha's Nek, 2

和H5dRrv.txt

Maputsoe, 1
Butha-Buthe (Butha-Buthe District), 3
Mohale's Hoek, 2
Qacha's Nek, 3
perl
Martin Hope
Zilore Mumba
Asked: 2025-02-10 07:38:59 +0800 CST
  • 6

我有由一个名称和两个数字组成的字符串。我想将名称和数字提取到一个变量中。我遇到的问题是某些名称中有空格。当我在 /\s+/ 上拆分时，名称被拆分成两个。

my (${st_name}, $val1, $val2) = split(/\s+/, $line, 3);

我尝试过在 /\d+/ 上进行拆分，但没有得到数字。我尝试过获取第一个数字的索引，但不确定是否真的

my $index = index ($line, \d);

我将非常感谢您的帮助。代码已试过

use strict;
use warnings;

while (my $line = <DATA>){
my (${st_name}, $val1, $val2) = split(/\s+/, $line, 3);   #doesn't work

my $index = index ($line, \d);
${st_name}=$line(0, $index);
my ($val1, $val2) = $line($index)


__DATA__
Maputsoe 2       1
Butha-Buthe (Butha-Buthe District) 2       1
perl
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