小编Ran*_*cho的帖子

我有一个字符串说"a/b/c/d/e",我想要替换除了最后一个以外的所有/.即我的输出应该是a.b.c.d/e.

如何修改我的替换命令s/\//./g来执行相同的操作？另请注意,层次结构并不总是有4" /".它可以是任何数字.

我有一个类似的文件

line1
line2
line3
line4
.endm
line5
line6
line7
line8
.endm

我想将此文件拆分为.endm并将内容放在2个不同的数组中.输出将是

@array1=(line1,line2,line3,line4);
@array2=(line4,line6,line7,line8);

我试过用

@array = split(".endm",my_file.txt);
print("Array1 = $array[1]\nArray2 = $array[2]\n);

但这只是打印出最后一个.endm的行号

我也尝试了类似的东西

#! /usr/intel/bin/perl -w
use strict;

my $count=0;
open(my $fh, "<", "a.txt")|| die "can't open UTF-8 encoded filename: $!";
my @lines = <$fh>;
my @array;

LOOP: foreach my $line (@lines) {
    chomp ($line);
    $count = $count+1;
    push (@array,$line);  
    if ($line =~ m/.endm/) {
        pop (@array);
        last LOOP;
    }
}
print("Array : @array\n");
close $fh;

这个打印@array=(line1,line2,line3,line4); …

我有一个有很多行的文件.其中一些以"Only in"开头.所以我想只保留以"Only in"开头的行并删除其余的行.有人可以告诉我我可以使用什么正则表达式命令.

像"%s /!(仅限于)/ rm -rf那样的行"很抱歉这里混合了verilog,unix和perl.有人可以用同样的方式帮助我

我对 tcl 字典比较陌生，没有看到关于如何初始化空字典、循环日志并将数据保存到其中的良好文档。最后我想打印一个如下所示的表格：

 - Table:

HEAD1
  Step 1    Start Time     End Time

  Step 2    Start Time     End Time

**

 - Log:

    **

    HEAD1
      Step1
         Start Time : 10am
         .
         .
         .
         End Time: 11am

      Step2
         Start Time : 11am
         . 
         .
         End time : 12pm

    HEAD2
      Step3
         Start Time : 12pm
         .
         .
         .
         End Time: 1pm

      Step4
         Start Time : 1pm
         . 
         .
         End time : 2pm