Frage doppelte einträge löschen in array löschen (Allgemeines zu Perl)

[thread]12478[/thread]

Frage doppelte einträge löschen in array löschen

Leser: 1

Gast Gast

2008-09-11 15:26

Hallo
habe ein kleines sub geschrieben,welches eine array und einen string erhält und überprüft ob der string schon im array vorhanden ist. leider funktioniert das nicht.
ich finde den fehler einfach nicht :(

Code: (dl )

 .

sub doppelte
{
@array=shift;
$liste=shift;
$laenge=shift;

$sperre=5;
foreach $i (0..$laenge)
{

$t=@array[$i];
if ($t eq $liste)
{
$sperre=1;
print "sperre1 \n";
return $sperre;
}
}
return $sperre;
}

MFg

Kronecker

Gast Gast

2008-09-11 15:56

benutze doch mal
use strict;
use warning;

und erkundige dich vielleicht mal wie man auf arrayelemente richtig zugreift.

Grüße
LanX

renee

2008-09-11 16:01

User since
2003-08-04
14371 Artikel
ModeratorIn

Gast+2008-09-11 13:26:33--
leider funktioniert das nicht.
ich finde den fehler einfach nicht :(

Das heißt?

Was ist das gewünschte und was das wirkliche Ergebnis? Mit welchen Daten?

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

bytebrain

2008-09-11 16:14

User since
2008-07-21
20 Artikel
BenutzerIn
[default_avatar]

Code: (dl )

$t=@array[$i];

Das geht so nicht... Müsste $t = $array[$i] sein...

bytebrain

LanX-

2008-09-11 16:26

User since
2008-07-15
1000 Artikel
BenutzerIn

user image

bytebrain+2008-09-11 14:14:03--
Das geht so nicht... Müsste $t = $array[$i] sein...

ja und soweit ich diesen Code ohne Einrückungen und Highlighting lesen kann macht er nichts anderes als das grep -Kommando!

me and my writeups

Gast Gast

2008-09-11 16:44

Code (perl): (dl )

@array=shift;

das geht so nicht!

Code (perl): (dl )

my @array=@_;

LanX-

2008-09-11 16:58

User since
2008-07-15
1000 Artikel
BenutzerIn

user image

ja du hast es lokalisiert, aber dann geht der restliche Code [*] nicht und OP müsste sich mit Array-Referenzen auseinandersetzen. lieber perldoc -f grep anschauen! [*] NACHTRAG: es sei denn er übergibt das Array als letzten Parameter, aber byValue statt byRefrence ist das doch echt Murks.

me and my writeups

Gast Gast

2008-09-12 00:07

Code (perl): (dl )

sub doppelte
{
  @array=shift;
  $liste=shift;
  $laenge=shift;

  $sperre=5;
  foreach $i (0..$laenge)
  {

    $t=@array[$i];
    if ($t eq $liste)
    {
      $sperre=1;
      print "sperre1 \n";
      return $sperre;
    }
  }
  return $sperre;
}

gute güte...
entweder:

Code (perl): (dl )

sub doppelte
{
  my $liste=shift;
  my $laenge=shift;
  my @array=@_;

  for my $val (@array[0..$laenge]) {
    return 1 if ($val eq $liste);
  }
  return 5;
}

oder

Code (perl): (dl )

sub doppelte
{
  my $liste=shift;
  my $laenge=shift;
  return (grep{$_ eq $liste}(@_[0..$laenge]))?1:5;
}

View all threads created 2008-09-11 15:26.