爱华网数组和循环是紧密相连的
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，<>操作符
阅读之前，需要理解数组和标量的区别
