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í
×

dnes 01:55 | Komunita

The Open Source Software Security Mobilization Plan (pdf) je konsorciem The Linux Foundation zastřešen plán na zvýšení bezpečnosti open source softwaru.

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

Minulý týden proběhla hackerská soutěž Pwn2Own Vancouver 2022. Máte-li na starost bezpečnost IT, výsledky vás nepotěší. Microsoft Teams, Oracle Virtualbox, Mozilla Firefox, Microsoft Windows 11, Ubuntu Desktop, Apple Safari, Tesla Model 3 Infotainment System. Vše potopeno. Demonstrované bezpečnostní chyby ve Firefoxu jsou již opraveny ve verzi 100.0.2.

Ladislav Hagara | Komentářů: 0
včera 13:22 | Nová verze

Lokální úložiště Stratis (Wikipedie), alternativa k úložištím s ZFS a Btrfs, bylo vydáno ve verzi 3.1.0. Přehled novinek v poznámkách k vydání.

Ladislav Hagara | Komentářů: 3
včera 13:11 | IT novinky

Sdružení CZ.NIC dnes vrátilo do zóny dříve vyřazená jména domén dezinformačních webů.

Ladislav Hagara | Komentářů: 25
včera 11:11 | IT novinky

Před půl rokem představený webový vyhledávač You.com (Wikipedie) se zaměřuje také na kodéry. Vyzkoušet lze YouCode.

Ladislav Hagara | Komentářů: 0
včera 08:00 | Zajímavý software

RustDesk je open source alternativa k TeamVieweru. Zdrojové kódy jsou k dispozici na GitHubu pod licencí GPL-3.0.

Ladislav Hagara | Komentářů: 1
včera 07:00 | Nová verze

Po 4 měsících vývoje od vydání verze 5.9 byla vydána nová verze 6.0 svobodného open source redakčního systému WordPress. Kódové jméno Arturo bylo vybráno na počest jazzového hudebníka Artura O'Farrilla.

Ladislav Hagara | Komentářů: 0
24.5. 19:00 | Nová verze

Po více než roce vývoje od vydání verze 1.20.0 byla vydána nová stabilní verze 1.22.0 webového serveru a reverzní proxy nginx (Wikipedie). Nová verze přináší řadu novinek. Podrobný přehled v souboru CHANGES-1.22.

Ladislav Hagara | Komentářů: 1
24.5. 18:33 | Nová verze

Desktopová verze svobodného kancelářského balíku OnlyOffice (Wikipedie) byla vydána ve verzi 7.1 (7.1.0). Přehled novinek v příspěvku na blogu a na YouTube. Nejnovější OnlyOffice je již také na Flathubu a Snapcraftu.

Ladislav Hagara | Komentářů: 10
24.5. 17:00 | IT novinky

Logitech dnes představil myš MX Master 3S a mechanické klávesnice MX Mechanical a MX Mechanical Mini.

Ladislav Hagara | Komentářů: 26
Na sociálních sítích nebo jiných webových diskuzích vystupuji pod
 (61%)
 (16%)
 (23%)
Celkem 332 hlasů
 Komentářů: 29, poslední 24.5. 00:02
Rozcestník


Dotaz: sed -- vytvoření mezer v čísle po 3 cifrách

Jan Zahornadsky avatar 15.8.2005 22:09 Jan Zahornadsky | skóre: 22 | blog: hans_blog
sed -- vytvoření mezer v čísle po 3 cifrách
Přečteno: 58×
Ahoj,

jak by se dalo sedem vytvořit například z čísla 1234567890 text 1 234 567 890? Zkoušel jsem to jen primitivním
sed 's/\([0-9][0-9][0-9]\)$/ \1/g'
ale to mi udělá pouze do tisíců.. Nelze nějak nastavit, aby se příkaz (například 's/\([0-9][0-9][0-9] \)$/ \1/g') opakoval, dokud neudělá už žádnou další změnu? Se sedem pracuji asi celé dvě hodiny, takže se moc nevyznám... Za každé nakupnutí moc díky!
Actually, I was half an hour into the pointer scripting documentation when she got dressed and left.

Odpovědi

15.8.2005 22:15 Michal Kubeček | skóre: 72 | Luštěnice
Rozbalit Rozbalit vše Re: sed -- vytvoření mezer v čísle po 3 cifrách
echo 1234567890 \
  | rev \
  | sed -re 's/([0-9]{3})/\1 /g' -e 's/ $//' \
  | rev
:-) Ale určitě to jde nějak inteligentněji…
15.8.2005 22:44 Michal Kubeček | skóre: 72 | Luštěnice
Rozbalit Rozbalit vše Re: sed -- vytvoření mezer v čísle po 3 cifrách
Tak jsem vymyslel ještě šílenější:
  a=1234567890
  while true; do
    b=`echo "$a" | sed -re 's/([0-9])([0-9]{3})\>/\1 \2/'`
    if [ "$b" = "$a" ]; then break; fi
    a="$b"
  done
  echo "$a"
