sk2euro shell utilita na rôzne spôsoby...

16.7.2008 21:01 | Přečteno: 1572× | 6 | poslední úprava: 18.7.2008 11:08

Kedže pre Slovenskú republiku bol stanovený 8.7.2008 konverzný kurz pre zavedenie eura k 1.1.2009 (1€=30,126 SKK), začinam si (chcem/nechcem) na euro zvykať. Snažím sa všetko prepočítavať a kedže sa mi nechce za každým spúšťať kalkulačku a chcel som niečo jednoduché do terminálu (a relatívne presné *) tak som si to ubaštil v bashi.

#!/bin/bash
# sk2euro.sh by feco(at)7crows(dot)net, 2008
if test -z "$1"
then 
 echo "using: sk2euro slovak_koruna"
 echo "divided by ~30"
else
 a=`expr $1 / 30`
 echo "~$a€"
fi 

* - delí to iba 30timy takze je to IBA +/- presné (hlavne použivam pri prepočitavaní väčších súm) chcel by som ešte neskôr spraviť verziu ktorá by brala aj "real" vstup a dávala "real" výstup ale to sa musím do toho viac zavrtať, kedže toto som mal iba narýchlo hotové

UPDATE - variácie

by #Tom (bash + bc, bash)

#!/bin/bash
function calc() {
  echo "scale=2;" "$@" | bc -q
}
if [ -z "$1" ]; then
  echo "syntax: $0 hodnota_skk"
  exit 1
fi
KURZ="30.126"
echo $(calc $1/$KURZ)

#!/bin/bash 
function div() {
  INT=$(($1/$2))
  MOD=$(($1%$2))
  FRAC=$((${MOD}0/$2))
  MOD=$((${MOD}0%$2))
  FRAC=$FRAC$((${MOD}0/$2))
  MOD=$((${MOD}0%$2))
  echo $INT.$FRAC
}
if [ -z "$1" ]; then
  echo "syntax: $0 hodnota_skk"
  exit 1
fi
KURZ="30126"
echo $(div ${1}000 $KURZ)

by slush (python) - "obojstranná verzia"

#!/usr/bin/env python
import sys
if len(sys.argv) < 2:
        print "Usage: sk2eu koruna [eu/sk, default sk]"
        sys.exit()
if len(sys.argv) == 2 or sys.argv[2] == 'sk':
        print "~ %.02f eu" % (float(sys.argv[1]) / 30.126)
else:
        print "~ %.02f sk" % (float(sys.argv[1]) * 30.126)

by happy barney (perl) - "obojstranná verzia"

#!/usr/bin/perl
# ln -s file sk2eu
# ln -s file eu2sk

use File::Basename;
my $name = basename $0;

print "Usage: $name suma\n" and exit unless @ARGV;
printf "~ %.02f %s\n",
       $ARGV[0] * { sk2eu => 1/30.126, eu2sk => 30.126}->{$name},
       { sk2eu => 'eu', eu2sk => 'sk' }->{$name}
       ;

by Viliam Púčik (C) - "obojstranná verzia"

#include <stdio.h>
#include <stdlib.h>

int main(int argc, char * argv[]) {
        if (argc == 2) {
                printf("%s SK: %f EURO\n", argv[1], atof(argv[1])/30.126f);
        }

        return 0;
}

       

Komentáře

