作者Chris7462 (～烤焦面包～)
看板Perl
标题Re: [问题] 关於加字串的问题~~~
时间Mon Mar 31 12:40:02 2008
※ 引述《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)
1F：推 pcikilo:谢谢你!!~~ 04/02 14:18