求助Perl脚本问题

570312653

怎样用Perl脚本实现:删除文档中没有用的行，剩下的每行进行一个缩进

570312653

   

gtfei 发表于 2022-10-18 15:12
1、open file
2、foreach遍历
3、if判断有用或者没用行

您好，我问下，如果我要打开的文件比较大，用while循环要怎么解决，我自己写了一下但是报了这种错误

570312653

   

levinweb 发表于 2022-10-19 08:34
你得给一个例子描述

您好，我想要实现的功能是从文档中找到格式符合的句子，然后每行缩进，我自己写了一下但很多错误

570312653

   

五角大楼 发表于 2022-10-19 11:21
=~是不是写成了= ~？

谢谢您，是这个问题，中间多了一个空格。
我再问下如果这个文档本事的内容每行开头没有对齐，我应该怎么让它每一行相对上一行缩进

570312653

   

kangkang005 发表于 2022-10-19 15:42
如果每一行都相对上一行缩进，那不就是每行都跟第一行对齐了？

文档里需要保留的行本身不是相对上一行缩进，有些是对齐的，有些已经缩进了

570312653

   

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

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

570312653

   

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

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

570312653

   

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

谢谢您，得到结果了