perl的数组入门使用读文件

#############统计1.sdf库中有多少个分子，计算$$$$的个数######### open FH,'D:/1.sdf';#把文件变成句柄，perl不具有awk，sed的能力，直接处理文本，只能处理句柄my @text=;#把文件放到数组中，foreach my $line(@text)   #循环读取每一行的文本{          chomp; #取掉每一行末尾的换行符          if($line=='$$$$')           {                   $count++;            }}print $count; ############################################################# 不过我现在更懒了，不用perl脚本，喜欢linux下的命令流，cat 1.sdf|grep '$$$$'|wc##############################################推荐大家使用linux

hash通常配合正则表达式使用，下次再举例子

反复阅读，熟练使用foreach，<>操作符

阅读之前，需要理解数组和标量的区别