学堂 学堂 学堂公众号手机端

在Perl中,可以使用open函数打开文件,并使用<>操作符逐行读取文件内容到数组中

lewis 2年前 (2023-10-22) 阅读数 6 #技术

在Perl中,可以使用open函数打开文件,并使用<>操作符逐行读取文件内容到数组中。下面是一个示例代码:

my$file="example.txt"; open(my$fh,"<",$file)ordie"Cannotopenfile:$!"; my@lines=<$fh>; close($fh); foreachmy$line(@lines){ chomp($line);#去除每行末尾的换行符 print"$line\n"; }

在上面的示例中,首先使用open函数打开名为example.txt的文件,然后使用<>操作符将文件内容逐行读取到@lines数组中。最后,使用foreach循环遍历数组并打印每行内容。

需要注意的是,在使用完文件之后需要调用close函数来关闭文件句柄。


版权声明

本文仅代表作者观点,不代表博信信息网立场。

热门