another elegance contest

tos has asked for the wisdom of the Perl Monks concerning the following question:

Hi folks,

so you don't think i'm deceased here a sign of life.

The problem is to pick some decided elements out of an array and put them into another.

My own solution works, but as far as i know perl, there must be a more elegant way to do this.

# perl -we '$i=0;$x="klops";@a=(qw|apfel klops klops börne joghurt klo
+ps nüß|);for ($i=$#a;$i>=0;$i--) {print "$i:",$a[$i],"\n";$a[$i]=~/$x
+/ && push @e, (splice @a, $i, 1)};print "@e\n@a\n"'
6:nüß
5:klops
4:joghurt
3:börne
2:klops
1:klops
0:apfel
klops klops klops
apfel börne joghurt nüß
[download]

Suggestions ?

regards, Thomas

Is simplicity best or simply the easiest Martin L. Gore

Replies are listed 'Best First'.
Re: another elegance contest by salva (Canon) on Nov 16, 2005 at 13:00 UTC
`my $x = qr(klops); my @a = qw(apfel klops klops börne joghurt klops nüß) my @e; @a = grep { $_ !~ $x or not push @e, $_ } @a;` [download]	[reply] [d/l]
Re^2: another elegance contest by tos (Deacon) on Nov 16, 2005 at 15:42 UTC
Salve SALVA, :-) that's a really fabulous solution. It's just the kind of consise perl-semantics i like so much. Unfortunatly i'm only rarly able to create such pretty code-jewels by myself. I also tried approaches with 'grep' but the 'not'-trick would never have occurred to me. Thank you brother, ;-) regards, tos Is simplicity best or simply the easiest Martin L. Gore	[reply]
Re: another elegance contest by Eimi Metamorphoumai (Deacon) on Nov 16, 2005 at 15:37 UTC
`my $x = "klops"; my @orig = qw(apfel klops klops börne joghurt klops nüß); my (@have, @havenot); push @{(/$x/ ? \@have : \@havenot)}, $_ for @orig; print "@have\n@havenot\n";` [download] If you want, you can assign `@have` back to `@orig` at the end.	[reply] [d/l] [select]
Re: another elegance contest by l.frankline (Hermit) on Nov 16, 2005 at 12:40 UTC
Hi, Its my idea.... `$i=0;` `$x="klops";` `@a=qw(apfel klops klops börne joghurt klops nüß);` `@new = ();` `for ($i=0;$i<=$#a;$i++)` `{` `if (grep/$x/,$a[$i])` `{` `push (@new,$a[$i]);` `delete ($a[$i]);` `}` `}` `print @a;` `print @new;` Thanx Franklin Don't put off till tomorrow, what you can do today.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: another elegance contest
by salva (Canon) on Nov 16, 2005 at 13:00 UTC

my $x = qr(klops);
my @a = qw(apfel klops klops börne joghurt klops nüß)
my @e;
@a = grep { $_ !~  $x or not push @e,  $_ } @a;
[download]

[reply]
[d/l]

Re^2: another elegance contest

by tos (Deacon) on Nov 16, 2005 at 15:42 UTC

that's a really fabulous solution. It's just the kind of consise perl-semantics i like so much. Unfortunatly i'm only rarly able to create such pretty code-jewels by myself.

I also tried approaches with 'grep' but the 'not'-trick would never have occurred to me.

Thank you brother, ;-)

regards, tos

Is simplicity best or simply the easiest Martin L. Gore

[reply]

Re: another elegance contest
by Eimi Metamorphoumai (Deacon) on Nov 16, 2005 at 15:37 UTC

my $x = "klops";
my @orig = qw(apfel klops klops börne joghurt klops nüß);

my (@have, @havenot);

push @{(/$x/ ? \@have : \@havenot)}, $_ for @orig;

print "@have\n@havenot\n";
[download]

@have

@orig

[reply]
[d/l]
[select]

Re: another elegance contest
by l.frankline (Hermit) on Nov 16, 2005 at 12:40 UTC

Hi,

Its my idea....

$i=0;

$x="klops";

@a=qw(apfel klops klops börne joghurt klops nüß);

@new = ();

for ($i=0;$i<=$#a;$i++)

{

if (grep/$x/,$a[$i])

{

push (@new,$a[$i]);

delete ($a[$i]);

}

print @a;

print @new;

Thanx
Franklin
Don't put off till tomorrow, what you can do today.

[reply]
[d/l]
[select]