#!/usr/bin/perl
my $SRC_FILE="/home/lgg/t.txt";
my $DEST_FILE="/home/lgg/dest.txt";
if (open (SRCFILE ,"<$SRC_FILE"))
{
open (DESTFILE ,">$DEST_FILE");
my @reads = <SRCFILE>;
my $count=$#reads;
my $curr_index= 0;
while($curr_index <=$count)
{
my $line = $reads[$curr_index];
$line=~s/^\s+|\s+$//g;
if ( nil ne $line && "" ne $line)
{
print DESTFILE "$line\n";
}
$curr_index++;
}
close DESTFILE;
close SRCFILE;
}
else
{
print "Source file $SRC_FILE not found!\n";
}
分享到:
相关推荐
对学习使用Perl操作文件时写的,在开始学习对Perl文件操作时,使用了$_,导致调试了很长时间,现在改正后做笔记到此
在linux上perl对文件读写的几种方法 整体读入 逐行读入 写入
Perl之读取文本文件,按照给定的关键字读取文件内容并输出。
NULL 博文链接:https://zhych8419-163-com.iteye.com/blog/1030013
perl脚本,读取一个文件夹所有文件。 简单实用。
在window下使用ActivePerl,使用读取句柄操作,对txt文件替换进行操作。使用时,注意将txt文件和perl源文件放在同一个目录下。
利用perl读取EXCEL文件输出到XML文件
新手可以看看哈,教会你对文件的读取,让你尽快的入门
这是一个用perl语言解析的一个excel文件,将excel中的数据按照既定格式输出,方便数据处理
主要介绍了Perl读写文件简单示例,本文直接给出实现代码,需要的朋友可以参考下
主要介绍了perl读写文件代码实例,本文直接给出实现代码,需要的朋友可以参考下
利用perl脚本程序,读取并修改文件的内容
主要介绍了Perl中的文件读写学习笔记,本文讲解了打开、关闭文件、读文件、写文件、判断文件状态等内容,需要的朋友可以参考下
一般来说,线路板厂接到客户订单时,客户会以电脑文件的形式提供他自己的样品资料,我们就是修正客户提供的原始资料文件,使它方便自己厂里的机器生产出符合客户要求的线路板。 该教程包含如下内容: 1、PADS2009...
源代码中提供了perl如何处理大的XML文件的方法,并在文件中对文件进行基于正则表达式的替换操作以形成新的文件。此方法既能极大的降低内存消耗,又提高了读取速度。
用Perl/Tkx写的genesis2000板边脚本
在Genesis中使用Perl的配置。
perl读取excel内容,并发送html邮件!中文不乱码,直接下载可用,只需要改一下文件路径,这是已经上生产的脚本
与要生成的.v文件放在同一目录下,输入perl filelist_gen 即可
5.2 读取文件 56 5.3 写入文件 58 5.4 自由文件、测试文件和二进制数据 60 5.4.1 自由文件句柄 60 5.4.2 二进制文件 60 5.4.3 文件测试运算符 61 5.5 课时小结 62 5.6 课外作业 62 5.6.1 专家答疑 62 5.6.2 思考题 ...