Linux下Perl的经典用法:读入单个记录

有一个容易的方法读入filehandles:用 操作符。在标量内容下, 它返回文件中的下一个记录,或者返回未定义出错信息。我们可以使用它来把一行读 入到一个变量中:

$line = ;

die "Unexpected end-of-file" unless defined $line;

在循环语句中,我们可以这样写:

while (defined ($record = )) { # long-winded

# $record is set to each record in the file, one at a time

}

因为要大量进行这样的工作,通常再进行一下简化,

把记录放到$_ 中,而不是$record中:

while () {

# $_ 每次为文件中的一个记录

}

在Perl 5.004_04中,我们可以这样做:

while ($record = ) {

# $record 每次为文件中的一个记录

}

defined() 将自动加上,在Perl 5.004_04以前的版本中,该命令给出一个警示。 要了解所用的Perl版本,可在命令行下打入:

perl -v

一旦我们读出了一个记录,通常打算去掉记录分隔符,(缺省值为换行符字符):

chomp($record);

Perl 4.0版本仅有chop()操作,去掉串的最后一个字符, 不管该字符是什么。chomp() 没有这么大的破坏性,如果有行分隔符存在,它仅去掉行分隔符。如果你打算去掉行分隔符, 就用chomp() 来代替chop()。

 
Perl的经典用法:读入多个记录
  如果你调用,返回文件中剩余的记录。如果你处于文件尾,则返回空表:  @records = ;  if (@records) {  print "There were ", scalar(@records), " records read.\n";  }  在下面的一步中,进行赋值和...查看完整版>>Perl的经典用法:读入多个记录
 
Linux操作系统下安装Perl及其模块的方法
Linux和perl都属于自由软件,将二者结合真是妙不可言。遵循以下步骤一般就可安装好perl,perl 就能在linux下欢唱。 1、取得最新版本的 perl,当前版本为 5.6.0,即 stable.tar.gz。 2、解文件包: gunzip stable.tar....查看完整版>>Linux操作系统下安装Perl及其模块的方法
 
Linux操作系统下安装Perl及Perl模块方法
Linux 和 perl 都属于自由软件,将二者结合真是妙不可言。遵循以下步骤一般就可安装好 perl ,perl 就能在 linux 下欢唱。 1、取得最新版本的 perl,当前版本为 5.6.0,即 stable.tar.gz。 2、解文件包: gunzip stab...查看完整版>>Linux操作系统下安装Perl及Perl模块方法
 
新手学堂:在Linux下安装Perl及Perl模块
Linux和Perl都属于自由软件,将二者结合真是妙不可言。遵循以下步骤一般就可安装好 perl ,perl 就能在 linux 下欢唱。 1、取得最新版本的 perl,当前版本为 5.6.0,即 stable.tar.gz。 2、解文件包: gunzip stable....查看完整版>>新手学堂:在Linux下安装Perl及Perl模块
 
在Linux下使用perl通过unixODBC连接SQLServer2000
     摘要:MS从来没有提供过SQLServer for Linux,所以大家也不要去尝试在Linux系统安装SQLServer,但是可以通过ODBC连接Windows系统的SQLServer数据库;  一、关于测试环境及Linux连接SQL Server 的说明;  ...查看完整版>>在Linux下使用perl通过unixODBC连接SQLServer2000
 
· 临近国庆,李小璐与女儿在天安门前合影

http://image.wangchao.net.cn/users/...

· 震惊!原来酒驾处罚这么严重

酒驾处罚标准 不要有任何一丝侥幸心理! http://image....

· 把年龄相仿的狮虎熊放一起,谁更厉害?结果出人意料

很多人都想知道狮子、老虎和熊打起来谁最厉害,于是便有好事之人把这三种动物关在一起...