字符串查找 perl编程
答案:1 悬赏:30 手机版
解决时间 2021-03-26 02:54
- 提问者网友：感性作祟
- 2021-03-25 12:11
字符串查找 perl编程
最佳答案
- 五星知识达人网友：掌灯师
- 2021-03-25 13:11
测试得到最优了：
#!/usr/bin/perl
$a="dasdsaw2113";
while($a=~/>(\w+) print $1."\n";
}
下面这个比较绕了，也贴给你吧=====================================
#!/usr/bin/perl
$a="dasdsaw2113";
@b=split/>/,$a;
foreach (@b){
if(/^(\w+)$c.="$1\t";
}
}
@b=split/\t/,$c;
foreach(@b){
print $_."\n";
}
#!/usr/bin/perl
$a="dasdsaw
while($a=~/>(\w+) print $1."\n";
}
下面这个比较绕了，也贴给你吧=====================================
#!/usr/bin/perl
$a="dasdsaw
@b=split/>/,$a;
foreach (@b){
if(/^(\w+)$c.="$1\t";
}
}
@b=split/\t/,$c;
foreach(@b){
print $_."\n";
}
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