Perl - 不能使用字符串（...）作为数组引用

Question

我正在使用来自 codeeval.com 的挑战练习 Perl，但遇到了意外错误。目标是逐行遍历文件，其中每一行都有一个字符串和一个用逗号分隔的字符，并找到该字符在字符串中最右边的位置。我得到了错误的答案，所以当我收到以下错误时，我更改了代码以仅打印出变量值：

Can't use string ("Hello world") as an ARRAY ref while "strict refs" in use at char_pos.pl line 20, <FILE> line 1.

我的代码如下。您可以在标题中查看文件中的示例。您还可以看到原始输出代码，它错误地只显示每个字符串中最右边的字符。

#CodeEval challenge: https://www.codeeval.com/open_challenges/31/
#Call with $> char_pos.pl numbers
##Hello world, d
##Hola mundo, H
##Keyboard, b
##Connecticut, n

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

my $path = $ARGV[0];

open FILE, $path or die $!;

my $len;

while(<FILE>)
{
    my @args = split(/,/,$_);
    $len = length($args[0]) - 1;
    print "$len\n";
    for(;$len >= 0; $len--)
    {
        last if $args[0][$len] == $args[1];
    }


    #if($len > -1)
    #{
    # print $len, "\n";   
    #}else
    #{
    # print "not found\n";   
    #}

}

编辑： 根据下面的答案，这是我开始工作的代码：

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


open my $fh,"<",shift;

while(my $line = <$fh>)
{
    chomp $line;
    my @args = split(/,/,$line);
    my $index = rindex($args[0],$args[1]);

    print $index>-1 ? "$index\n" : "Not found\n";
}

close $fh;

Answer 1

perl 中的字符串是一种基本类型，而不是可下标的数组。您可以使用 substr 函数从它们中获取单个字符（也只是字符串）或子字符串。

还要注意字符串比较是用eq完成的； == 是数值比较。

Answer 2

看来您需要对 Perl 函数有所了解。 Perl 有许多用于字符串和标量的函数，但并非总是能够一目了然。

然而，Perl 有一个很棒的函数，叫做rindex，它完全可以满足你的需求。你给它一个字符串，一个 substring（在这种情况下，一个字符），它会从 right 字符串的一侧（index 从左侧执行相同的操作。）

既然您正在学习 Perl，最好买几本关于现代 Perl 和标准编码实践的书籍。这样，您就可以了解更新的编码技术和标准的编码实践。

• Modern Perl - 为您提供更新的编程帮助。
• Learning Perl - 旧标准。
• Perl Best Practices - 标准编码实践。

这是一个示例程序：

#!/usr/bin/perl

use strict;
use warnings;
use autodie;
use feature qw(say);

open my $fh, "<", shift;

while ( my $line = <$fh> ) {
    chomp $line;
    my ($string, $char) = split /,/, $line, 2;
    if ( length $char != 1 or not defined $string ) {
        say qq(Invalid line "$line".);
        next;
    }
    my $location = rindex $string, $char;
    if ( $location != -1 ) {
        say qq(The right most "$char" is at position $location in "$string".);
    }
    else {
        say qq(The character "$char" wasn't found in line "$line".)";
}
close $fh;

一些建议：

• use autodie 允许你的程序在错误的open 上自动死掉。无需检查。
• 三参数open 声明现在被认为是必要的。
• 对文件句柄使用标量变量。它们更容易传递到子例程中。
• 对循环使用词法范围的变量。尽量避免使用$_。
• 阅读后始终发送chomp。

最重要的是，错误检查！我检查了行的格式以确保只有一个逗号，并且我正在搜索的字符是一个字符。我还检查了rindex 的退出值，以确保它找到了该字符。如果rindex 没有找到该字符，则返回-1。

还知道一行中的第一个字符是0 而不是1。您可能需要为此调整，具体取决于您期望的输出。

Answer 3

while($i=<DATA>){
($string,$char)=split(",",$i);
push(@str,$string);}
@join=split("",$_), print "$join[-1]\n",foreach(@str);



__DATA__
Hello world, d
Hola mundo, H
Keyboard, b
Connecticut, n