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 13:33 | Nová verze

Po sedmi měsících vývoje od vydání verze 5.7 byla vydána verze 5.8 (YouTube) toolkitu Qt. Z novinek lze zmínit například Qt Lite pro vestavěná zařízení. Nově jsou plně podporovány moduly Qt Wayland Compositor (YouTube) a Qt SCXML (YouTube). Současně byla vydána verze 4.2.1 integrovaného vývojového prostředí (IDE) Qt Creator.

Ladislav Hagara | Komentářů: 0
dnes 11:52 | Pozvánky

Lednový Prague Containers Meetup se koná ve čtvrtek 26. ledna 2017 od 18:00 v Apiary, Pernerova 49, Praha 8. Přijďte se podívat na přednášky o Enterprise Kubernetes a Jenkins as a code.

little-drunk-jesus | Komentářů: 0
dnes 11:40 | Pozvánky

Program letošního ročníku konference Prague PostgreSQL Developer Days, která se koná již 15. a 16. února 2017 na ČVUT FIT, Thákurova 9, Praha 6, byl dnes zveřejněn. Najdete ho na stránkách konference včetně anotací přednášek a školení. Registrace na konferenci bude otevřena zítra (24. ledna) v brzkých odpoledních hodinách.

TomasVondra | Komentářů: 0
včera 02:20 | Zajímavý článek

David Revoy, autor open source webového komiksu Pepper&Carrot nebo portrétu GNU/Linuxu, upozorňuje na svém blogu, že nový Inkscape 0.92 rozbíjí dokumenty vytvořené v předchozích verzích Inkscape. Problém by měl být vyřešen v Inkscape 0.92.2 [reddit].

Ladislav Hagara | Komentářů: 0
včera 02:02 | Komunita

Øyvind Kolås, hlavní vývojář grafických knihoven GEGL a babl, které využívá grafický program GIMP, žádá o podporu na Patreonu. Díky ní bude moci pracovat na vývoji na plný úvazek. Milník 1000 $, který by stačil na holé přežití, se již téměř podařilo vybrat, dalším cílem je dosažení 2500 $, které mu umožní běžně fungovat ve společnosti.

xkomczax | Komentářů: 12
21.1. 23:54 | Pozvánky

DevConf.cz 2017, již devátý ročník jedné z největších akcí zaměřených na Linux a open source ve střední Evropě, proběhne od pátku 27. ledna do neděle 29. ledna v prostorách Fakulty informačních technologií Vysokého učení technického v Brně. Na programu je celá řada zajímavých přednášek a workshopů. Letos je povinná registrace.

Ladislav Hagara | Komentářů: 0
21.1. 22:11 | Nová verze

Byla vydána verze 1.0.0 emulátoru terminálu Terminology postaveného nad EFL (Enlightenment Foundation Libraries). Přehled novinek v poznámkách k vydání.

Ladislav Hagara | Komentářů: 0
20.1. 17:00 | Nová verze

Byl vydán Docker 1.13. Přehled novinek na YouTube a v poznámkách k vydání na GitHubu. Docker umožňuje běh aplikací v softwarových kontejnerech (Wikipedia).

Ladislav Hagara | Komentářů: 6
20.1. 15:51 | Komunita

Mozilla.cz informuje, že nástroje pro webové vývojáře se možná oddělí od Firefoxu a stanou doplňkem. Nástroje pro webové vývojáře prošly velkým přepisem a tým, který se stará o jejich vývoj, by uvítal možnost jejich častějších aktualizacích nezávisle na vydávání nových verzí Firefoxu.

Ladislav Hagara | Komentářů: 10
20.1. 07:00 | Humor

Čtenářům AbcLinuxu vše nejlepší k dnešnímu Dni zvýšení povědomí o tučňácích (Penguin Awareness Day).

Ladislav Hagara | Komentářů: 0
Jak se stavíte k trendu ztenčování přenosných zařízení (smartphony, notebooky)?
 (11%)
 (2%)
 (73%)
 (4%)
 (11%)
Celkem 371 hlasů
 Komentářů: 25, poslední 21.1. 13:34
Rozcestník
Reklama

Dotaz: Prohození řádků

3.8.2009 20:01 he
Prohození řádků
Přečteno: 498×
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.