Pokaż wyniki 1 do 8 z 8

Temat: Perl los

  1. #1
    Avatar Hardiel
    Hardiel jest offline Damian
    Zarejestrowany
    May 2008
    Skąd
    Kielce
    Postów
    121

    Domyślnie Perl los

    Mam pytanie. Czy w perl istnieje mozliwosc ze jesli w pliku tekstowym dam 5 roznych wyrazow to kod wyciagnie 1 losowy i go zwróci?
    Pozdrawiam

  2. #2
    Zarejestrowany
    Jun 2006
    Skąd
    rand(.eu)
    Postów
    8,748

    Domyślnie

    Wczytac plik do tablicy, $#tablica zawiera ilosc elementow, uzyc tego jako argumentu rand() i wynik zaokraglic do calosci... i bedzie ok

    Kod:
    open (FH, 'plik.txt');
    chomp(@tablica = <FH>);
    close (FH);
    print "Wyraz to: ", $tablica[int(rand($#tablica))], "\n";
    nie sprawdzalem, pisze 'na pale' hihi
    ctrl-alt-del.cc - soft reset site for IT admins and other staff :-)

  3. #3
    Avatar Hardiel
    Hardiel jest offline Damian
    Zarejestrowany
    May 2008
    Skąd
    Kielce
    Postów
    121

    Domyślnie

    Powiem szczerze ze az na takim poziomie nie jestem bo perla ucze sie od tygodnia mógłbys mi to jakos na kodzie pokazac byłbym bardzo wdzieczny

  4. #4
    Avatar Hardiel
    Hardiel jest offline Damian
    Zarejestrowany
    May 2008
    Skąd
    Kielce
    Postów
    121

    Domyślnie

    Zadnego błedu nie wyrzuca, ale pomimo tego ze w pliku tekstowym mam 5 wyrazow wynik jest nastepujacy:

    Wyraz to: (I pustka)

    Coś jest nie tak :P

  5. #5
    Zarejestrowany
    Jun 2006
    Skąd
    rand(.eu)
    Postów
    8,748

    Domyślnie

    Kod:
    $./test.pl 
    Wyraz to: slowo 5
    $./test.pl 
    Wyraz to: slowo 1
    $./test.pl 
    Wyraz to: slowo 4
    $./test.pl 
    Wyraz to: slowo 2
    $./test.pl 
    Wyraz to: slowo 2
    $./test.pl 
    Wyraz to: slowo 2
    $./test.pl 
    Wyraz to: slowo 4
    $./test.pl 
    Wyraz to: slowo 6
    $./test.pl 
    Wyraz to: slowo 4
    copy & paste - u mnie dziala
    ctrl-alt-del.cc - soft reset site for IT admins and other staff :-)

  6. #6
    Avatar Hardiel
    Hardiel jest offline Damian
    Zarejestrowany
    May 2008
    Skąd
    Kielce
    Postów
    121

    Domyślnie

    Hmm sam zobacz na screenie ze jest wszystko ok -> (bitmapa zeby bylo ladnie i wyraznie) http://www.speedyshare.com/728467199.html

    p.s Moze to dlatego ze Ty masz perl a ja activeperl na windows?

  7. #7
    Zarejestrowany
    Jun 2006
    Skąd
    rand(.eu)
    Postów
    8,748

    Domyślnie

    C:\>perl -v

    This is perl, v5.8.0 built for MSWin32-x86-multi-thread
    (with 1 registered patch, see perl -V for more detail)

    Copyright 1987-2002, Larry Wall

    Binary build 806 provided by ActiveState Corp. http://www.ActiveState.com
    Built 00:45:44 Mar 31 2003
    aby bylo nieco latwiej zmienilem ostatnia linie

    Kod:
    for (1..10) {
      print "Wyraz to: ", $tablica[int(rand($#tablica))], "\n";
    }
    i wynik mam taki

    C:\>test.pl
    Wyraz to: sl4
    Wyraz to: sl4
    Wyraz to: sl1
    Wyraz to: sl9
    Wyraz to: sl3
    Wyraz to: sl4
    Wyraz to: sl8
    Wyraz to: sl9
    Wyraz to: sl6
    Wyraz to: sl4
    ctrl-alt-del.cc - soft reset site for IT admins and other staff :-)

  8. #8
    Avatar Hardiel
    Hardiel jest offline Damian
    Zarejestrowany
    May 2008
    Skąd
    Kielce
    Postów
    121

    Domyślnie

    Przeniosłem ten 1 skrypt na Linuxa jest ok!
    Oczywiscie troszke sobie do irssi musialem przerobic jest ok!
    Dziekuje i pozdrawiam Na Windowsie nie działał na Linuxie jest ok

Podobne wątki

  1. [Perl] Kurs Perl - cz.1 - wprowadzenie i podstawy
    By TQM in forum Perl/Python/TCL/Prolog
    Odpowiedzi: 22
    Autor: 10-27-2014, 00:50
  2. Odpowiedzi: 18
    Autor: 07-14-2009, 11:55
  3. Timer perl
    By Hardiel in forum Perl/Python/TCL/Prolog
    Odpowiedzi: 2
    Autor: 05-22-2008, 11:51
  4. Perl ftp
    By Hardiel in forum Perl/Python/TCL/Prolog
    Odpowiedzi: 14
    Autor: 05-21-2008, 14:19
  5. Odpowiedzi: 31
    Autor: 05-20-2008, 17:01

Zasady Postowania

  • Nie możesz zakładać nowych tematów
  • Nie możesz pisać wiadomości
  • Nie możesz dodawać załączników
  • Nie możesz edytować swoich postów
  •  
Subskrybuj

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52