I have an array that looks somewhat like this:
Now as you see, headings occur several times even tho they are identical. (This due to page shifts in a SAP file export)
heading 1
data2keep
data2keep
data2keep
heading 1
data2keep
data2keep
heading 2
data2keep
data2keep
data2keep
data2keep
heading 2
data2keep
data2keep
heading 3
data2keep
data2keep
data2keep
.
.
I want only one ocurance of each heading.
So, the result should look like:
So far i have this code, but it just identifies the linenumbers of where a new "block" starts:
heading 1
data2keep
data2keep
data2keep
data2keep
data2keep
heading 2
data2keep
data2keep
data2keep
data2keep
data2keep
data2keep
heading 3
data2keep
data2keep
data2keep
Expand|Select|Wrap|Line Numbers
- foreach (@data) {
- if ($_ =~ m/heading/) {
- $_{$_}++;
- unless($_{$_} > 1) {
- push(@block,"\t$i\t $_\n");
- }
- }
- $i++;
- }
Hope anyone can help.