Pokaż wyniki 1 do 2 z 2

Temat: [PERL] Skrypt zmieniający słowo na s*ł*o*w*o

  1. #1
    Zarejestrowany
    Dec 2012
    Postów
    7

    Domyślnie [PERL] Skrypt zmieniający słowo na s*ł*o*w*o

    Witam ponownie, mam takie zadanie. Ale nie chce mi zadziałać mój program. Na pewno coś przekombinowałem. Proszę o pomoc.

    Napisz program, który umieści pomiędzy kolejnymi znakami łańcucha
    gwiazdki. Na przykład, jeśli łańcuch znaków miał postać dysk, to po
    przekształceniu ma przyjąć postać: d*y*s*k. Łańcuch poddawany
    modyfikacji ma być podawany w trakcie działania programu. Łańcuch
    zmodyfikowany należy wyświetlić na ekranie monitora.

    Kod:
    #!/usr/local/bin/perl
    print "Podaj ciąg znaków: ";
    $string = <STDIN>;
    chomp $string;
    
    
    @lista = split('\s|\S+', $string);
    $string = join('*', @lista);
    
    
    print "$string\n";

  2. #2
    Zarejestrowany
    Dec 2012
    Postów
    7

    Domyślnie

    Poradziłem sobie.

    Kod:
    #!/usr/local/bin/perl
    print "Podaj ciąg znaków: ";
    $string = <STDIN>;
    chomp $string;
    
    
    @lista = split(//, $string);
    $string = join('*', @lista);
    
    
    print "$string\n";

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