Názory k článku Úvod do AWK: proměnné, operátory a první kroky
-
Zdravim,
mam problem, kteremu nedokazu prijit na kloub.
Totozne awk skripty a operace mi bezi na AIXu cca 20x dele nez na Linuxu. Nesetkal jste se s tim nekdo?
Pro uplnost dodavam Linux je Mandrake 10.1 + awk 3.1.3, stejnou verzi GNU awk jsem nainstalil i na ten AIX 5.2 ml4, zkousel jsem i awk 3.1.5, ale vysledek/rychlost stejny... :( -
ludvik (neregistrovaný)20x je hodne, neni to treba kvuli nastaveni locales? Mozna mate na kazdem systemu jiny LC_ALL a pak to pouziva uplne jinou rutinu pri cteni radku. Napriklad na AIX, pokud je LC_ALL=cs_CZ.UTF-8, tak by to mohlo nacitat soubor a pak delat prevod kazde radky z UTF-8 na pole 32-bitovych integeru a z kazdym znakem by to pak pracovalo jako s 32bitovym integerem a pak vysledek to pomoci dalsi rutiny slozite prevadet zpatky na UTF-8. Zatimco na Linuxu to treba pracuje se souborem otevrenym pomoci mmap, protoze je LC_ALL=cs_CZ.iso-8859-2. (Jenom takovy napad)
-
Stepan Kasal (neregistrovaný)> Kazdopadne diky i kdyz to v tom asi neni.
Stale nejsem presvedcen, ze v tom to neni. Vim, ze UTF-8 zpusobuje v gawku velke zdrzeni.
Na Linuxu pry pouzivate locale "cz_CZ", coz znamena, ze pouzivate kodovani ISO-8859-2, pokud se nepletu.
Pisete, ze na AIXu je nastaven LANG=cs_CZ, ale neuvadite jednoznacne, zda to znamena pouziti UTF-8 nebo ne.
Ale i kdybyste na AIXu UTF-8 nepouzival, stale bych velice podezrival prave NLS support.
Doporucuji nasledujici experimenty:
- Zkuste na obou systemech pouzivat POSIX locale (export LC_ALL=C, aspon na Linuxu).
- Zkuste na Linuxu vlastni build z gawk-3.1.5.tar.bz2, zda bude take tak rychly.
- Zkuste na AIXu configure --disable-nls.
Jak ovlivni tyto pokusy rychlost scriptu?
Pokud problem pretrva, zkuste to nahlasit jako chybu gawk, mailem. (Pokyny jiste najdete v tarballu.) -
Honza (neregistrovaný)Je docela legrační, když někdo píše úvodní článek o AWK, a neuvede ani, že AWK je programovací jazyk (čtenář si to po přečtení prvních pár odstavců domyslí, samozřejmě, ale stejně bych to čekal jasně řečené hned na začátku, plus informace o tom, jaké má tento jazyk obecné vlastnosti, zda je bližší céčku nebo Visual Basicu a tak podobně). Také styl výkladu není nic moc - místo motivace k nějakému užitečnému prográmku spíš komentovaný manuál. Začít tím, že před uvozovku patří zpětné lomítko! Palec dolů.
-
ze je to programovaci jazyk jsem asi uvest mel. Pote co jsem nastinil na co je AWK (jako nastroj) dobry, mi tenhle fakt trochu unikl. Jinak bych dodal, ze je blizsi (blizky) C/C++.
Co se stylu vykladu tyce, snazil sem se psat to co nejstrucneji, abychom se pomerne daleko dostali pomerne rychle. Sem a tam jsem se nejaky priklad snazil uvest, ale takovy, aby se dal plne vysvetlit treba v nasledujicim odstavci nebo takovy, aby ilustroval to, co jsem prave napsal. Kazdopadne nejaky stredne velky priklad bych uvest chtel, jen jsem necitil, ze mame dostatecny zaklad na to, abychom se do nej pustili uz ted.
dik za nazor, budu nad tim premyslet -
Na co je nám awk vastně dobré, když máme sed a perl? Už jsem se setkal s tím, že lidé používají awk na věci které jdou naprosto jednoduše udělat v sedu nebo dokonce přímo v bashi a nebo se pokoušejí v awk udělat věci které v něm vůbec udělat nejdou a nedokáží sáhnout po perlu. K čemu je nám něco co není ani dostatečně malé a rychlé (teda ve srovnání s awk :-) a ani dostatečně flexibilní, ale něco mezi. Tedy vlastně na ho... No řekněme, že jako jazyk je awk trochu čitelnější než sed, ale to je snad důvod?
-
deep (neregistrovaný)preco nie Perl? lebo Perl je jediny programovaci jazyk ktoreho zdrojak po zakryptovani SHA sifrou vyzera rovnako ako pred tym :o)
ale ne... vazne...
zatial sa mi ako najucinnejsia osvedcila kombinacia sed + awk. stacilo to takmer na vsetko co som zatial potreboval... Perl bytostne neznasam a ak by som uz mal siahnut po niecom inom (keby sed+awk nestacilo), tak to bude najskor asi Python. -
Palo (neregistrovaný)Ale Perl je svinstvo ked sa v tom robia vacsie veci. Esteze si tam nepripisal 'ls -l | (read -a arr; while [ -n "${arr[1]}" ]; do echo ${arr[2]} ${arr[7]}; read -a arr; done)'. Ja sa perlu vyhybam ako sa da. Bud je to bash,awk,sed,cut,paste,join, ... (Unix toolbox) alebo rovno nejaky kompilovany jazyk. Perl je fakt nechutny.
-
su - \mathfrak{M}ĦĒNJMARCHON (neregistrovaný)Prasacky kod sa da pisat v kazdom jazyku. Ked sme uz pri tej prasackosti, makrosialenosti C/C++ v niektorych knizniciach ma obcas dokazu doviest do zufalstva a to mam C/C++ celkom rad. (viz tiez C obfuscation contest a C underhanded contest)
-
anonymníNuz je toho viac... Kedysi ked som pod *NIXami zacinal a naucil som sa awk-cko, tak som v tom pisal takmer vsetko kedze bash skripty mi nesedeli syntaxou, dokonca som v tom spravil niekolko skriptov dlhych par stovak riadkov... Potom som si ale uvedomil ze znasilnujem jazyk. Awk na take veci proste neje urceny, ale ako tu uz ktosi spominal na jednoduchsie one-linery v shelli neje nic lepsie. Je to prehladne, zvlada to velmi elegantne pracu s regexpami, vyhladavanie atd.
Na druhej strane perl je tzv. full-blown programovaci jazyk, a ma tam kvantum veci ktore netreba na jednoduche editacie v jednom riadku textu. Mozno sa mylim, ale predpokladam ze perl ma ovela vacsi overhead ako awk.
Btw tie obrovytanske skripty som neskor prepisal do perlu, mne sa ako jazyk paci. Ale to nic nemeni na tom ze awk je na niektore veci vhodnejsi... -
Yenya (neregistrovaný)Ja awk pouzivam tam, kde je to kratsi nez kdybych psal v Perlu. Treba:
ps ax | awk '/nejakyprogram/ { print $1 }' | xargs kill
Kdybyste toto chteli psat v Perlu treba pomoci autosplitu, narazite na to,
ze nektere radky vystupu ps(1) zacinaji mezerou, a tedy PID se vam nedostane
do prvniho prvku pole, ale az do druheho. A osetrovat tohle je proste vic psani nez to mit osetrene zadarmo v awk.
-Yenya -
Aha. Fakt dobrej příklad :-D
ps h -C nejakyprogram -o pid | xargs kill
To jako má být ukázka jak se to rozhodně dělat nemá. RTFM! A kupodivu funguje ips ax | perl -lane '/nejakyprogram/ && print $F[0]' | xargs kill
Co kdyby jste si to vážený napřed vyzkoušel, než tu budete plácat takové hovadiny. Už je to tu jak na MSživě(TM). Taky každej, kdo má do prdele díru, je chytrej jak rádio. -
Heh? Si přečti příspěvek na který reaguji. Je tam snad napsáno že by autor o svých slovech nějak pochyboval, ne je tam jasně napsáno, že "Kdybyste toto chteli psat v Perlu treba pomoci autosplitu, narazite na to ..." Prostě, že autor je velký odborník na perl a je nad slunce jasnější, že v perlu by jste se drbal půl roku za uchem, než napíšete to co jde udělat v awk jednoduše. To je prostě blbost a autor toho příspěvku ví kulové, ale jeho pochybné vědomosti ho opravňují plivat kolem sebe jedovaté sliny a roztrušovat kolem sebe moudra. Ale prd moudra, něco úplně jiného od něj odletuje a pěkně to smrdí. Nikdo nemá patent na rozum, yakže když něco nevím, tak reději mlčím. Tím se autor toho příspěvku neřídil ani omylem, hlavně že nám zdělil PRAVDU.
-
Miroslav SuchýStříbrný podporovatelTak ten prvni priklad rozhodne nedela to same, co Yenuv skript.
Vyzkousejt s/nejakyprogram/erm/ kdyz mate spusteny nejaky xterm
Ty dalsi prispevky jsou uplne mimo misu. Sice delaji velmi podobnou vec, ale nikoliv stejnou.
Ten vas druhy priklad je funkcne shodny, ale bohuzel je o 9 znaku delsi, nez Yenovo awk, takze prohravate. -
JaR (neregistrovaný)Fakt prenositelnej priklad, to "ps h -C...." :-D. Nemate linux& spol? Smula, chlapci. Prosim Vas, kdyz uz jste tak sebejisty a presvedceny o sve pravde a povinnosti ji hlasat, tak at jsou ty priklady alespon pouzitelne trochu univerzalneji nez Linux-only a nemohou nikde zpusobit pruser pouhym svym spustenim. No a priklady s perlem uz nechte plavat. Ano, jde to udelat perlem, take to umim, ackoli je to casto zbytecne vice psani kvuli takove prkotine (nehlede na to, ze snad kazdy kolega systemak awk aspon trochu umi, staci mu jedna manpage jako reference a porozumi vsemu, co v awk napisete, coz nemuzete rici o perlu - nez ucit perl kvuli proparsovani par logu noveho kolegu, to ho radsi seznamim za hodinu s awk). Jako predstupen k perlu je to dobre, a mnoha lidem to proste staci na vsechny potreby. Kdyz tedy nemuzete dokazat, ze to je v perlu kdykoli jednoznacne vyhodnejsi, proc se hadate?
Stacilo nekde nahore napsat "perl to take umi", ackoli nevim, k cemu je takovy prispevek dobry :-). -
JaR (neregistrovaný)Pane kolego, vy ale snadno vyletite. Opet vedle. HP-UX ok, zbyle komercni UNIXy systemy, ke kterym jsem mel zrovna pristup nikoli (Cili prinejmensim Solaris, AIX, dnes jiz pomalu zmirajici Tru64, dalsim vyctem nehodlam nudit - SMULA, chyba. A uprimne, jen uplny magor by rozinstalovaval a udrzovat extra set utilit na mnoha stovkach serveru jen proto, aby mohl psat skripty stejne jak na Linuxu, napr.) Nepochybuji, ze jste nejspis dobry v tom, co delate, ale nezkousejte prosim byt vsevedouci ve vecech, o kterych jak vidno, s odpustenim prd vite, protoze se pouze zesmesnujete. Jestli nezvladnete cross-platform skripty, tak je nepiste. Jestli nevite nic o jinych platformach, nez vasich vyvolenych, nepiste univerzalni soudy a Velke Pravdy (tm). Nechte druhe zit, nejsou to debilove jen proto, ze nedelaji veci po vasem, priznejte si, ze nevite vse a bude vam lip. Pokud to vase ego nezvladne, tak ho zahodte a poridte si lepsi.
-
Yenya (neregistrovaný)OK, v tomhle pripade jde Perl taky pouzit (osobne povazuju split(" ") a jeho rozdil oproti split(/ /) za pekny bastl). Ale nic to nemeni na tom ze v awk je to proste kratsi bez ztraty citelnosti.
Ja nerikam ze Perl je nepouzitelny. Perl je jiste silnejsi jazyk nez awk (ostatne: a2p(1)). Jen ze nektere veci se v awk napisou kratsim a prehlednejsim zpusobem. Navic jak rikali jini, awk je vsude, perl ne.
Nove veci bych v awk nepsal. One-linery ale klidne. -
Yenya (neregistrovaný)Zapis do roury je standardni knihovnou bufferovany samozrejme i na SMP strojich - standardni knihovna se snazi prizpusobit bufferovani danemu zarizeni podle jeho pozadavku (viz stat(2) a struct stat.st_blksize). Coz znamena, ze i kdyz awk generuje v podstate radky, nevyleze z neho (z hlediska jadra a ostatnich procesu) zadny vystup driv, nez se naplni buffer velikosti st_blksize (pokud zrovna std. vystup neni znakove zarizeni, coz v tomto pripade neni). Cili ano, pokud seznam procesu k zabiti ma vic nez 4K, muze xargs kill zabit i ten awk. Ale je to nepravdepodobne, resp. musim o tom vedet a s tim pocitat (a napriklad ten one-liner spustit pak vickrat) nebo holt pridat do te kolony |fgrep -v awk| nebo neco takoveho.
Je to prenositelne v tom, ze se to chova na vsech systemech stejne. Je to samozrejme mirne nefunkcni v pripade, kdy procesu k zabiti je hodne. -
Petr (neregistrovaný)To jsem rad, ze vas to pobavilo. Mne zase pobavilo, kdyz z duvodu zabiti procesu v roure nekdo (presneji receno, autor spravovacich skriptu) na produkcnim stroji nedokazal pozastavovat procesy.
Pokud se nepletu, POSIX vyzaduje, aby buffer na pipe byl 512 byte. Cokoliv navic je prijemne lec negarantovane. -
Hmm, na první pohled by skoro člově řekl, že jste odborník, ale čím dál víc se do toho zaplétáte. Takže 512B je dobrá stovka pid. Krom toho na druhé straně té roury je xargs a to se pokusí nacpat co nejvíc na řádek a to máme druhej buffer. Do té doby kill nezašle signál nikomu. To by mě fakt zajímalo jak to skutečně bylo ta pohádka, co nám tu vykládáte.
-
JaR (neregistrovaný)Vas s perlem ma tu chybu take. Krom toho, i kdyz nestrelite sam sebe, tak muzete picnout neco, co nechcete. Je tu mala pravdepodobnost, ale je nenulova. Dobre, awk upravime:
# ps -ef | awk '/nejakyprogram/ && !/awk/ { print $2}'
Funguje vsude (eh, nevim jak se s sysV syntaxi popasuje *BSD, pravda, holt na BSD nedelam, nikdo neni dokonaly :-), pochopitelne bych tim nestrilel visici ps ani awk skript :-). A je to jen o znak delsi nez Vas priklad, ktery trpi stejnymi vadami jako puvodni awk priklad. Pokud napravite neprenositelnosti -ef, jste na stejne delce a to jeste musite opravit samostrelnou chybku a tak.
# ps -ef | perl -lane '(/nejakyprogram/ && !/perl/) && print $F[1]'
A zas je to delsi, a to je vice pravdepodobne, ze bude strilet perlovsky skript, takze uplne spravne bych mel s perlem byt specifictejsi s tou vyjimkou nez u awk :-). -
Hmm, a nebylo by bezpečnější?
ps -ef | perl -lane'/nejakyprogram/&&$F[1]!=$$&&print$F[1]'
A obdobné řešení s awk?ps -ef | awk '/nejakyprogram/{if($2!=PROCINFO["pid"])print$2}'A jseš v prdeli jak baťa s dřevákama, protože PROCINFO není v POSIX standardu. Krom toho že je to delší je dost problém s POSIX awk vyloučit vlastní awk, ale nevyloučit ostatní co mají řetězec awk třeba mezi parametry. -
JaR (neregistrovaný)Konecne myslite v perlu temer na vse, az na malickost - jste si vazne tak jisty, ze jmeno procesu je v ps -ef vzdycky zrovna pole 7 ve whitespace oddelovanych polich :-). Odpovim vam rovnou - neni, takze budete muset priklad dale opravovat, a to uz mi prijde jako prilis spaleneho casu kvuli takove blbosti, jako zjisteni pid par procesu, ktere obvykle nebudou awk skripty, a uz vubec to nebudou awk skripty zjistujici pid tehoz procesu s vyjimou awk skriptu zjistujiciho pid...dtto perl). Nehlede na to, ze porad riskujete srazku s non-perl systemem a Bata s drevakama pak jste vy. Nekomplikujme to uz zbytecne. Beru, perl se vam libi a mate pocit, ze clankem o awk byl zcela zneucten a byl jste osobne urazen pokusy znevazit vasi osobni pravdu pravdami jinymi. Omlouvam se tez za sve hluboke kacirstvi, ze ac perlista, tak pouzivam na mnoha mistech awk, neinstaluji vsude posledni verzi a tak dale, v prihodne chvili (az budu potrebovat delsi mimoradnou dovolenou) si posypu na znameni pokani hlavu perlovskymi manualy :-).
-
nedulezite (neregistrovaný)A to je nejakej problem si to doinstalovat? Nehlede na to, ze tcl, python nebo perl je default snad v kazde normalni distribuci. Ja spis narazim na to, ze psat a treba po dlouhe dobe upravovat programy v awk, vyzaduje dost specificky nahled na zpusob zpracovani souboru v awk. Me osobne vyhovuje klasicky skriptovaci jazyk a zapis typu:
for radek in open("neco.txt"): print radek.split(";")[1]mi pripada srozumitelnejsi a pro rychlou orientaci lepsi nez zdrojak zacinajici treba takto:BEGIN {FS = ";"} {print $2}Tohle je samozrejme primitivni kod, ale u slozitejsich veci to zacne byt casem mnohem horsi. -
JaR (neregistrovaný)To tedy je problem, pokud mate treba 800 serveru s sesti ruznymi unixy a kazdy z tech unixu je pochopitelne od jineho vendora a v ruznych verzich od skutecne muzealnich az po hypernove. Zkuste pak neco univerzalne rozinstalovavat a srovnavat verze perlu, kdyz netusite, kde ma kdo aplikaci zavislou prave treba na perl4 s nejakou custom dopsanou extenzi. A pak to udrzujte. Nekdy je jakekoli doinstalovavani dost osidna vec. Radeji se obejdu s necim, co je skutecne vsude a perl pouziju tam, kde to ma skutecne opodstatneni. Spravne nastroje na spravny ucel, tot vse.
-
JaR (neregistrovaný)Tak to jsem nepochopil. Aplikaci (ne moji) pro perl 4 , ktera po nainstalovani perl 5.8.x prestala chodit jsem videl dvakrat. Neco, co prestalo chodit kvuli patchi na nawk jsem jeste nikdy nevidel. Ja nerikam, ze programator asi nebyl uplne cistotny, jenze to mi je prd platne, byl to admin, kdo to z pohledu uzivatele zkurvil, ne ten programator! Nikdy se nedotykam bezicich systemu vic, nez je nutne. Moje zvyky a pohodli nikoho nezajimaji, jsem placeny za to, ze pobezi system, podrzi libovolne aplikace, da jim dohodnute prostredi a nebude se jim plest do cesty. Ne za to, ze budu uzivatelum nutit to nejlepsi. Nejsem kazatel ani obchodnik MS. Ostatne, vy jste hrdy, ze si s perlem poradite vsude, ja zase, ze si poradim s perlem nebo klidne i jen s holym unixovym prostredim, je mi to jedno. Mam volbu, a myslim, ze mit volbu je nanejvys dobra vec, a takovehle clanky, co davaji moznost se neco naucit lidem moznosti volby rozsiruji a prijde mi stupidni (a zrovna od perlisty, za to se stydim nejvic, TIMTOWTDI, vzpominate?) pod takovym clankem kritizovat cokoli jineho nez fakticke chyby v danem textu. Kdyz topic daneho clanku povazujete na pitomost a ztratu casu, tak ho sakra nectete a kaslete na nej, proc se pak obouvate do tech, co si ho chteji precist nebo se awk naucit a chovate se k nim s preziravosti, pohrdanim a aroganci kvuli ktere pak tak casto vypada OSS komunita jako banda bigotnich fanatiku? Tak do haje, chceme moznost volby, nebo ma moznost volby konci jen u toho, co schvali Pichi ci nekdo jiny, a pokud to delam jinak, tak jsem vsech kretenu futral, kteremu by meli sebrat pocitac?
Ujasneme si - rikate: kaslete na awk, jak zbytecny clanek to zase vysel, jen pitomec by nedelal v perlu, je to tak lehke, podivejte.
Druzi se snazi rici, ze je vice zpusobu, a ze jsou situace, kdy jsou alternativni neperlovske zpusoby vhodnejsi a stoji za to je znat.
Nebo jsem vas nepochopil? Tak to se omlouvam, ale nebyl jsem jediny... -
Hraesvelgr Odin (neregistrovaný)Ahojte, prosim o radu jsem naprosty zacatecnik awk/sed :) a resim problem, vedu si seznam hudby ve formatu html, mam k tomu css, vypada to asi nejak takto:
<DIV class=style_title>Black Metal</DIV>
<DIV class=band_name>1349</DIV>
<DIV class=album>Liberation</DIV>
<DIV class=album>1349</DIV>
<DIV class=album>Beyond the Apocalypse</DIV>
<DIV class=album>Chaos</DIV>
<DIV class=album>Hellfire</DIV>
<DIV class=band_name>Abigor</DIV>
<DIV class=album>Nachthymnen (From the Twilight Kingdom)</DIV>
<DIV class=album>Opus IV</DIV>
<DIV class=album>Orkblut - The Retaliation</DIV>
<DIV class=album>Invoke the Dark Age</DIV>
<DIV class=band_name>Absu</DIV>
<DIV class=album>Mythological Occult Metal</DIV>
<DIV class=album>The third storm of Cythraul</DIV>
<DIV class=band_name>Abyssos</DIV>
<DIV class=album>Fhinsthanian Nightbreed</DIV>
<DIV class=band_name>Ad Hominem</DIV>
<DIV class=album>Omnes Ad Unum</DIV>
kdyz ho chci vest, tak jsem si vy ls koval tenhle soubor s takovouhle strukturou:
/music/Music/Metal/Black/1349 Discography:
1349-1349-CDM-1999-BERC 1349-Beyond_the_Apocalypse-(Promo)-2004-FNT
1349-Hellfire-2005-BERC 1349-Chaos_Preferred-Demo-1999-AMRC
1349--Liberation-Promo-2003-UBE
/music/Music/Metal/Black/1349 Discography/1349-1349-CDM-1999-BERC:
00-1349-1349-cdm-1999-berc.m3u 00-1349-1349-cdm-1999-berc.nfo
00-1349-1349-cdm-1999-berc.sfv
/music/Music/Metal/Black/1349 Discography/1349-Beyond_the_Apocalypse-(Promo)-2004-FNT:
00-1349-beyond_the_apocalypse-(promo)-2004-fnt.m3u
00-1349-beyond_the_apocalypse-(promo)-2004-fnt.nfo
00-1349-beyond_the_apocalypse-(promo)-2004-fnt.sfv
/music/Music/Metal/Black/1349 Discography/1349-Hellfire-2005-BERC:
00_1349-hellfire-2005-berc.m3u 00_1349-hellfire-2005-berc.nfo
00_1349-hellfire-2005-berc.sfv
/music/Music/Metal/Black/1349 Discography/1349-Chaos_Preferred-Demo-1999-AMRC:
00_1349-chaos_preferred-demo-1999-amrc.m3u
00_1349-chaos_preferred-demo-1999-amrc.nfo
00_1349-chaos_preferred-demo-1999-amrc.sfv
00_1349-chaos_preferred-demo-1999-front-amrc.jpg
atd. Potreboval bych to dostat do toho html formatu a jsem bezradny, nevim jak, nevim jak odsekat co nepotrebuji atd :(, navic se kazdy album i kapela jmenuje jinak, nekdy s mezerou nekdy bez atd...
prosim alespon male "nakopnuti" nejakym smerem :D -
Hraesvelgr Odin (neregistrovaný)Tohle je zrovna blbej priklad, vetsina alb se nejmenuje 1349-Chaos_Preferred-Demo-1999-AMRC takhle debilne, ale treba jen 1997 - Chaos preffered atd, nekdy s mezerou nekdy bez, kazdopadne je to posledni adresar v te cele ceste vzdy. Takovehle vyjimky se daji dodelat rucne, celkem asi u 80ti cd :)
-
su - \mathfrak{M}ĦĒNJMARCHON (neregistrovaný)Kratka odpoved: PERL. Dlhsia odpoved: treba zistit najprv vsetky pripady, jak su popisane nazvy, potom:
opendir/readdir (rekurzivne alebo via `ls -R`), potom grep s testom -d/-f, s///, rename
Riesil som podobny problem, ale nakoniec to vzdy vyslo tak, ze clovek si dokaze pomenovat tie adresare tak, ze kazdy konecny regexp bol na to kratky :-) Ked som ogg-oval/mp3-koval svoje CD, slo to celkom easy, perl cez CDDB, ked to nenaslo (mal som par kuskov, co neboli hadam v ziadnej DB), spytalo sa na rucne zadanie. Obcas ale bolo rychlejsie skopirovat mp3 od niekoho, kto to uz z-mp3-kovane mal a popremenovavat one-linerom.
IMHO zaklady PERLu na toto sa daju naucit za den/dva (PERL je v podstate C + sed + awk + bash + kopa inych vymyslov). -
Hraesvelgr Odin (neregistrovaný):-) Diky za obe odpovedi. Tusil jsem algoritmus, nejprve odstraneni nazvu souboru (obrazky atd), pote bych osekal radky s adresarovymi cestami tak, aby se odstranilo vzdy vse po jmeno kapely, tzn kapela/album format, s timto souborem by se dalo lepe pracovat a srazit ty adresare dohromady :) kazdopadne algoritmus chapu, ale awk sed jsem zacatecnik, a tak si nedokazi predstavit moznosti jakymi toho dosahnout, a perl? no stejne jsem se ho taky planoval naucit :D, diky.
-
find ./dir -maxdepth 1 -type f -printf '%f\n' | awk -F'_' '{print $1}'nebofor f in dir/*; do [ -f $f ] && f="${f#*/}" && echo "${f%%_*}"; doneA nebo použít perl :-)
P.S.: A ještě před tím si přečtěte "Jak se správně ptát" a příště nám nejdříve zdělte co to k sakru má dělat.
P.P.S.: To druhé je jen taková ukázka, že správný perlista dokáže napsat perlový kód v čemkoli
-
Logik (neregistrovaný)Ahoj,
Asi nejjednodussi moznost je
cat file.txt | awk 'program' - file.txt
a pomoci promenne FILENAME rozlisit,
zdali je to prvni nebo druhy pruchod.
Druha moznost, pokud se da detekovat konec
souboru, tak jednoduche
awk 'program' file.txt file.txt
Jen poznamka END {} zafunguje vzdy jen
jednou, pomoci neho se soubor rozlisit
neda.
Matyas -
Díky všem!
V kódu se dá nastavit, jestli se jedná o první nebo druhý "průchod", pomocí proměnné "ARGIND" asi takto:
1) jeden parametr
gawk "BEGIN { ARGC = 3; ARGV[2] = ARGV[1]; } {print FILENAME\" - \"ARGIND,\" - \",FNR;}" test.log
test.log - 1 - 1
test.log - 1 - 2
test.log - 1 - 3
test.log - 1 - 4
test.log - 2 - 1
test.log - 2 - 2
test.log - 2 - 3
test.log - 2 - 4
2) dva parametry
gawk "{print FILENAME\" - \"ARGIND,\" - \",FNR;}" test.log test.log
test.log - 1 - 1
test.log - 1 - 2
test.log - 1 - 3
test.log - 1 - 4
test.log - 2 - 1
test.log - 2 - 2
test.log - 2 - 3
test.log - 2 - 4 -
Hanka S. (neregistrovaný)Zkoušela jsem si příklady ze článku a s posledním mám trochu problém.
ls -l | awk '{ print $3 " " $8; }'Když mám soubory s mezerami, vypíše se mi jenom první část jména. A řekněme, že u symbolických linků bych chtěla vědět, kam ukazují, takže bych potřebovala něco jako "od osmého sloupce až do konce". Jde to? -
yorik (neregistrovaný)Chtěl bych poprosit o pomoc. Jak se dá v awk pracovat s datumem a časem? Případně, kdyby to nešlo, existuje něco, kde se dá s těmito položkami pracovat. Mám na mysli pouze jednoduché operace např. odčítání - pro zjištění délky přihlášení, pro zjištění počtu dnů mezi dvěma datumy ....
Předem děkuji za odpovědi.
Jirka
