求助Perl脚本问题

gtfei

   

570312653 发表于 2022-10-19 16:32
文档里需要保留的行本身不是相对上一行缩进，有些是对齐的，有些已经缩进了
...

你统一把取出来的数据都做一下处理，把前面的空格都删掉，然后自己加就好了。供参考，可能不是你最终想要的格式，自己改一下就好了：
@arry_modify=();
$cnt=0;
foreach(@arry){
    chomp $_;
    if($_=~/^\s*(.*)\s*/i) {@arry_modify[$cnt]="\t".$1;}
    else {;}
    $cnt++;
}

570312653

   

gtfei 发表于 2022-10-19 17:03
你统一把取出来的数据都做一下处理，把前面的空格都删掉，然后自己加就好了。供参考，可能不是你最终想要 ...

您好，我按照您的方法试了一下，得到的结果是所有保留的行横向排列，我在\t前加了\n之后也是这样排列，您知道怎样让它纵向排列吗

gtfei

   

570312653 发表于 2022-10-19 18:48
您好，我按照您的方法试了一下，得到的结果是所有保留的行横向排列，我在\t前加了\n之后也是这样排列，您 ...

改成这个试试：
if($_=~/^\s*(.*)\s*/i) {@arry_modify[$cnt]="\t".$1."\n";}
顺便写了个测试代码，我的gvim设置过了\t代表8格缩进，不必在意这个细节，代码参考如下：

570312653

   

gtfei 发表于 2022-10-19 19:27
改成这个试试：
if($_=~/^\s*(.*)\s*/i) {@arry_modify[$cnt]="\t".$1."\n";}
顺便写了个测试代码，我的gv ...

谢谢您，已经得到结果了。
麻烦再问您一下，我应该怎么得到每一行相比上一行缩进的格式

note30933

谢谢分享

gtfei

   

570312653 发表于 2022-10-20 09:59
谢谢您，已经得到结果了。
麻烦再问您一下，我应该怎么得到每一行相比上一行缩进的格式
...

你说的是下面这种格式？

ncash0933

顶一下

570312653

   

gtfei 发表于 2022-10-20 10:33
你说的是下面这种格式？

谢谢您，得到结果了