undef aus array löschen (Allgemeines zu Perl)

[thread]8702[/thread]

undef aus array löschen

Gast Gast

2007-01-31 14:47

Hallo,

habe folgendes problem mit meinem array, welches wie folgt aussieht:

'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'Textá-áBlablaTextáText : Text Text Text'
];

wie bekomme ich da nun diese leeren undef dinger da raus? Ich will nur den Text drin haben mehr nicht

besten gruß

docsnyder

2007-01-31 15:07

User since
2005-09-08
300 Artikel
BenutzerIn

@cyproid

Code: (dl )

1
2

@arr = ( "", "", "Text 1", undef, "Text 2", undef, "" );
@arr = grep { defined($_) && $_ } @arr;

Gruß, Doc\n\n

2007-01-31 15:43

User since
2003-08-04
12208 Artikel
Admin1

[quote=docsnyder,31.01.2007, 14:07]

Code: (dl )

1
2

@arr = ( "", "", "Text 1", undef, "Text 2", undef, "" );
@arr = grep { defined($_) && $_ } @arr;

[/quote]
besser:
@arr = grep { defined $_ && length $_ } @arr;
sonst werden auch eintraege mit einer 0 geloescht.

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

docsnyder

2007-01-31 19:46

User since
2005-09-08
300 Artikel
BenutzerIn

@pq

Na, da hat aber wieder mal eine aufgepaßt!

Hast natürlich Recht ;o)

Gruß, Doc

View all threads created 2007-01-31 14:47.