为什么 substr 直接传递到方法时工作方式不同？

Question

我有一个关于 perl 的问题，过去我不关心这个问题，但现在它困扰着我。

我有一个名为 saveItems 的方法，它从文本日志中获取值并解析输入。

所以我在方法中有这几行。

$intime  = $_[1];
$timeHr  = substr($intime, 0,2); 
$timeMin = substr($intime, 2,2);
$timeSec = substr($intime, 5,2);
$object[$_[0]]->hr($timeHr);
$object[$_[0]]->min($timeMin);
$object[$_[0]]->sec($timeSec);

$intime 是传递到此方法的时间值。 $intime 示例：0431:12

我的问题是，为什么上面的代码没有给我任何错误，但是当我尝试像这样缩短行时：

$object[$_[0]]->hr(substr($intime, 0,2));
$object[$_[0]]->min(substr($intime, 2,2));
$object[$_[0]]->sec(substr($intime, 5,2));

只有第一个有效，而其余的则给我一个字符串错误。

正如你所看到的，我对 Perl 比较陌生，但是有人能给我答案吗？

编辑

人力资源示例：

sub hr {
    my $self = shift;
    if (@_) { $self->{HR} = shift }
    return $self->{HR};
}

编辑

案例已结..阅读我的回答帖子

Answer 1

从上面的评论来看，在每个 substr 之后添加 .'' 解决了您的问题。其原因是 ->hr、->min 和 ->sec 方法在某些情况下修改其参数方式。如果没有进一步观察，我无法确定发生了什么。

substr 函数返回一个有效左值的值。这意味着它可以被分配给。因此，当这些方法中的某些内容从 substr 分配给切片时，它会干扰其他方法。

附加空字符串可以通过破坏切片和原始字符串（存储在 $intime 中）之间的别名来解决问题。

如果您编写了 hr、min 和 sec 方法，您应该弄清楚它们为何修改参数。在每个方法调用之间添加 print "[$intime]\n"; 语句应该能够揭示问题。

Answer 2

您能拿出独立的可运行代码来演示该问题吗？尽管我不明白 @object 在代码中的作用，但您描述的问题与您显示的代码不太相符。

以下工作正常：

use strict;
use warnings;

package Class;

sub new { bless {} }

sub saveItems {
    my $intime = $_[1];
    $_[0]->hr(substr($intime, 0,2));
    $_[0]->min(substr($intime, 2,2));
    $_[0]->sec(substr($intime, 5,2));
}

sub hr {
    my $self = shift;
    if (@_) { $self->{HR} = shift }
    return $self->{HR};
}

sub min {
    my $self = shift;
    if (@_) { $self->{MIN} = shift }
    return $self->{MIN};
}

sub sec {
    my $self = shift;
    if (@_) { $self->{SEC} = shift }
    return $self->{SEC};
}

package main;

my $object = Class->new();
$object->saveItems( '0431:12' );
print "hr: ", $object->hr(), " min: ", $object->min(), " sec: ", $object->sec(), "\n";

Answer 3

这件事已经解决了。

substr的使用方式如下，都能够正常执行，没有错误。

$object[$_[0]]->hr(substr($intime, 0,2)); 
$object[$_[0]]->min(substr($intime, 2,2)); 
$object[$_[0]]->sec(substr($intime, 5,2)); 

但是，正是日志文件中的尾随空白行导致该脚本失败。

感谢@ysth要求我重现该问题，当我意识到问题实际上在于日志文件而不是脚本时。

经验教训：在提出问题之前检查代码和来源