特殊文件格式的输出！高手请进！

czyf2001

Yonghu目录下有多个xyz.htm文件，需要将每个文件的输出的格式为：

<a href="Yonghu/xyz.htm>;</a>;

其中xyz代表Yonghu中的任意文件名。
那么就可以自动完成动态网页的生成！

请问用perl怎么实现啊？？

czyf2001

这个通过正则表达式来实现

                      str1="\<a href=\"Yonghu\/' ;  
                                 str2="\"\>;" ;
                                 str3="\<\/a\>;" ;

问题是我该怎样来实现这个循环？？将每个都输出！
foreach(@pfiles)
{
       print "$str1 $str2@pfiles$str3 \n"
}
结果输出为： <a href="Yonghu/1.htm 2.htm 3.htm>;</a>;
                   <a href="Yonghu/1.htm 2.htm 3.htm>;</a>;
                   <a href="Yonghu/1.htm 2.htm 3.htm>;</a>;

我期望是：   <a href="Yonghu/1.htm>;</a>;
                    <a href="Yonghu/2.htm>;</a>;
                    <a href="Yonghu/3.htm>;</a>;

该怎么实现啊？？

czyf2001

总算实现了！
输出格式为： print "$str1$_$str2$str3 \n";

bigluo

怎么老是在叫高手请进，呵呵。