文件夹中有一系列mol2文件，每个文件代表一个小分子，现需要将每个文件名与小分子名一一对应，故编写了如下脚本（listname.pl）来实现。

#! /usr/bin/perl -w

use strict;

opendir (DH, 'directory_path'); ##将directory_path改为mol2文件所在目录

my @folder = readdir DH;

chdir 'directory_path'; ##同上

for my $file(@folder) {

   open FH, "$file";

   foreach my $line(<FH>) {

       if ($line =~ /ZINC/) {

           print "$file\t$line";

           last;

          }

   }

   close FH;

}

用法：perl listname.pl >list.txt