[問題] 關於加字串的問題~~~
就是假設我的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
→
03/31 16:32, , 1F
03/31 16:32, 1F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
