perl怎么提取每行的最后一个字符

要提取每行的最后一个字符，您可以使用Perl中的正则表达式和字符串函数来完成。下面是一个示例代码：

#!/usr/bin/perl  use strict; use warnings;  # 打开文件 open my $fh, '<', 'file.txt' or die "无法打开文件: $!";  # 逐行读取文件内容 while (my $line = <$fh>) {     # 去除行尾的换行符     chomp($line);          # 使用正则表达式提取最后一个字符     my ($last_char) = $line =~ /(\S)$/;          # 打印最后一个字符     print "$last_char\n"; }  # 关闭文件 close $fh; 

在上面的代码中，我们首先通过open函数打开文件，然后通过while循环逐行读取文件内容。使用chomp函数去除行尾的换行符。然后使用正则表达式/(\S)$/来提取最后一个非空字符，并将其赋值给变量$last_char。最后打印出$last_char。