Perl编程-5输入输出

Posted 2021-04-17 oddxix

钻石操作符输入<>

一行行进行读取的，一般配合使用while循环读入

while(my $file=<>){
}

调用参数

@ARGV数组里塞满了调用参数，使用@ARGV数组可以指定文件处理顺序。

use warnings;
use strict;

open (FHA,"<$ARGV[0]"); 
while (my $file=<FHA>){

}

要运行以上程序，使用perl em.pl filename1

文件句柄

文件句柄由字母、数字、及下划线组成，不得以数字开头。

#读入文件
open FHA,"<file.txt";
open FHB,"<$ARGV[0]";
#输出文件
open FHC,">file2.txt";
open FHD,"$ARGV[1]";
open FHE，“>>file3.txt”##输出文件追加到file3.txt后面

关闭文件句柄

使用close 操作符close FHA

使用die处理错误

使用die函数来输出报错信息

if(! open FHA,"$ARGV"){
die ("Can't open file : $! ")
}

标准输出

print FHB @array;

格式化输出

使用printf操作符。