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íží...
včera 22:00 | Komunita

Přibližně před měsícem bylo oznámeno, že linuxová distribuce SUSE Linux Enterprise Server (SLES) běží nově také Raspberry Pi 3 (dokumentace). Obraz verze 12 SP2 pro Raspberry Pi 3 je ke stažení zdarma. Pro registrované jsou po dobu jednoho roku zdarma také aktualizace. Dnes bylo oznámeno, že pro Raspberry Pi 3 je k dispozici také nové openSUSE Leap 42.2 (zprávička). K dispozici je hned několik obrazů.

Ladislav Hagara | Komentářů: 1
včera 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ářů: 26
včera 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ářů: 8
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ářů: 14
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ářů: 15
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ářů: 5
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
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 774 hlasů
 Komentářů: 50, poslední 29.11. 15:50
Rozcestník
Reklama

Dotaz: Prohození řádků

3.8.2009 20:01 he
Prohození řádků
Přečteno: 496×
Prohození řádků. Potřebuji prohodit řádky, a to tak že první má být předposlední, druhý poslední, třetí -> čtvrtý od konce, čtvrtý -> třetí od konce, .., až předposlední -> první a poslední -> druhý. Studiem z tohoto odkazu http://sed.sourceforge.net/sed1line_cz.html jsem se dostal do stadia, že si dokážu pomoci pospojováním dvojic řádků (i s odmazáním počátečních mezer) a pak je jen přehodím příkazem tac, ale není to přesně ono: cat soubor | sed 's/^[ \t]*//' | sed '$!N;s/\n/ /' | tac. Nejsem v regulárních výrazech moc zběhlý a nevím, dá-li se to napsat jedním-dvěma příkazy. Budu vděčný za jakoukoli radu.

Odpovědi

3.8.2009 22:28 nettezzaumana
Rozbalit Rozbalit vše Re: Prohození řádků

#!/usr/bin/perl

use strict;
use warnings;

my @foo;
my @bar;

while(<>) {
push @foo, $_;
do { unshift @bar, @foo; @foo = (); } if @foo == 2;
};

print foreach @bar;

3.8.2009 22:30 nettezzaumana
Rozbalit Rozbalit vše Re: Prohození řádků

.. pokud jsem to teda pochopil spravne a melo to delat tohle:

> seq 1 6 | ./hehe
5
6
3
4
1
2
 

3.8.2009 23:21 he
Rozbalit Rozbalit vše Re: Prohození řádků
Ano, přesně toto. Ale jak to spustím? Ten skript jsem uložil jako hehe, ale když ho spustím jako cat soubor | ./hehe, tak mi to vyhodí bash: ./hehe: Permission denied. Nedám to ani přes sudo ani jako sudo cat soubor | seq 1 6 | ./hehe
3.8.2009 23:34 nettezzaumana
Rozbalit Rozbalit vše Re: Prohození řádků

hehe .. netreba ukladat jako hehe, ale proti gustu zadnej disputat .. hehe

co se tyce permissions denied, tak to tipuju na opomenute `chmod +x hehe` .. hehe ;)

 

.. aneb. musis tomu priradit executable flag :D .. muehehe

3.8.2009 23:40 he
Rozbalit Rozbalit vše Re: Prohození řádků
Jede to! Mám se ještě co učit, a hlavně základy. Tady je vidět, že v Perlu je skryt obrovský potenciál. Díky
3.8.2009 23:47 nettezzaumana
Rozbalit Rozbalit vše Re: Prohození řádků

np, urw

4.8.2009 23:16 salam
Rozbalit Rozbalit vše Re: Prohození řádků
hehe
3.8.2009 23:37 FooBar
Rozbalit Rozbalit vše Re: Prohození řádků

seq 1 6 | sed 'N;s/\([^\n]*\)\n\(.*\)/\2\n\1/' | tac

3.8.2009 23:45 nettezzaumana
Rozbalit Rozbalit vše Re: Prohození řádků

shell brainfucks Vs perl brainpetting?

nemam rad kod, u kteryho musim za tejde badat, *jak *jsem *to *k *certu *tenkrat *myslel ..

