Zwei "Skalare" miteinander verbinden? (Allgemeines zu Perl)

[thread]18606[/thread]

Zwei "Skalare" miteinander verbinden?

Tags: perl5 Array verbinden Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+16 replies
Saugwels98

2013-09-18 19:54
User since
2013-09-18
4 Artikel
BenutzerIn
Hey Leute(:

Ich bin noch neu auf dem Perl-Gebiet und habe eine Frage (was auch anderes xD)

Der Skript soll so funktionieren, dass aus dem Array @Vocal und @Konsonant eine Silbe zusammengesetzt werden. Das ganze soll zufällig funktionieren und die "fertige" Silbe soll in ein Array namens @Silbe abgespeichert werden.
Code: (dl )

1 2 3 4 5

@Vocal = "a,e,i,o,u"; @konsonant = "B,C,D,F,G,H,J,K,L,M,N,P,Q,R,S,T,V,W,X,Z "; $zufalVoc = int(rand(5)); $zufalKon = int(rand(20));
Doch wie kann ich die beiden Ergebnisse Verbinden? Ich hab erstmal mit einer Skalaren variable und einer Springverkettung versucht:
Code: (dl )

$Silbe = "$konsonant[$zufalKon]".$Vocal[$zufalVoc];
Wie gedacht funktioniert das nicht/: Könnt ihr mir helfen?

Vielen Dank :D
Paul
- +2 replies
- bianca
  
  2013-09-18 19:59
  User since
  2009-09-13
  6977 Artikel
  BenutzerIn
  Hallo Paul, falls dich auch Lösungen interessieren, die es auf der Welt schon gibt, empfehle ich das Modul String::Random
  
  Code (perl): (dl )
  
  1 2
  
  use String::Random; my $pw = String::Random::random_string('10101022',[split //,uc 'aei'],[split //,uc 'bdfghklmnprstwxz'],[split //,'23456789']);
  
  Das dürfte ziemlich genau das tun, was du dir vermutlich vorstellst, nämlich aussprechbare Zufallswörter zu erzeugen.
  Mein Beispiel erzeugt sogar Wörter mit Ziffern, als Erstpasswörter nutzbar.
  10 print "Hallo"
  20 goto 10
  - Saugwels98
    
    2013-09-18 20:17
    
    User since
    2013-09-18
    4 Artikel
    BenutzerIn
    
    Vielen Dank!:D
- +2 replies
- pq
  
  2013-09-18 20:05
  User since
  2003-08-04
  12208 Artikel
  Admin1
  die lösung ist ganz einfach, @Vocal und @konsonant sind nicht die arrays, die du dir vorstellst. sie enthalten nämlich jeweils nur ein element, einen string.
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  @Vocal = ("a","e","i","o","u"); # oder, leichter zu lesen: @Vocal = qw/ a e i o u /; # entsprechend: @konsonant = qw/ B C D F G H J K L M N P Q R S T V W X Z /;
  
  ich empfehle dir "Modern Perl - The Book", u.a. zu finden auf http://perl-tutorial.org/
  da bekommst du die besten grundlagen von perl beigebracht.
  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
  - Saugwels98
    
    2013-09-18 20:17
    
    User since
    2013-09-18
    4 Artikel
    BenutzerIn
    
    Vielen Vielen Dank !! :D War genau die Lösung, die ich gesucht habe, yay xD
- +11 replies
- Gast wer
  
  2013-09-18 20:17
  Code (perl): (dl )
  
  1 2 3
  
  my @Vocal = qw(a e i o u); my @Konsonant = ('B' .. 'Z'); my $Silbe = $Konsonant[rand(@Konsonant)].$Vocal[rand(@Vocal)];
  
  Last edited: 2013-09-18 21:24:41 +0200 (CEST)
  - +10 replies
  - pq
    
    2013-09-18 21:25
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    da sind dann in @Konsonant ein paar vokale zu viel drin ;-)
    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
    - +9 replies
    - Muffi
      
      2013-09-19 08:33
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Code (perl): (dl )
      
      my @Konsonant = grep { !(lc $_ ~~ @Vocal) } ('A' .. 'Z');
      
      ;)
      Wobei mir aufgefallen ist, dass es gar keinen negierten Smart Match gibt?
      
      [EDIT] Hab ich das geträumt oder gabs nicht irgendwo in einem Modul eine (random)pick-Funktion in Perl? Ich finds nicht.
      Last edited: 2013-09-19 08:43:10 +0200 (CEST)
      1 + 1 = 10
      - +5 replies
      - clms
        
        2013-09-19 11:13
        
        User since
        2010-08-29
        373 Artikel
        BenutzerIn
        
        2013-09-19T06:33:18 Muffi
        Hab ich das geträumt oder gabs nicht irgendwo in einem Modul eine (random)pick-Funktion in Perl? Ich finds nicht.
        
        IIRC gibt es die in Perl6.
        
        Für Perl(5) kann man List::Util und (shuffle @list)[0] nehmen.
        
        +2 replies
        
        lichtkind
        
        2013-09-20 13:05
        
        User since
        2004-03-22
        5679 Artikel
        ModeratorIn + EditorIn
        
        ja pick ist ein Perl 6 befehl. geht mit und ohne zurücklegen.
        Tutorien in der Wiki, mein zeug:
        kephra, baumhaus, garten, gezwitscher
        
        Es beginnt immer mit einer Entscheidung.
        
        Muffi
        
        2013-09-20 13:10
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Danke euch.
        Ja, kann sein, dass ichs da mal gelesen hab.
        1 + 1 = 10
        
        pq
        
        2013-09-20 13:28
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2013-09-19T09:13:17 clms
        Für Perl(5) kann man List::Util und (shuffle @list)[0] nehmen.
        
        aber wozu shuffle? $array[ rand @array ] tut es nicht? versteh ich jetzt grad nicht. muffi hat auch nicht drauf geantwortet.
        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
        
        lichtkind
        
        2013-09-20 18:17
        
        User since
        2004-03-22
        5679 Artikel
        ModeratorIn + EditorIn
        
        pick und roll siehe: http://perlcabal.org/syn/S32/Containers.html#Array
        Tutorien in der Wiki, mein zeug:
        kephra, baumhaus, garten, gezwitscher
        
        Es beginnt immer mit einer Entscheidung.
      - +2 replies
      - pq
        
        2013-09-19 12:52
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        ich hab immer noch was auszusetzen: entgegen dem originalcode enthält @Konsonant nun das Y.
        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
        
        Muffi
        
        2013-09-19 12:54
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Adlerauge
        
        [EDIT]
        
        Code (perl): (dl )
        
        my @Konsonant = grep { !(lc $_ ~~ [@Vocal, 'y']) } ('A' .. 'Z');
        
        Last edited: 2013-09-19 13:07:23 +0200 (CEST)
        1 + 1 = 10
      - pq
        
        2013-09-19 12:54
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2013-09-19T06:33:18 Muffi
        [EDIT] Hab ich das geträumt oder gabs nicht irgendwo in einem Modul eine (random)pick-Funktion in Perl? Ich finds nicht.
        
        meinst du sowas?
        my $pick = $array[ rand @array ];
        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 2013-09-18 19:54.