作者pcikilo (Mm~~~)
看板Perl
标题[问题] 关於加字串的问题~~~
时间Mon Mar 31 11:01:44 2008
就是假设我的list 里面的格式是
ACSDJ.map
fjsak.dsd
djidj.pdb ......
就是前面有五个随便的字元..後面有".XXX"
那我想要程式先检查是否有 ".pdb" 如果有的话 ..就不用加了
如果没有则後面加".pdb"
下面是我写的 我的想法是先将每个字串存成变数
之後再去比对 如果没有比到".pdb"的话 就给他加上去
下面是我尝试写的 不过还是失败 = =""
请问板上大大要怎麽写比较好~~可以给个方向吗?
#!/usr/bin/perl
open (List,"APDmap.list");
@pdblist=<List>;
$n=0;
while($n<50){
$a = substr $pdblist[$n],0,9;
#print"$a";
if ($a!~/pdb/){
#chomp;
print"$a";
#$_ =~ s/^\s*//;
#push (@newpdblist, $a .= ".pdb");------>这部分我还在想 ..可以用push?
我的想法是将有加过的.pdb存至新
的newpdblist
}
$n++;
}
close(list);
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.115.43.101
1F：→ clkao:=~ s/(\.pdb|)$/.pdf/ 03/31 16:32