4.8.2009 11:46 Ash | skóre: 53
Rozbalit Rozbalit vše Re: Prohození řádků
Pokud umíte perl, nemusíte u něj po týdnu bádat "jak jsem to k čertu myslel", prostě si to přečtete. Pokud umíte sed, nemusíte u něj po týdnu bádat "jak jsem to k čertu myslel", prostě si to přečtete.

Takže váš výlev říká jen prosté "buď mám krátkou paměť, nebo sed, nebo oboje, nebo 'nepíši do zdrojáků komentáře'". Ale se vším se dá něco dělat, pokud člověk chce, paměť se dá trénovat, sed se dá naučit a komentáře se dá naučit a zvyknout psát :)
4.8.2009 17:15 nettezzaumana
Rozbalit Rozbalit vše Re: Prohození řádků
muehehe .. nevim jake jsou Vase zkusenosti s programovanim, ale imho vetsina programatoru ma zpetne problem po urcite dobe *vratit se z5 do projektu, kterej napsali. alespon ja urcite, pac vetu ::

".. wtf, jak jsem to tenkrat myslel" si v duchu rikam pomerne casto .. ;)

btw. *se *svym sedovskym nebo perlovskym RE brainfuckem mam temer chronicke problemy

btw2. co se tyce tohodle konkretniho prikladu tak me by trvalo dat dohromady zadanou ulohu pomoci RE dele, nez nadatlit behem 30s (v zavislosti na rychlosti psani) z logickeho hlediska tuto elementarni ulohu v perlu ..
4.8.2009 21:33 he
Rozbalit Rozbalit vše Re: Prohození řádků
Poněvadž jsem svým dotazem rozpoutal diskusi zastánců dvou rozdílných táborů, rozhodl jsem se, že provedu malý test. Vzal jsem reálný textový soubor o velikosti ~3 MB a ~54 tisíc řádků a prohnal jej pokaždé třikrát sedem a perlem. Výstupem byla konzole v GUI. Zde jsou výsledky:

sed.time: 8.329s, 9.58s a 8.942s. avg.time=8.95033333s

perl.time: 8.59s, 8.44s a 7.94s. avg.time=8.32333333s

Porovnáním průměrných hodnot časů lze vypozorovat, že perl dává o 7% rychlejší odpověď.

Spustil jsem tedy ještě jeden test, tentokrát syntetický, s výstupem do /dev/null. time seq 1 1000000 | sed 'N;s/\([^\n]*\)\n\(.*\)/\2\n\1/' | tac > /dev/null: 7.161s, 7.277s a 7.201s. avg.time=7.213s

time seq 1 1000000 | ./hehe > /dev/null: 2.803s, 2.828s, 2.914s. avg.time=2.8483333333s

Zde si vedl perl o 60% lépe a to už nelze přehlédnout.
4.8.2009 23:26 Ash | skóre: 53
Rozbalit Rozbalit vše Re: Prohození řádků
No ono vždy záleží na tom, jak moc "blbě" se to napíše. Takže začneme optimalizovat?

Mně zatím vychází lépe sed, předpokládám že to je tím, že ho umím lépe než perl, který jsem se tedy optimalizovat nesnažil ;)
bash$ time seq 1 1000000 | ./hehe > /dev/null

real    0m1.189s
user    0m1.764s
sys     0m0.056s

bash$ time seq 1 1000000 | sed -n 'h;n;p;g;p' | tac > /dev/null

real    0m0.862s
user    0m0.964s
sys     0m0.048s

4.8.2009 23:29 Ash | skóre: 53
Rozbalit Rozbalit vše Re: Prohození řádků
Co do počtu znaků vede sed samozřejmě také, ale to asi už zůstane.
bash$ wc -c hehe
166 hehe

bash$ wc -c <<<"sed -n 'h;n;p;g;p' | tac"
25
5.8.2009 00:01 FooBar
Rozbalit Rozbalit vše Re: Prohození řádků

Sakra, hodit to do hold bufferu mne nejak vubec nenapadlo, dobry a elegantni!:-)

5.8.2009 08:15 Petr
Rozbalit Rozbalit vše Re: Prohození řádků

Dobrý řešení, tady je ještě o 2 znaky kratší (a možná i rychlejší, ale neměřil jsem to), s vypuštěním mezer okolo svislítka dokonce o 4 znaky :)

