用perl中的多个空格替换单个空格

作者: 独奏♪
发布时间: 2025-03-07 04:43:41 (2天前)
转自：

3 条回复

0#
回复此人
一腔诗意喂了狗 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 一种方法是使用普通的'Perl格式： </p> <pre class="lang-perl prettyprint-override"> <code> #!/usr/bin/perl use warnings; use strict; my($first, $second, $remainder); format STDOUT = @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $first, $second,$remainder . while (<DATA>) { ($first, $second, $remainder) = split(/\s+/, $_, 3); write; } exit 0; __DATA__ ABCD TEST EFGH don't touch FOO BAR FUD don't touch </code> </pre> <P> 测试输出。我可能错误地列了列，但你应该明白这个想法： </p> <pre class="lang-none prettyprint-override"> <code> $ perl dummy.pl ABCD TEST EFGH don't touch FOO BAR FUD don't touch </code> </pre> <P> 其他选择是 <a href="https://metacpan.org/pod/Text::Table" rel="nofollow noreferrer"> 文字::表 </A> </p> </DIV>

编辑
1#
回复此人
一腔诗意 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 假设数据中的字段由空格划分 </p> <pre> <code> while (<$fh>) { my ($first, @rest) = split; printf "%-35s @rest\n", $first; } </code> </pre> <P> 第一个区域现在将是36宽，由于左边对齐 <code> - </code> 格式为 <code> printf </code> 。看到 <a href="https://perldoc.perl.org/functions/sprintf.html" rel="nofollow noreferrer"> 的sprintf </A> 对于许多细节。其余部分在原始空格分隔的字段之间打印有单个空格，但可以根据需要进行打印（制表符分隔，固定宽度...）。 </p> <P> 或者你可以通过将线分成两部分来保持第一个字段之后的“休息” </p> <pre> <code> while (<$fh>) { my ($first, $rest) = /(\S+)\s+(.*)/; printf "%-35s $rest\n", $first; } </code> </pre> <P> （或使用 <code> split ' ', $_, 2 </code> 而不是正则表达式） </p> <P> 如果有其他要求，请提供更多详细信息。 </p> </DIV>

编辑

登录后才能参与评论