今天第一天写博客,写的不好请大家多多指教,废话不多说了,干货送上: ############################################################# #!/usr/bin/perl use warnings; use strict; my %hash; my $source_file=$ARGV[0]; #输入文件 my $dest_file = $ARGV[1];#输出文件 open (FILE,"<$source_file") or
Perl中读取文件最后一行的方法很多,比如 (1)将文件读入数组,取最后一个元素 open (FILE,"file.txt") or die "$!"; my @arr=<FILE>;; close FILE; my $last=$arr[$#arr]; #$last里就是最后一行的内容了. (2)一行一行读入,到最后一行时输出 open (FILE,"file.txt") or die "$!"; while (