Arrayindex eines Elements? - #52740 (Allgemeines zu Perl)

pKai

2005-03-17 17:45

User since
2005-02-18
357 Artikel
BenutzerIn
[default_avatar]

[quote=joa,17.Mar..2005, 15:22]

Code: (dl )

foreach (@inhalt =~ /ausdruck/) {
   - speichere die Position von $_
   - speichere n Elemente vor und nach $_
    (dazu brauche ich eben den Index)    }

[/quote]
Wenn die Position nur für die Manipulation verwendet werden soll und nachher nicht mehr benötigt wird (ändert sich durch Einfügen davor ja auch noch, zumindest im Ergebnis),
dann vielleicht auch als "One"-liner ohne jegliche Bestimmung der Position(en) ;)

Code: (dl )

use strict;
use warnings;

my @vor = qw(a b c);
my @nach = qw(x y z);
my @Liste = qw(7 6 5 4 3);

my $re = qr(^6$);

my @Neu = map {
    /$re/
    ?
    (@vor, $_, @nach)
    :        
    ($_)
} @Liste;

print @Neu, $/;

Edit: Editier-Artefakte bereinigt\n\n

I sense a soul in search of answers.