abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×
eParkomat, startup z ČR, postoupil mezi finalisty evropského akcelerátoru ChallengeUp!
Robot na pivo mu otevřel dveře k opravdovému byznysu
Internet věcí: Propojený svět? Už se to blíží...
dnes 06:00 | Zajímavý software

OMG! Ubuntu! představuje emulátor terminálu Hyper (GitHub) postavený na webových technologiích (HTML, CSS a JavaScript). V diskusi k článku je zmíněn podobný emulátor terminálu Black Screen. Hyper i Black Screen používají framework Electron, stejně jako editor Atom nebo vývojové prostředí Visual Studio Code.

Ladislav Hagara | Komentářů: 9
dnes 06:00 | Zajímavý článek

I letos vychází řada ajťáckých adventních kalendářů. QEMU Advent Calendar 2016 přináší každý den nový obraz disku pro QEMU. Programátoři se mohou potrápit při řešení úloh z kalendáře Advent of Code 2016. Kalendáře Perl Advent Calendar 2016 a Perl 6 Advent Calendar přinášejí každý den zajímavé informace o programovacím jazyce Perl. Stranou nezůstává ani programovací jazyk Go.

Ladislav Hagara | Komentářů: 4
3.12. 16:24 | Nová verze

Byla vydána Mageia 5.1. Jedná se o první opravné vydání verze 5, jež vyšla v červnu loňského roku (zprávička). Uživatelům verze 5 nepřináší opravné vydání nic nového, samozřejmě pokud pravidelně aktualizují. Vydání obsahuje všechny aktualizace za posledního téměř půldruhého roku. Mageia 5.1 obsahuje LibreOffice 4.4.7, Linux 4.4.32, KDE4 4.14.5 nebo GNOME 3.14.3.

Ladislav Hagara | Komentářů: 10
3.12. 13:42 | Pozvánky

V Praze probíhá konference Internet a Technologie 16.2, volné pokračování jarní konference sdružení CZ.NIC. Konferenci lze sledovat online na YouTube. K dispozici je také archiv předchozích konferencí.

Ladislav Hagara | Komentářů: 0
2.12. 22:44 | Komunita

Joinup informuje, že Mnichov používá open source groupware Kolab. V srpnu byl dokončen dvouletý přechod na toto řešení. V provozu je asi 60 000 poštovních schránek. Nejenom Kolabu se věnoval Georg Greve ve své přednášce Open Source: the future for the European institutions (SlideShare) na konferenci DIGITEC 2016, jež proběhla v úterý 29. listopadu v Bruselu. Videozáznam přednášek z hlavního sálu je ke zhlédnutí na Livestreamu.

Ladislav Hagara | Komentářů: 25
2.12. 15:30 | Zajímavý projekt

Společnost Jolla oznámila v příspěvku Case study: Sailfish Watch na svém blogu, že naportovala Sailfish OS na chytré hodinky. Využila a inspirovala se otevřeným operačním systémem pro chytré hodinky AsteroidOS. Použita je knihovna libhybris. Ukázka ovládání hodinek na YouTube.

Ladislav Hagara | Komentářů: 8
2.12. 14:15 | Nová verze

Byla vydána verze 7.1.0 skriptovacího jazyka PHP používaného zejména k vývoji dynamických webových stránek. Jedná se o první stabilní verzi nejnovější větvě 7.1. Přehled novinek v dokumentaci. Podrobnosti v ChangeLogu. K dispozici je také příručka pro přechod z PHP 7.0.x na PHP 7.1.x.

Ladislav Hagara | Komentářů: 4
2.12. 12:55 | Nová verze

Google Chrome 55 byl prohlášen za stabilní. Nejnovější stabilní verze 55.0.2883.75 tohoto webového prohlížeče přináší řadu oprav a vylepšení (YouTube). Opraveno bylo také 36 bezpečnostních chyb. Mariusz Mlynski si například vydělal 22 500 dolarů za 3 nahlášené chyby (Universal XSS in Blink).

Ladislav Hagara | Komentářů: 4
2.12. 11:55 | Pozvánky

Máte rádi svobodný software a hardware nebo se o nich chcete něco dozvědět? Přijďte na 135. sraz spolku OpenAlt, který se bude konat ve čtvrtek 8. prosince od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Sraz bude tentokrát tématický. Bude retro! K vidění budou přístroje jako Psion 5mx nebo Palm Z22. Ze svobodného hardwaru pak Openmoko nebo čtečka WikiReader. Přijďte se i vy pochlubit svými legendami, nebo alespoň na pivo. Moderní hardware má vstup samozřejmě také povolen.

xkucf03 | Komentářů: 1
2.12. 00:10 | Nová verze

Byla vydána verze 3.2 svobodného systému pro detekci a prevenci průniků a monitorování bezpečnosti počítačových sítí Suricata. Z novinek lze zmínit například podporu protokolů DNP3 a CIP/ENIP, vylepšenou podporu TLS a samozřejmě také aktualizovanou dokumentaci.

Ladislav Hagara | Komentářů: 0
Kolik máte dat ve svém domovském adresáři na svém primárním osobním počítači?
 (32%)
 (24%)
 (29%)
 (7%)
 (5%)
 (3%)
Celkem 772 hlasů
 Komentářů: 50, poslední 29.11. 15:50
Rozcestník
Reklama

Dotaz: Kalkulačka v perlu

22.8.2012 12:54 Jack Hokus | skóre: 31 | blog: LostHeaven
Kalkulačka v perlu
Přečteno: 395×
Příloha:
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
http://www.jackhokus.cz/

Řešení dotazu:


Odpovědi

wamba avatar 22.8.2012 15:14 wamba | skóre: 37 | blog: wamba
Rozbalit Rozbalit vše Re: Kalkulačka v perlu
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";
This would have been so hard to fix when you don't know that there is in fact an easy fix.
22.8.2012 15:29 Jack Hokus | skóre: 31 | blog: LostHeaven
Rozbalit Rozbalit vše Re: Kalkulačka v perlu
Dobrý den,

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

Dík moc

Petr
http://www.jackhokus.cz/
12.10.2012 21:45 tom
Rozbalit Rozbalit vše Re: Kalkulačka v perlu
perl -MList::Util -e 'print "Soucet: ", List::Util::sum(<>), "\n"'
1
2
3
4
Soucet: 10
1.9.2012 14:54 luv | skóre: 16 | blog: luv
Rozbalit Rozbalit vše Re: Kalkulačka v perlu
Hele, totalne off-topic, ale ... ucit se perl v roce 2012? Vzdyt perl je uz za zenitem.
java? shapes and colors ... with an angle grinder!
12.10.2012 11:41 Kamil
Rozbalit Rozbalit vše Re: Kalkulačka v perlu
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_ avatar 12.10.2012 16:34 pepe_ | skóre: 46
Rozbalit Rozbalit vše Re: Kalkulačka v perlu

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

13.10.2012 11:00 Kit
Rozbalit Rozbalit vše Re: Kalkulačka v perlu
Ř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ř avatar 13.10.2012 15:36 Brilantní modř | skóre: 4
Rozbalit Rozbalit vše Re: Kalkulačka v perlu

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

Brilantní modř avatar 12.10.2012 18:24 Brilantní modř | skóre: 4
Rozbalit Rozbalit vše Re: Kalkulačka v perlu

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 avatar 13.10.2012 10:30 martin-ux | skóre: 18 | Bratislava
Rozbalit Rozbalit vše Re: Kalkulačka v perlu
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>
..when you do things right, people won't be sure you've done anything at all..

Založit nové vláknoNahoru

Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

ISSN 1214-1267   www.czech-server.cz
© 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.