[#Tom]

Přechod na euro vám nezávidím, doufám, že u nás k němu nedojde nikdy. Ale abych se podržel tématu:

#!/bin/bash
function calc() {
  echo "scale=2;" "$@" | bc -q
}
if [ -z "$1" ]; then
  echo "syntax: $0 hodnota_skk"
  exit 1
fi
KURZ="30.126"
echo $(calc $1/$KURZ)

A pokud nemáte nainstalovánu kalkulačku bc, můžete postupovat takto:

#!/bin/bash 
function div() {
  INT=$(($1/$2))
  MOD=$(($1%$2))
  FRAC=$((${MOD}0/$2))
  MOD=$((${MOD}0%$2))
  FRAC=$FRAC$((${MOD}0/$2))
  MOD=$((${MOD}0%$2))
  echo $INT.$FRAC
}
if [ -z "$1" ]; then
  echo "syntax: $0 hodnota_skk"
  exit 1
fi
KURZ="30126"
echo $(div ${1}000 $KURZ)

[Michal Fecko]

Přechod na euro vám nezávidím, doufám, že u nás k němu nedojde nikdy. Ale abych se podržel tématu:

No na výber nemáme, ani referendum nebolo, proste musíme (?!)... A čo bude ? Netuším... Ešte to skúsim nahodiť v pascale - v bashi niesom doma, a po vašom príklade mi teraz pride dosť zložitý na niečo tak jednoducho zadané (s realnymi číslami)

[Dan Ohnesorg]

Graf z roku 2005 je fakt hodne vypovidajici. Ostatne ta mzda je uplne stejna v SK jako v Euro, zmena meny sama o sobe neznamena, ze se meni pomer mezi mzdou v D a SK. Alespon uz mate fixovany kurz, to tady v cechach si clovek dohodne zakazku s platbou v EUR a kdyz ji po pul roce fakturuje tak dostane na koruny o 20% mene.

[Käyttäjä 11133]

Já raději volně plovoucí měny. A to že si dostal o 20% méně (v přepočtu) je sice pravda, ale je to něco s čím se musí počítat, stejně jako s inflací. Základní poučka o investicích zní: Investujte v měně ve které hodláte utrácet, pokud opravdu dobře nevíte co děláte, ne?

[Marián Kyral]

Přechod na euro vám nezávidím, doufám, že u nás k němu nedojde nikdy.

A i kdyby došlo, já už to budu mít natrénované. Tento Silvestr budu "oslavovat" v práci při migraci

[xm]

A to já zas závidím :-P Už se nemůžu dočkat, až budem mít Euro i v Česku.

[Rezza]

Ja jim ho naopak fakt zavidim! Jen v nasi zemicce nikdy nebude :(

[slush]

Takova mala blbustka prepsana do pythonu, s podporou obousmerne konverze a desetinnych carek:

#!/usr/bin/env python
import sys
if len(sys.argv) < 2:
        print "Usage: sk2eu koruna [eu/sk, default sk]"
        sys.exit()
if len(sys.argv) == 2 or sys.argv[2] == 'sk':
        print "~ %.02f eu" % (float(sys.argv[1]) / 30.126)
else:
        print "~ %.02f sk" % (float(sys.argv[1]) * 30.126)

Pouziti: $ sk2eu 31 ~ 1.03 eu

$ sk2eu 31 sk ~ 1.03 eu

~$ ./sk2eu 31 eu ~ 933.91 sk

[happy barney]

perl verzia

#!/usr/bin/perl
# ln -s <file> sk2eu
# ln -s <file> eu2sk

use File::Basename;
my $name = basename $0;

print "Usage: $name <suma>\n" and exit unless @ARGV;
printf "~ %.02f %s\n",
       $ARGV[0] * { sk2eu => 1/30.126, eu2sk => 30.126}->{$name},
       { sk2eu => 'eu', eu2sk => 'sk' }->{$name}
       ;

[rane]

Podľa mňa by si ten výpočet mal outsourcovať a využiť nejakú online euro kalkulačku, ktorých sa určite nájdu na webe tony. Pri troche štastia bude niektorá mať aj verejné api. Môžeš na to použiť wget alebo curl.

[skywaker]

Poradte ako to zdokonalit aby to pocitalo aj desetine cisla?
#include < iostream>

using namespace std;

int atoi(char s[])
{
int i, n = 0;
for(i=0; s[i] >= '0' && s[i] <= '9'; ++i) n = 10 * n + s[i] - '0';
return(n);
}

int main(int argc, char *argv[])
{
if (argv[1]!=NULL) {
float sk, euro;
sk = atoi(argv[1]);
euro=sk/30,126;
cout<<"sk: "<< sk<<" euro: "<< euro<< endl;
}
return 0;
}

[Luboš Doležel (Doli)]

atof(), nač ta vlastní atoi() funkce?

[Viliam Púčik]

#include <stdio.h>
#include <stdlib.h>

int main(int argc, char * argv[]) {
        if (argc == 2) {
                printf("%s SK: %f EURO\n", argv[1], atof(argv[1])/30.126f);
        }

        return 0;
}

[miso]

A dovod? Kurz je uz nemenny ...

[rane]

...a len tak, aby to bola väčšia zabava :)

[brm]

Závidím vám Slovákům přechod na €. Překvapilo mě ovšem, kolik kolegů v práci by taky chtělo €.

[miso]

Aj ja som Slovak a € nemam (zijem v Prahe, no )
Vyhody urcite prevazuju nad nevyhodami, kto pozera dalej ako za hranice svojej krajiny, tak o tom nieco vie povedat. Mam pocit, ze proti Euru (osobne takych ludi nepoznam, len z internetovych for) su ludia podobneho myslenia ako "auto nemam a preto ma cena ropy nezaujima", co je usmevne a smutne zaroven

[:-)]

