Opened by cohama at 2014-04-08 08:42
User since
2011-08-16
102 Artikel
BenutzerIn
2011-08-16
102 Artikel
BenutzerIn
Hallo pq,
vielen Dank für deinen Tipp. Jetzt habe ich keine Endlosschleife mehr, aber die beiden ersten Elemente sind auch in der Array1 enthalten.
OutPut-File
GO$19b T0ad 200753 0 20140406 201822 13359 13369 13375 d45bfa6a 1 0 1 00A 3 33792037980 0 X 0 1 3 5482929198 001 0 3 5482929198 1 24 F10 VT 278084-133159 SIP @VT_30_BER1015d_L1091872 0 D00c 7520 3115d3 G033 20140406 20182204 0000000619 0000001650 0003425547 E007 020100 O04c 12759007 102072960 102070800 425304 425295 0 2 0 IP2TDM 212.91.231.146:6928 V012 8 30 0 1 0 SIP_IN Z021 40794260897EDA3B@213.220.151.210
GO$145 T099 200180 0 20140407 000114 0 1 6 d45bfa6a 1 0 1 00A 3 3377300704 0 X 0 1 3 3377311426 000 0 3 3377311426 1 24 B11 GOBLIN 278801-255690 SIP loop[goblin,] 0 D00c 7520 312ae1 G02a 20140407 00011459 0000000444 ? 0000000442 E007 020100 O039 7690 61440 60480 256 252 0 3 0 IP2TDM 212.91.250.74:7904 V012 8 30 0 1 0 SIP_IN
vielen Dank für deinen Tipp. Jetzt habe ich keine Endlosschleife mehr, aber die beiden ersten Elemente sind auch in der Array1 enthalten.
Code: (dl
)
1
2
3
4
5
6
7
@Array = <iFile>; # Copy File 2 Array
@Array = grep {$_ =~ /^GO./}@Array; # Select all lines starting with GO
while (@Array){
@Array1 = splice @Array,0,2; # Drop first two colums
push @Array2,@Array1;
}
print oFile @Array2;
OutPut-File
GO$19b T0ad 200753 0 20140406 201822 13359 13369 13375 d45bfa6a 1 0 1 00A 3 33792037980 0 X 0 1 3 5482929198 001 0 3 5482929198 1 24 F10 VT 278084-133159 SIP @VT_30_BER1015d_L1091872 0 D00c 7520 3115d3 G033 20140406 20182204 0000000619 0000001650 0003425547 E007 020100 O04c 12759007 102072960 102070800 425304 425295 0 2 0 IP2TDM 212.91.231.146:6928 V012 8 30 0 1 0 SIP_IN Z021 40794260897EDA3B@213.220.151.210
GO$145 T099 200180 0 20140407 000114 0 1 6 d45bfa6a 1 0 1 00A 3 3377300704 0 X 0 1 3 3377311426 000 0 3 3377311426 1 24 B11 GOBLIN 278801-255690 SIP loop[goblin,] 0 D00c 7520 312ae1 G02a 20140407 00011459 0000000444 ? 0000000442 E007 020100 O039 7690 61440 60480 256 252 0 3 0 IP2TDM 212.91.250.74:7904 V012 8 30 0 1 0 SIP_IN