作者pziyout (pziyout)
看板Perl
标题Re: [问题] 关於加字串的问题~~~
时间Fri May 2 12:14:19 2008
※ 引述《pcikilo (Mm~~~)》之铭言：
: 就是假设我的list 里面的格式是
: ACSDJ.map
: fjsak.dsd
: djidj.pdb ......
: 就是前面有五个随便的字元..後面有".XXX"
: 那我想要程式先检查是否有 ".pdb" 如果有的话 ..就不用加了
: 如果没有则後面加".pdb"
: 下面是我写的 我的想法是先将每个字串存成变数
: 之後再去比对 如果没有比到".pdb"的话 就给他加上去
来个简单版的
open(D,"APDmap.list") ;
chomp, print ( /\.pdb\s*$/ ? "$_\n" : "$_.pdb\n" ) for <D> ;
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.115.25.24