如何从阵列中删除元素的特定区域

我想从阵列中删除特定范围的元素。
我有一个txt文件：如何从阵列中删除元素的特定区域

Rbody ... 
333 
444 
555 
666 
END 

Shell ... 
Node ... 

Rbody ... 
333 
444 
555 
666 
END

我想要做的是去除开始，直到从我的文件“END”字的词“Rbody”的元素。

#while (<INC>) { 
# if (!/^RBODY/) 
# { 
#  push(@alllines,$_); 
# } 
#}

只删除单词Rbody的行...我想我需要一些有点循环。：/

Thx for your help。

来源

2013-03-20 Hauke Stricker

各自以txt文件的单独行？你也必须保存这些不知何故，或者你只需要创建一个没有这些条目的文本文件？另外，是Rbody ... 333 444 555 666结束一行，你必须删除该行？ – KateMak 2013-03-20 15:25:14

'splice'怎么样？ – squiguy 2013-03-20 16:08:45

@squiguy：不，它不是一条线。 Rbody是可以说第一个和第十个..之间的一些数据。应该删除整个块，其余的数据应该分别放入我的数组中。 – 2013-03-21 07:01:12

尝试使用两个循环。外循环正常读取这些行。如果发现像/^Rbody/i一条线，那么它会使用一个内部循环跳过一切，直到看到“END”：

while(defined(my $line = <INC>)){ 
    chomp($line); 
    if($line =~ /^Rbody/i){ 
     while(defined($line = <INC>)){ 
      chomp($line); 
      last if $line eq "END"; 
     } 
    } else { 
     push(@alllines, $line); 
    } 
}

来源

2013-03-20 16:03:56

这是一个有点深奥，但是这是一个很好的用例为"flip-flop" operator：

while (<INC>) { 
    push @alllines, $_ unless /^Rbody/ .. /^END/; 
}

表达/^Rbody/ .. /^END/返回false，直到$_正则表达式匹配/^Rbody/。然后它返回true，直到它匹配/^END/。

来源

2013-03-20 16:23:43 mob

谢谢您的链接！它现在有效！ – 2013-03-21 07:14:14

您应该将此标记为答案;） – KateMak 2013-03-24 18:38:50

只需使用一个状态变量来跟踪是否应打印当前行。

use strict; 
use warnings; 

my $print = 1; 

while (<DATA>) { 
    if ($print) { 
    $print = 0 if /^Rbody/i; 
    print if $print; 
    } 
    elsif (/^END$/) { 
    $print = 1; 
    } 
}

来源

2013-03-20 17:45:02 Borodin

遗憾的是没有版本似乎工作：

第一个版本打印每一行，其他两个不提供输出。

我的文字是这样的：

RBODY/
sdsd 
sdsdsd 
sdsd 
     END 

SHELL/9171781 9001914 9073136 9073137 9073118 9073115       
SHELL/9171782 9001914 9073117 9073120 9073119 9073116       
SHELL/9171783 9001914 9073118 9073121 9073120 9073117       
SHELL/9171784 9001914 9073137 9073138 9073121 9073118       
SHELL/9171785 9001914 9073120 9073123 9073122 9073119       
SHELL/9171786 9001914 9073121 9073124 9073123 9073120       
# [SDM:HISTORY:VERSION] = "History_Variante_DGS" 
# 
# S01__B70D_revo: *Autor: revo 
#     *Datum: 11.12.12 
#     *Basis: ------- 
#     - automatischer Positionierungsprozess 
#     - verwendetes Dummysessionfile: Sessiondummy____au481_______LFaH3_sitzpos_S01__B70D_revo.ses 
#     - verwendetes Gurtsessionfile : Sessiongurt_____au481_______LFaH3_sitzpos_S01__Basi_revo.ses 
#     - verwendetes Sitzsessionfile : Sessionsitz_____au481__0____LFaH3_sitzpos_S01__B001_revo_k14m.ses 
# 
#

代码到现在为止：

#!/usr/bin/perl 
# 
#print "Bitte geben sie das Dummy Include an:\n"; 
#chop($dummyfile = <>); 
#print "\n"; 
#print "Bitte geben sie das Basis Include an:\n"; 
#chop($basisfile = <>); 
#print "\n"; 

$dummyfile = 'Dummy_mu5070b___mvs2g__1_cb21_k19_m04F_bsd_w3_bfrei__krmi_040_.inc'; 
$newinc = "dummy_include.inc"; 
open(INC, $dummyfile); 
open(NEWINC, ">$newinc"); 


.... missing regex 


print @alllines;

来源

2013-03-21 07:10:03

如何从阵列中删除元素的特定区域

回答

相关问题