#!/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 即可
perl删除重复行,一行一行读取,如果$temp和$-不等则保留,只能处理连续重复,perl删除重复行,一行一行读取,如果$temp和$-不等则保留,只能处理连续重复,