为什么我的文件句柄$ fh2不使用Perl打印其语句？ [英] Why my filehandle $fh2 not prints its statement using Perl?

问题描述

<<pre>my $map_file="/home/rpsa/DEMO/mapfile.txt";
open( my $fh,  '<', $map_file )            or die( $! );
open( my $fh1, '>', "result_file.txt" ) or die( $! );

while ( my $line = <$fh> ) {
    next unless ( defined( $line ) && $line );
    my @cols = split( /:/, $line );
    print $fh1 $cols[-1], "\n";
}

if(open( my $fh2, '<', "result_file.txt" ) || die( $! ))
{
while ( my $row = <$fh2> ) {
	chomp $row;
	print "****$row****";
}
}
else
{
warn "could not open the file ";
}

我的尝试：



我曾尝试从第一个while循环读取文本文件，但无法执行此操作。帮助我解决我的问题。

What I have tried:

I had tried to read the text file from the first while loop but am unable to do it.Help me to solve my issues.

推荐答案

MAP_FILE = /家/ RPSA / DEMO / mapfile.txt;
open（我的

map_file="/home/rpsa/DEMO/mapfile.txt"; open( my

fh，'<'，

fh, '<',

map_file）或死亡（

map_file ) or die(

这篇关于为什么我的文件句柄$ fh2不使用Perl打印其语句？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！