Perl如何读取文本内容 5
我有一个文档AA.TXT，内容如下：，使用Perl如何能够读取出=号后面的内容？[Drive]1=1111111112=2222222223=3333333334=444...
我有一个文档AA.TXT，内容如下：，使用Perl如何能够读取出=号后面的内容？
[Drive]
1 = 111111111
2 = 222222222
3 = 333333333
4 = 444444444 展开
[Drive]
1 = 111111111
2 = 222222222
3 = 333333333
4 = 444444444 展开
2个回答
展开全部
open FILE, 'AA.TXT' or die;
my @lines = split ( <FILE>, '\n' );
my %values;
foreach my $line (@lines) {
if ( $line =~ /^\s*(\S+)\s*=\s*(\S+)\s*$/ ) {
$values{$1} = $2;
}
}
my @lines = split ( <FILE>, '\n' );
my %values;
foreach my $line (@lines) {
if ( $line =~ /^\s*(\S+)\s*=\s*(\S+)\s*$/ ) {
$values{$1} = $2;
}
}
追问
不可以呀，运行后没有任何输出呀~！
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
