Auffüllen eines Arrays mit vielen gleichen Werten in schön...? (gelöst) (Allgemeines zu Perl)

[thread]16411[/thread]

Auffüllen eines Arrays mit vielen gleichen Werten in schön...? [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+6 replies
Sven_123

2011-06-14 13:16
User since
2010-06-01
120 Artikel
BenutzerIn
Ich möchte einen Array mit unterschiedlich vielen, aber gleichen Werten befüllen. Hört sich ziemlich simpel an, aber an kurzen, d.h. Schleifen umgehenden Methoden ist mir nur folgendes eingefallen, was doch ein ziemlicher Umweg ist...
Code (perl): (dl )

1 2

$y = 5; @x = split(/\s+/,'a 'x$y);
- +3 replies
- dgw
  
  2011-06-14 13:20
  User since
  2010-08-16
  27 Artikel
  BenutzerIn
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  use strict ; use Data::Dumper ; my $was = '=' ; my $wieoft = 10 ; my @array_was_wieoft = ( ( $was ) x $wieoft ) ; print Dumper( \@array_was_wieoft ) ;
  
  Ganz einfach.
  Daniel
  Last edited: 2011-06-14 13:21:59 +0200 (CEST)
  - +2 replies
  - Sven_123
    
    2011-06-14 13:40
    
    User since
    2010-06-01
    120 Artikel
    BenutzerIn
    
    Ah, Danke - hatte bei meinem Versuch dazu keine Klammern benutzt. Das ganze wurd zu einem String zusammengefügt und ich dachte, dann wird "x" wohl einfach mehrere .= ersetzen.
    - Taulmarill
      
      2011-06-14 13:45
      
      User since
      2004-02-19
      1750 Artikel
      BenutzerIn
      
      Wichtig sind hier vor allem die Klammern um das $was, diese setzen den Opperator "x" in den s.g. Listenkontext. Siehe http://perldoc.perl.org/perlop.html#Multiplicative-Operators
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
- gelöscht 2011-06-14 13:28
- pq
  
  2011-06-14 13:47
  User since
  2003-08-04
  12209 Artikel
  Admin1
  sowas?
  
  Code (perl): (dl )
  
  my @array = ('foobar') x 23;
  
  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: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2011-06-14 13:16.