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 ，可以完全按你的要求运行。 你给它一个字符串，一个子字符串 （在这种情况下，单个字符），它从字符串的右侧查找该子字符串的第一个位置（ 索引从左侧做同样的事情。）

既然您正在学习Perl，那么获得一些有关Modern Perl和标准编码实践的书籍可能是个好主意。 这样，您就会了解更新的编码技术和标准编码实践。

• Modern Perl - 为您提供更新的编程帮助。
• 学习Perl - 一个旧标准。
• Perl最佳实践 - 标准编码实践。

这是一个示例程序：

#!/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