Perl
Z wiki linux-user
m (→Zmienna leksykalna my) |
m (→Pobieranie danych ze standardowego wejścia) |
||
| Linia 155: | Linia 155: | ||
#! /usr/bin/perl | #! /usr/bin/perl | ||
print "Podaj liczbe od 1 do 9:"; | print "Podaj liczbe od 1 do 9:"; | ||
| − | $liczba_usera = ; | + | $liczba_usera = <STDIN>; |
| + | chomp($liczba_usera); | ||
$automat = '5'; | $automat = '5'; | ||
| − | print "Liczba uzytkownika = $liczba_usera"; | + | print "Liczba uzytkownika = $liczba_usera \n"; |
print "Liczba automatu = $automat\n\n"; | print "Liczba automatu = $automat\n\n"; | ||
if ($automat == $liczba_usera) | if ($automat == $liczba_usera) | ||
| − | { | + | { |
print "Zgadłeś liczbę automatu $automat \n"; | print "Zgadłeś liczbę automatu $automat \n"; | ||
} | } | ||
| Linia 174: | Linia 175: | ||
#! /usr/bin/perl | #! /usr/bin/perl | ||
print "Podaj login:"; | print "Podaj login:"; | ||
| − | $user = | + | $user = <STDIN>; |
| − | + | ||
| − | + | ||
| − | + | ||
chomp($user); | chomp($user); | ||
| + | $u = 'root'; | ||
| + | print "Nazwa usera = $user \n"; | ||
| + | print "Nazwa użytkownika root = $u\n\n"; | ||
if ($u eq $user) | if ($u eq $user) | ||
{ | { | ||