:-)
15.8.2005 23:15 Michal Marek (twofish) | skóre: 55 | blog: { display: blog; } | Praha
Rozbalit Rozbalit vše Re: sed -- vytvoření mezer v čísle po 3 cifrách
Což mě inspirovalo k čistě sedovému řešení
sed -re ':1; s/([0-9])([0-9]{3})\>/\1 \2/; t1'
15.8.2005 23:21 Michal Kubeček | skóre: 72 | Luštěnice
Rozbalit Rozbalit vše Re: sed -- vytvoření mezer v čísle po 3 cifrách
Sakra, takovéhle věci jsem taky kdysi uměl, teď si ani nevzpomenu, že existují… :-(
16.8.2005 10:44 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
Rozbalit Rozbalit vše Re: sed -- vytvoření mezer v čísle po 3 cifrách
Moc pěkné a elegantní :-)
XML je zbytečný, pomalý, nešikovný balast, znovu vynalézané kolo a ještě ke všemu šišaté, těžké a kýčovitě pomalované.
16.8.2005 11:35 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
Rozbalit Rozbalit vše Re: sed -- vytvoření mezer v čísle po 3 cifrách
Trochu brutální řešení v perlu jediným, ale poněkud speciálním regexpem, který se na každý řádek aplikuje jen jednou (one)
perl -pe 's/(?<=\d)(?=(\d{3})+\D)/ /g;'
Pro srovnání ekvivalent toho sedového řešení, tedy aplikace regexpu na jedn řádek dokud se něco matchne, ale s využitím look-ahead/behid (many)
perl -pe 'while(s/(?<=\d)(?=\d{3}\D)/ /){}'
a nakonec úplný ekvivalent toho sedu (normal)
perl -pe 'while(s/(\d)(\d{3}\D)/$1 $2/){}'
A srovnání rychlosti
           Rate    one   many normal
one     69367/s     --   -10%   -47%
many    77244/s    11%     --   -40%
normal 129705/s    87%    68%     --
Což mě teda přinejmenším hodně překvapilo, že to úplně obyčejné řešení je zároveň nejrychlejší.
XML je zbytečný, pomalý, nešikovný balast, znovu vynalézané kolo a ještě ke všemu šišaté, těžké a kýčovitě pomalované.
16.8.2005 13:16 Michal Kubeček | skóre: 72 | Luštěnice
Rozbalit Rozbalit vše Re: sed -- vytvoření mezer v čísle po 3 cifrách
Bylo by možné (na stejném systému) změřit ještě ta dvě sedová řešení (sed+rev a sed s cyklem)?
16.8.2005 17:01 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
Rozbalit Rozbalit vše Re: sed -- vytvoření mezer v čísle po 3 cifrách
Bohužel. Příslušná měření jsem dělal přes Benchmark modul v perlu nad třemi řetězci načtenými z DATA. Musel bych nějak vymyslet jak omezit vliv natahování sed a rev do paměti a nad tím se mi teď nechce přemýšlet. Jinak zdroják testu:
#!/usr/bin/env perl

use strict;
use warnings;
use Benchmark qw(cmpthese);

my @strs = <DATA>;

cmpthese(-2, {
		one => sub {
			foreach (@strs) {
				s/(?<=\d)(?=(\d{3})+\D)/ /go;
			}
		},
		many => sub {
			foreach (@strs) {
				while (s/(?<=\d)(?=\d{3}\D)/ /o){}
			}
		},
		normal => sub {
			foreach (@strs) {
				while (s/(\d)(\d{3}\D)/$1 $2/o){}
			}
		}
	});

__DATA__
1234567890
hwiehwfuih
1246537245735
__END__
XML je zbytečný, pomalý, nešikovný balast, znovu vynalézané kolo a ještě ke všemu šišaté, těžké a kýčovitě pomalované.
16.8.2005 17:56 Michal Kubeček | skóre: 72 | Luštěnice
Rozbalit Rozbalit vše Re: sed -- vytvoření mezer v čísle po 3 cifrách
Aha, mne by právě spíš zajímalo porovnání toho, když to v shellovém skriptu budu provádět jednotlivými způsoby (perl1-3, sed s cyklem, sed+rev). Ale to si koneckonců zvládnu změřit sám.
17.8.2005 09:26 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
Rozbalit Rozbalit vše Re: sed -- vytvoření mezer v čísle po 3 cifrách
Tak ve scriptu bych si typnul, že vě většině zátěží by asi měl vyhrát ten sed s cyklem. Má pro to všechny předpoklady.
XML je zbytečný, pomalý, nešikovný balast, znovu vynalézané kolo a ještě ke všemu šišaté, těžké a kýčovitě pomalované.
15.8.2005 23:15 petr_p
Rozbalit Rozbalit vše Re: sed -- vytvoření mezer v čísle po 3 cifrách
Ne, inteligentneji to nelze. Tedy pokud vas konecny automat nepodporuje right2left text (tj. RE aplikuje od konce textu).
15.8.2005 23:24 Michal Kubeček | skóre: 72 | Luštěnice
Rozbalit Rozbalit vše Re: sed -- vytvoření mezer v čísle po 3 cifrách
Abych pravdu řekl, za inteligentnější (a hlavně čistší) řešení bych považoval napsat si nadstavbu nad strfmon(), něco jako je printf(1) vůči printf(3).

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.