Teil eines Arrays mit gleichen Wert belegen (gelöst) (Allgemeines zu Perl)

[thread]17986[/thread]

Teil eines Arrays mit gleichen Wert belegen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+4 replies
ingobulla

2012-12-12 11:11
User since
2008-08-08
20 Artikel
BenutzerIn
Hallo,

ich würde gerne die Positionen $first_pos bis $last_pos eines Arrays $ret mit dem Wert 1 belegen. Ich habe das erst mal mit einer for-Schleife gemacht:
Code (perl): (dl )

1 2 3

for (my $i = $first_pos; $i <= $last_pos; ++$i) { $ret[$i] = 1; }
Mein kürzerer Versuch sah so aus:
Code (perl): (dl )

$ret[$first_pos..$last_pos] = ( ( ("1") x ($last_pos - $first_pos + 1) ) );
Da passiert dann aber nicht das, was ich möchte. Kann mir jemand sagen, wie man das richtig macht?
- Linuxer
  
  2012-12-12 11:19
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Du willst mehrere Array-Elemente verändern, da musst Du @ verwenden...
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  my @array = (0)x10; my $first = 2; my $last = 5; # Array Slice; beachte das @ am Anfang! @array[$first..$last] = (1) x ( $last - $first +1 ); print "@array";
  
  liefert
  
  Code: (dl )
  
  0 0 1 1 1 1 0 0 0 0
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +2 replies
- Muffi
  
  2012-12-12 11:47
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Also wenns nur um Zeichenanzahl geht ist das auch relativ kurz
  
  Code (perl): (dl )
  
  $ret[$_] = 1 for ($first_pos..$last_pos);
  
  [EDIT] Ich finds sogar schneller lesbar als einen Slice.
  Last edited: 2012-12-12 11:51:10 +0100 (CET)
  1 + 1 = 10
  - betterworld
    
    2012-12-12 19:24
    User since
    2003-08-21
    2614 Artikel
    ModeratorIn
    
    Ich teste es jetzt nicht, aber die Mischung aus Muffi und Linuxer sollte auch möglich sein und ist vermutlich am kürzesten:
    
    Code (perl): (dl )
    
    $_ = 1 for @array[$first .. $last];
    
    Edit: ok, es ist gleichlang wie Muffis, abgesehen von den runden Klammern
    Last edited: 2012-12-12 19:30:12 +0100 (CET)
    Lieblingsmodule: IPC::System::Simple, Path::Class

View all threads created 2012-12-12 11:11.