$ wc -c <<<"sed -n 'h;n;G;p'|tac"
21
$

5.8.2009 15:15 Ash | skóre: 53
Rozbalit Rozbalit vše Re: Prohození řádků
Ještě o znak sed 'x;n;$G' | tac pokud bych se povznesl nad prázdné řádky na konci :)
5.8.2009 15:16 Ash | skóre: 53
Rozbalit Rozbalit vše Re: Prohození řádků
Vlastně to bylo o 4 znaky díky absenci -n
5.8.2009 15:53 Ash | skóre: 53
Rozbalit Rozbalit vše Re: Prohození řádků
Jen škoda že je to pořád o jeden znak delší než perl ;)

sed 'x;n;$G'|tac 
#!/usr/bin/perl
4.8.2009 22:56 Ash | skóre: 53
Rozbalit Rozbalit vše Re: Prohození řádků
Stále zůstáváme u toho, že umíte lépe perl než sed. Já umím lépe sed, takže bych tuto elementární úlohl napsal v sedu, vy umíte lépe perl, tak byste tuto elementární úlohu nadatlil v perlu. Pokud by nám záleželo na výkonu, tak bychom to oba nadatlili v tom, co by bylo výkonnější.

Vracet se k staršímu projektu je vždycky trochu náročné a programátor, který se má rád, asi programuje tak, aby to po sobě i po delší době přečetl, a nesnaží se o nějakou optimalizaci algoritmů hraničící s kryptografií (vyjma kritických míst samozřejmě, tam pak nastupují dekryptovací komentáře :D)
4.8.2009 23:25 Ash | skóre: 53
Rozbalit Rozbalit vše Re: Prohození řádků
No ono vždy záleží na tom, jak moc "blbě" se to napíše. Takže začneme optimalizovat?

Mně zatím vychází lépe sed, předpokládám že to je tím, že ho umím lépe než perl, který jsem se tedy optimalizovat nesnažil ;)
bash$ time seq 1 1000000 | ./hehe > /dev/null

real    0m1.189s
user    0m1.764s
sys     0m0.056s

bash$ time seq 1 1000000 | sed -n 'h;n;p;g;p' | tac > /dev/null

real    0m0.862s
user    0m0.964s
sys     0m0.048s
5.8.2009 00:53 nettezzaumana
Rozbalit Rozbalit vše Re: Prohození řádků

ad.1) vase reseni aka  'h;n;p;g;p' je moc hezke .. neznal jsem.

 

ad.2) obe reseni maji presto jednu nevyhodu .. na skutecnem unixovem systemu se v lepsim pripade chovaji jinak nez na Linuxu (rozumej nepredvidatelne) .. v horsim nefungujou vubec :D .. ps. je to 1:1 (neprevidatelne:nefungujou .. a to neni dobra bilance ..)

testovano na:

SunOS t5240-s10u7 5.10 Generic_139555-08 sun4v sparc SUNW,T5240

FreeBSD 7.2-RELEASE

 

5.8.2009 01:03 Ash | skóre: 53
Rozbalit Rozbalit vše Re: Prohození řádků
Souhlasím s tím, že používat jiný sed než GNU sed je nesmyslné sebemrskačství :D asi jako snažit se skriptovat na HP-UX. Na kvalitní práci je potřeba kvalitní nástroj (perl, GNU sed, C...).
5.8.2009 01:06 Ash | skóre: 53
Rozbalit Rozbalit vše Re: Prohození řádků
Aby nebylo špatně pochopeno, i GNU sed může být posix compliant (--posix), ale musí to být GNU sed, ne nějaký nedodělek na UNIXu.
5.8.2009 00:26 nettezzaumana
Rozbalit Rozbalit vše Re: Prohození řádků

mistre :D .. ok, pokud chceme *nekde *zustavat tak si ujasneme pojmy ::

a) neskromne si myslim, ze sed umim stejne jako perl a ne-li lepe .. sed == REs a ty jsou vsude stejne

 

b) to co vy zovete sed je v pravem slova smyslu GNU-sed .. me hlavni zamereni se netyka paznechtu jmenem GNU ale POSIX compliant systemu (jako napr unixove systemy, neplest s Linuxem ktery je unix-like) .. vas kod bohuzel nefunguje jinde nez na Linuxu (osobne jsem zkousel bsd a solaris) .. mozna proto pristupuju k sedu a obecne ke GNU optimalizacim pomerne podezrivave a skepticky ..

 

