【紧急求助】perl如何根据条件匹配一个句子产生另一个句子？

freedos520

请教各位，我要用Perl生成一段代码程序，产生代码程序的perl如下：
#!/usr/bin/perl

open(my $inF, ">", "round");

printf($inF "main() ( \n");
printf($inF "\t Classic   tpye  TEST_X11,\n");
printf($inF "\t Classic   tpye  TEST_X13,\n");
     
printf($inF "\t New       tpye  GENT_X11,\n");   #只有在有Classic   tpye  TEST_X11,这一条件，这一行的时候，才产生本行代码。
printf($inF "\t New       tpye  GENT_X13,\n");   #只有在有Classic   tpye  TEST_X13,这一条件，这一行的时候，才产生本行代码。

printf($inF  "The machine (Classic   tpye  TEST_X11) is in USE!\n"); # #只有在有Classic   tpye  TEST_X11,这一条件，这一行的时候，才产生本行代码，且括号内的字符根据前面的Classic 的不同而改变。
printf($inF  "The machine (Classic   tpye  TEST_X13) is in USE!\n"); # #只有在有Classic   tpye  TEST_X13,这一条件，这一行的时候，才产生本行代码，且括号内的字符根据前面的Classic 的不同而改变。

printf($inF "\n");
printf($inF "endprogram\n");
close(inF);
-----------------------------------
上面的perl代码拷贝，保存后可以直接运行运行。但是不够灵活无法配置无法达到要求。

问题如下：
1， 只有在有Classic   tpye  TEST_X11,这一条件，这一行的时候，才产生New       tpye  GENT_X11,这一行；

2，只有在有Classic   tpye  TEST_X11,这一条件，这一行的时候，才产生The machine (Classic   tpye  TEST_X11) is in USE!  ，且括号内的字符根据前面的Classic 的不同而改变。


请教各位如何实现？

非常感谢！！！

freedos520

自己顶，别沉了。

freedos520

@Perlvim
@py
@zhlong8
@crifan

对不起各位打扰了！
也希望论坛的朋友帮忙解答，非常感谢！

zhlong8

open my $inF, ">", "round";

my @types = ("TEST_X11", "TEST_X13");

printf $inF "main() ( \n";

printf $inF "\t Classic   type $_,\n" for @types;

printf $inF "\t New       tpye  $_,\n" for @types;

printf $inF "The machine (Classic   tpye  $_) is in USE!\n" for @types;

printf $inF "\n";
printf $inF "endprogram\n";
close $inF;

freedos520

多谢版主，我试试看！