如何使用Perl对文本进行字符串替换
答案:2 悬赏:50 手机版
解决时间 2021-03-16 08:53
- 提问者网友：呐年旧曙光
- 2021-03-15 11:02
如何使用Perl对文本进行字符串替换
最佳答案
- 五星知识达人网友：底特律间谍
- 2021-03-15 12:11
T07/T08/T09
$aa=1;
while ($aa <= $count_slot){
$bb = $act_hole + $aa ;
if ($count_slot < 10) {
$tool1 = T0$aa;
}else{
$tool1 = T$aa;
}
if ($bb < 10) {
$tool2 = T0$bb;
}else{
$tool2 = T$bb;
}
$aa=1;
while ($aa <= $count_slot){
$bb = $act_hole + $aa ;
if ($count_slot < 10) {
$tool1 = T0$aa;
}else{
$tool1 = T$aa;
}
if ($bb < 10) {
$tool2 = T0$bb;
}else{
$tool2 = T$bb;
}
全部回答
- 1楼网友：第幾種人
- 2021-03-15 12:44
open f, "1.txt" or die $!;#把以上内容放到1.txt
@array=;foreach(@array){if(/t(\d)\dc/ or /t(\d)\d+$/){s/$1/1/;} print "$_";}
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