c) tato uloha nema podle me co docineni s REs. to, ze to lze pomoci REs resit *take snad jeste neznamena, ze se tady budeme hadat a osocovat co kdo umi lepe a co je ciste .. to dle meho skromneho nazoru GNU-sed rozhodne neni.

cela tato diskuse zacala moji nevinnou poznamkou o brainfucku pomoci REs .. nemyslel jsem tim, ze vas brainfuck je spatne napsanej, pomalej nebo nedejboze *necistej. myslel jsem tim, ze v tomto pripade jste sice zvolil funkcni, nicmene brute-force metodu .. aneb jak by se to chovalo, kdyby to melo parsovat radky s nestandartni delkou

 

toto je primitivni operace ktera se sklada z jednoduche direktivy :: "kazde dva radky co jdou za sebou vem a umisti je *pred dvojku radku co byla predchozi .." .. jakekoliv dalsi laborovani a nebo manipulovani je *pointless ;)

 

nemyslim to nijak konfrontacne, ale pobavil jste me vasi neskryvanou znalosti GNU-sedu a zejmena receptem pro vsechny programatory, jak se stale udrzet v projektu .. obavam se, ze vase metoda mozna pomaha v jednodussich shellovych skriptech, nikoliv vsak v pripadech, kdy se brainfuck neskryva v necem tak mrzkem jako jednotlivy RE/algoritmus, ale v komplexnosti a provazani pouzitych metod :D

 

zdravim

5.8.2009 00:51 Ash | skóre: 53
Rozbalit Rozbalit vše Re: Prohození řádků
Moc nechápu smysl příspěvku a proto jen upřesním že vámi zmiňovaný kód v sedu s RE jsem nepsal já, já napsal optimalizovaný kód sed -n 'h;n;p;g;p' | tac, myslím že je POSIX compliant.

Můžete si povšimnout, že tam není žádná RE, on sed je více než jen RE, je to hlavně o streamovém editování, ale nechci zacházet do hloubky, abyste to třeba zase nebral mylně jako nějaké poučování podobně, jako jste mylně interpretoval mou prostou úvahu o programátorech :D
5.8.2009 00:56 nettezzaumana
Rozbalit Rozbalit vše Re: Prohození řádků

viz. prispevky vyse ..

 

prvni prispevek jsem dopsal az pote co jsem si *vsiml, jak jste optimalizoval .. a to se mi libi, hezky jste to udelal

thx, good to know it

5.8.2009 19:12 FooBar
Rozbalit Rozbalit vše Re: Prohození řádků

Ja se omlouvam, ale co si mam predstavit (rikejte mi vojin Kefalin) pod takym pojmom "radky s nestandartni delkou"?:)

5.8.2009 21:41 Ash | skóre: 53
Rozbalit Rozbalit vše Re: Prohození řádků
Kolega se zaměřuje i na ne-gnu nástroje běžící na všelijakých platformách jako Sun, BSD, takže tam mohou přijít v potaz různá omezení, jako třeba 4OKB max. délka řádky u sedu, 3000 znaků u awk a podobně, popřípadě to můžete chtít použít na nějaké mašině běžící ještě od 70. let bez aktualizace... ;) ;) ;)
5.8.2009 22:08 FooBar
Rozbalit Rozbalit vše Re: Prohození řádků

Ah, uz chapu co chce rict... ackoliv bych se mozna v tom pripade branil formulaci "standarDni delka radku" :)

4.8.2009 12:11 FooBar
Rozbalit Rozbalit vše Re: Prohození řádků

Troufl bych si rict, ze to je tim, ze umis dobre perl a neumis dobre sed:) Moje situace je presne obracena, Perlem nevladnu a na tvuj kod jsem se musel soustredit,... rekl bych, ze neni zadny X vs Y, je to vec zcela subjektivnich preferenci

4.8.2009 11:42 Ash | skóre: 53
Rozbalit Rozbalit vše Re: Prohození řádků
+1, sed rulez, jednoduché, čitelné, přímočaré, žádné velké programování ;)

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.