||
文件夹中有一系列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
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-10-20 04:43
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社