#/usr/bin/perl -w
sub readline{
print $_[0],"\n";
if (open(FILE1,"Qlist.txt"))
{
while(<FILE1>)
{
if($_=~/^$_[0]/)
{
s/NULL//;
s/\n//;
close(FILE1);
return $_;
}
}
}
close(FILE1);
return "$_[0] :";
}
print "Put in one model:";
$putin=<>;
$putin=~s/\n$//;
$modellist=&readline($putin);
while($modellist=~m/\b(\w+)\b(?! :)/){
my $tmp=&readline($1);
$modellist=~s/\b(\w+)\b(?! :)/$tmp/;
}
if (open(OUTFILE,">OKlist.txt"))
{
print OUTFILE ($modellist);
close(OUTFILE);
}
Qlist.txt
依赖关系例子sub readline{
print $_[0],"\n";
if (open(FILE1,"Qlist.txt"))
{
while(<FILE1>)
{
if($_=~/^$_[0]/)
{
s/NULL//;
s/\n//;
close(FILE1);
return $_;
}
}
}
close(FILE1);
return "$_[0] :";
}
print "Put in one model:";
$putin=<>;
$putin=~s/\n$//;
$modellist=&readline($putin);
while($modellist=~m/\b(\w+)\b(?! :)/){
my $tmp=&readline($1);
$modellist=~s/\b(\w+)\b(?! :)/$tmp/;
}
if (open(OUTFILE,">OKlist.txt"))
{
print OUTFILE ($modellist);
close(OUTFILE);
}
vcl : a b c NULL
a : a1 NULL
b : b1 NULL
c : d NULL
a1 : NULL
b1 : NULL
d : e1 e2 NULL
e1 : NULL
e2 : NULL
a : a1 NULL
b : b1 NULL
c : d NULL
a1 : NULL
b1 : NULL
d : e1 e2 NULL
e1 : NULL
e2 : NULL
oklist.txt 结果
vcl : a : a1 : b : b1 : c : d : e1 : e2 :