Re: [問題] 關於加字串的問題~~~
※ 引述《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);
#!/usr/bin/perl -w
use strict;
open List,"< APDmap.list";
@_ = <List>;
close List;
foreach ( @_ ){
chomp;
if (/\.pdb$/){
print "$_\n";
} else {
s/$/\.pdb/;
print "$_\n";
}
}
--
大概寫了一下，還有很多地方可以改進 :)
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.115.221.212
※ 編輯: Chris7462 來自: 140.115.221.212 (03/31 12:40)
推
04/02 14:18, , 1F
04/02 14:18, 1F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
10
27