Dotaz: Kalkulačka v perlu

[Jack Hokus]

Příloha:

• scitani.pl (457 bytů)

Ahoj,

trochu se učím perl. Jsem naprostý začátečník. Jako cíl jsem si zvolil vytvoření kalkulačky. Zatím se mi podařilo úspěšně sečíst dvě čísla.

Ale zatím se mi nepodařilo přijít na to, jak ošetřit situaci, kdy bude potřeba sečíst více čísel najednou.

Prošel jsem pár článků o perlu a první co mne napadlo bylo použít pole, ale přiznávám dobrovolně, nepochopil jsem to. Prošel jsem dost dalších návodů, ale spíš než cokoli jiného jsem z nich ještě zmatenější. Můžete mi prosím poradit? Doufám, že se zase chytím.

Petr

PS: kód je v příloze

---

---

Odpovědi

[wamba]

Třeba takhle:

!/usr/bin/perl -w
use strict;
use warnings;
use 5.010;

say
'Tento program má jediný účel, sečist  čísla. Prosím, zadej čísla a potom (CTRL-d)';

my $soucet;

while ( my $cislo = <> ) {
    chomp $cislo;
    say "Vložené číslo bylo $cislo";
    $soucet += $cislo;
}

say "Součet čísel  je $soucet";

[Jack Hokus]

Dobrý den,

dík za radu. Použít cyklus mne nenapadlo.

Dík moc

Petr

[tom]

perl -MList::Util -e 'print "Soucet: ", List::Util::sum(<>), "\n"'
1
2
3
4
Soucet: 10

[smazáno]

Hele, totalne off-topic, ale ... ucit se perl v roce 2012? Vzdyt perl je uz za zenitem.

[Kamil]

Pro některé typy úloh (zpracování textu, některé systémové skripty..) je perl stále tím nejlepším nástrojem. Jsou tu živé a zajímavé projekty (mě osobně velice zaujal třeba Moose nebo Mojolicious), je tu CPAN. Na unixových systémech je perl všudypřítomný. A kromě toho, někteří lidi v něm prostě (z různých důvodů) rádi programují a dávají mu přednost před konkurencí, která má být údajně víc IN.

[pepe_]

A co je mimo děravej Javy COOL teď ?

[Kit]

Řekl bych, že nejvíc cool bude teď asi Python. Ale Perl tu má stále své místo a ještě dlouho bude mít.

[Brilantní modř]

JavaScript, Ruby, Python, Java, PHP… Ale Perl je devátý nejpopulárnější jazyk na GitHub.com.

[Brilantní modř]

Kalkulačka v Perlu:

#!/usr/bin/perl
print("> ");
while (<>) {
    chomp();
    print(eval(), "\n> ");
}

A není třeba vytvářet něco složitějšího. Mimochodem: Perl je nejlepší jazyk, jen tak dál, pokračuj a uvidíš sám, jak si Perl oblíbíš. Nenech se zastrašit tím, že je údajně out, za zenitem nebo podobnými nesmysly.

[martin-ux]

caf,

podla mna zbytocne pouzivas "say", klasicke print/printf je stara dobra klasika. ostatne kvoli tomu si musel pouzit use 5.010 a tym si (podla mna zbytocne) specifikoval aka najnizsia verzia perlu musi byt. Moja verzia tvojho scitania:

#!/usr/bin/perl

use warnings;
use strict;

my $i = 0;
while (<>) {
        $i += $1 if (/(\d+)\n/);   # scitaj len vtedy, ak riadok je jedna az viac cifier + \n
}
print "total: $i\n";

@luv: <irony> tak urciteeee</irony>