DarkenCZ

[Habu]

Čau Darkene, zdraví tě DIOD z nyxu, nedávno jsme tam o absinthe žvanili Mimochodem, jsem taky z oboru, dělám administraci UNIXových serverů.

Ha, na Nyxu jsem před dávnými lety byl, ale protože jsem tam přestal pravidelně docházet, tak mi byl účet Habu smazán. Když jsem vypustil do světa své stránky o absinthu, tak v referencích se mi nyx.cz pořád motal, takže jsem si podal žádost o zpětné členství s odůvodněním, že bych se rád podíval, co se o absinthu na nyxu píše. Bohužel jsem nebyl "přijat", ale že po zaplacení 80,- korun bych se mohl registrovat. Trošku mě to odradilo, takže jsem nezaplatil a vybodl se na ně.

Když už tady je "insider", tak honem toho využít! Jak vypadá nyxácká diskuze na téma absinthe?

[DarkenCZ]

Čau Darkene, zdraví tě DIOD z nyxu, nedávno jsme tam o absinthe žvanili Mimochodem, jsem taky z oboru, dělám administraci UNIXových serverů.

Ha, na Nyxu jsem před dávnými lety byl, ale protože jsem tam přestal pravidelně docházet, tak mi byl účet Habu smazán. Když jsem vypustil do světa své stránky o absinthu, tak v referencích se mi nyx.cz pořád motal, takže jsem si podal žádost o zpětné členství s odůvodněním, že bych se rád podíval, co se o absinthu na nyxu píše. Bohužel jsem nebyl "přijat", ale že po zaplacení 80,- korun bych se mohl registrovat. Trošku mě to odradilo, takže jsem nezaplatil a vybodl se na ně.

Když už tady je "insider", tak honem toho využít! Jak vypadá nyxácká diskuze na téma absinthe?

Dej mi mail a můžu ti poslat pozvánku. Dle mě je to bída, ale to poznáš sám

[DarkenCZ]

hehe tak kdyby ste nahodou meli napad...tak:
Napište skript, který ve smyčce čte číselné hodnoty, které mu zadává uživatel na standardním vstupu a po zadání příkazu „quit“ vypíše součet všech hodnot a skončí. Pokud uživatel vloží něco jiného než číslo nebo příkaz quit vypíše varovnou hlášku. Pokud uživatel stiskne CTRL-C (nebo pošle INT signál) skript zareaguje stejně jako by dostal příkaz quit, tedy vypíše součet a skončí. Skript bude akceptovat pouze celočíselné kladné hodnoty v desítkové soustavě.

A v čem je propblém ?

[Absinther]

hehe tak kdyby ste nahodou meli napad...tak:
Napište skript, který ve smyčce čte číselné hodnoty, které mu zadává uživatel na standardním vstupu a po zadání příkazu „quit“ vypíše součet všech hodnot a skončí. Pokud uživatel vloží něco jiného než číslo nebo příkaz quit vypíše varovnou hlášku. Pokud uživatel stiskne CTRL-C (nebo pošle INT signál) skript zareaguje stejně jako by dostal příkaz quit, tedy vypíše součet a skončí. Skript bude akceptovat pouze celočíselné kladné hodnoty v desítkové soustavě.

Hmm zajímavé-vždy si rád počtu nějáký pěkný text v čínštině

[Habu]

hehe tak kdyby ste nahodou meli napad...tak:
Napište skript, který ve smyčce čte číselné hodnoty, které mu zadává uživatel na standardním vstupu a po zadání příkazu „quit“ vypíše součet všech hodnot a skončí. Pokud uživatel vloží něco jiného než číslo nebo příkaz quit vypíše varovnou hlášku. Pokud uživatel stiskne CTRL-C (nebo pošle INT signál) skript zareaguje stejně jako by dostal příkaz quit, tedy vypíše součet a skončí. Skript bude akceptovat pouze celočíselné kladné hodnoty v desítkové soustavě.

Hmm zajímavé-vždy si rád počtu nějáký pěkný text v čínštině

...nahlas jsem se zasmál.

Dej mi mail a můžu ti poslat pozvánku. Dle mě je to bída, ale to poznáš sám

habu@email.cz

[kamamura]

hehe tak kdyby ste nahodou meli napad...tak:
Napište skript, který ve smyčce čte číselné hodnoty, které mu zadává uživatel na standardním vstupu a po zadání příkazu „quit“ vypíše součet všech hodnot a skončí. Pokud uživatel vloží něco jiného než číslo nebo příkaz quit vypíše varovnou hlášku. Pokud uživatel stiskne CTRL-C (nebo pošle INT signál) skript zareaguje stejně jako by dostal příkaz quit, tedy vypíše součet a skončí. Skript bude akceptovat pouze celočíselné kladné hodnoty v desítkové soustavě.

Kód: Vybrat vše

#!/usr/bin/perl -w

use strict;

my $sum = 0;

while ( my $in = <STDIN> ) {
  chomp( $in );
  $SIG{INT} = 'ende';
  $in ne 'quit' or &ende;
  if ( $in =~ /^\d+$/ ) {
    $sum += $in;
  } else {
    print "Neplatny vstup!\n";
  }
}

sub ende {
  print "Soucet zadanych cisel je $sum\n";
  exit 0;
}

Jsem na Perl zvyklý, kdybys to chtěl v něčem jiném, nebo nějak upravit, či vysvětlit, dej vědět. IMO to v této podobě odpovídá zadání.

[DarkenCZ]

Jsem na Perl zvyklý, kdybys to chtěl v něčem jiném, nebo nějak upravit, či vysvětlit, dej vědět. IMO to v této podobě odpovídá zadání.

To jsi koukám suterén, když píšeš v perlu To mi, mladá RUBající generace...

[davar]

Jsem na Perl zvyklý, kdybys to chtěl v něčem jiném, nebo nějak upravit, či vysvětlit, dej vědět. IMO to v této podobě odpovídá zadání.

To jsi koukám suterén, když píšeš v perlu To mi, mladá RUBající generace...

Koukam, ze jsem mezi mistnimi 'radici nul a jednicek' (cti: programatory) pekna vykopavka, skoncil jsem u C a Win32 API.... ovsem kdyz by vznikl pozadavek, muzu take pripadne poslouzit

[Dworzaaa]

Jsem na Perl zvyklý, kdybys to chtěl v něčem jiném, nebo nějak upravit, či vysvětlit, dej vědět. IMO to v této podobě odpovídá zadání.

Mno my pisem skripty jako bandu za sebou nahazenejch prikazu do shellu...pearl sem nikdy nevidel, ale ja uz si to z toho nak preberu

[kamamura]

Kód: Vybrat vše

#!/bin/bash

ende () {
  echo "Soucet zadanych cisel je $sum";
  exit 0
}

sum=0
trap "ende" SIGINT

while true
do
  read in
  if [[ "$in" = "quit" ]]
  then
    ende
  fi

  if [[ $in =~ [[:digit:]] ]]
  then
    sum=$(( $sum+$in ))
  else
    echo "Neplatny vstup!"
  fi

done

Okay, tady to máš ještě v bashi.