[問題] 關於加字串的問題~~~

[pcikilo (Mm~~~)]

就是假設我的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
→ clkao:=~ s/(\.pdb|)$/.pdf/