Thread Bestimmte Zeilen UND folgende aus Array löschen (5 answers)
Opened by Gast at 2005-12-19 10:31

J-jayz-Z
 2005-12-19 11:11
#61100 #61100
User since
2005-04-13
625 Artikel
BenutzerIn
[Homepage] [default_avatar]
Du nutzt ein zweites Array, das kannst du auch nur mit diesem enen Array machen:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl
use strict;
use warnings;

my @array = ('1 ABC blabla', '2 DEF blabla', ' blablabla', '4 JKL blabla', '5 MNO blabla', '6 PQR blabla');
my $status = 1;
for(0..$#array) {
if($array[$_]) {
if($array[$_] !~ m/^\d.*/ && $status) {
splice @array, $_;
$status = 0;
} elsif(! $status) {
splice @array, $_;
}
}
}
print $_ . "\n" for @array;
perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de

View full thread Bestimmte Zeilen UND folgende aus Array löschen