perl-以tab分割的文件输出
1 #!/usr/bin/perl2 use autodie;
3 use warnings;
4
5
6 sub file_out{
7 $output=""; #将输出置为空，否则会出问题
8 foreach my $str (@_){ #遍历函数输入
9 $output.=$str."\t"; #以tab分割输入
10 }
11 $output=~s/(\t)$/\n/; #将输出的最后一个tab换成换行符
12 return $output; #返回最终输出
13 }
14
15 ####################使用说明###############################
16
17 &file_out("aaa","bbb","ccc"); #随便几个参数，结果可以打印到文件或其他地方
18
19 ##########################################################
页:
[1]