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

1308
2023/11/19 2:35:10
栏目: 编程语言
开发者测试专用服务器限时活动,0元免费领,库存有限,领完即止! 点击查看>>

要提取每行的最后一个字符,您可以使用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

辰迅云「云服务器」,即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘,价格低至29元/月。点击查看>>

推荐阅读: Perl语言应用有哪些库可用