Bestimmte Zeilen UND folgende aus Array löschen - #61100 (Allgemeines zu Perl)

J-jayz-Z

2005-12-19 11:11

User since
2005-04-13
625 Artikel
BenutzerIn

Du nutzt ein zweites Array, das kannst du auch nur mit diesem enen Array machen:

Code: (dl )

#!/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