No a co třeba ta výhoda, že čím menší měna tím pružněji dokáže reagovat na výkyvy na trhu a tím pružněji pracují tržní vyrovnávací mechanismy? Když dojde k nějaké velké krizi na Slovensku (po přijetí Eura), tak je velice malá pravděpodobnost, že by to nějak mohlo ovlivnit zbytek Eurozóny, protože Slovensko je malá a ekonomicky slabá země. Takže pokud budou potřebovat nějak upravit úrokové sazby k tomu, aby se jim podařila krize překonat tak budou muset na kolenou prosit euroúředníky.

[Rezza]

Euro ma jednu chybu - jsou to hnusne penize a dlouho se na ne zvyka. A navic prinese brutalne vyssi vydaje lidem :) Clovek si rekne, blbe 1 euro, ale u Slovaku je to 30 SVK! Fakt si na ty jine meritka clovek blbe zvyka a utraci mnohem vic nez driv. Ja si daval v Lidlu na Pavones kazdy den cokoladu za 1.2 e, ale v CR za 32 kacek, to bych se mohl :D

[Michal Fecko]

To prejde ked dostanes 500 - 700 € cisteho

[Viliam Púčik]

Niektori postarsi obcania budu dokonca radi: "Mlieko, chleba za korunu ... ako za komunistov ... len keby dochodky boli vyssie."

[Michal Fecko]

Njn, a dochodky budu ako za kapitalistov, v priemere - 250 - 350 €, to potesi - to si sakra rozmyslia to "1 eurove mlieko"

[freshmouse]

Co jim na tom závidíš? (Nehledě na to, CZK má k Euru pořád lepší a lepší kurz. Exportéři to asi tolik neocení, ale až budeme vyměňovat naše dukáty za euráče, nebude mi to tolik vadit...)

[brm]

Zaslepení fanatici to nepochopí.

[freshmouse]

Tak toto byla skutečně informacemi překypující odpověď. Velmi jsi mne obohatil, díky!

[Viliam Púčik]

To si odpoved nepochypil? Tak musis byt zaslepeny fanatik [Nic v zlom, ale nedalo mi to]

[brm]

Diskutovat s fanatikem je jak házet perly sviním.

[xm]

+1

Na Euro se těším, už abychom na něj také přešli...

[freshmouse]

Indoslováci prý mají nějaké zvláštní programy, aby Euro pochopili. Má se jim hrát divadlo o Eurech, mají se jim pouštět písničky o Eurech... Zkrátka, aby pochopili, že Euro je něcp jiného než koruna.

Připomíná mi to vynikající film Vykoupení z věznice Shawshank, kdy Andy Dufferson žádal o peníze na knihy: "Jediné, na co daňoví poplatníci přispějí, je víc mříží a víc stráží." Jediný rozdíl je, že Andymu jsem fandil...

[pools]

teď si mi připomněl, že sem se na to chtěl podívat...

[Krtko]

No oni davaju indoslovakom nadej - nadej ze to do konca roka pochopia

[jas]

Co tak ist na to jednoduchsie:

#!/usr/bin/env zsh

if [ $# -eq 1 ]
then
        echo $(($1/(30.126))) €
else
        echo "Usage: $0 SKK"
fi