数组和循环是紧密相连的
perl的数组入门使用读文件――工具/原料perl
perl的数组入门使用读文件――方法/步骤perl的数组入门使用读文件 1、
构建一个类sdf分子库文件
####################我是分割线,1.sdf#######################
phe
C 12 11 28
N 12 14 23
$$$$
phe
C 13 15 23
N 18 17 23
$$$$
###########################################################
perl的数组入门使用读文件 2、
#############统计1.sdf库中有多少个分子,计算$$$$的个数#########
open FH,"D:/1.sdf";#把文件变成句柄,perl不具有awk,sed的能力,直接处理文本,只能处理句柄
my @text=<FH>;#把文件放到数组中,
foreach my $line(@text) #循环读取每一行的文本
{
chomp; #取掉每一行末尾的换行符
if($line=="$$$$")
{
$count++;
}
}
print $count;
#############################################################
不过我现在更懒了,不用perl脚本,喜欢linux下的命令流,
cat 1.sdf|grep "$$$$"|wc
##############################################
推荐大家使用linux
perl的数组入门使用读文件 3、
hash通常配合正则表达式使用,下次再举例子
perl的数组入门使用读文件――注意事项反复阅读,熟练使用foreach,<>操作符
阅读之前,需要理解数组和标量的区别