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í
×
včera 17:25 | IT novinky

Do prodeje (Farnell) se dostal jednodeskový počítač Tinker Board (unboxing). Jedná se o konkurenci Raspberry Pi 3 od společnosti Asus. Porovnání (jpg) těchto počítačů například na CNXSoft. Cena Tinker Boardu je 55 £.

Ladislav Hagara | Komentářů: 7
včera 14:44 | Zajímavý projekt

Byla zveřejněna pravidla hackerské soutěže Pwn2Own 2017, jež proběhne od 15. do 17. března v rámci bezpečnostní konference CanSecWes ve Vancouveru. Soutěžit se bude o více než milion dolarů v pěti kategoriích. Letos se bude útočit i na Ubuntu. Jedná se již o 10. ročník této soutěže.

Ladislav Hagara | Komentářů: 1
včera 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ářů: 1
včera 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
včera 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
22.1. 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
22.1. 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ářů: 7
Jak se stavíte k trendu ztenčování přenosných zařízení (smartphony, notebooky)?
 (11%)
 (2%)
 (73%)
 (3%)
 (10%)
Celkem 387 hlasů
 Komentářů: 31, poslední včera 19:19
Rozcestník
Reklama

Dotaz: PERL oneliner v shell skriptu-predani parametrů

6.6.2008 16:42 Terka | skóre: 13
PERL oneliner v shell skriptu-predani parametrů
Přečteno: 453×
spoustim skript s parametry:
./skript.sh 222 33 '44 44' 55

skript obsahuje:
cat soubor|perl -e ' while (<>){if (/'$4'/../'$5'/){print;}}'


protoze $4 obsahuje mezeru, skript mi nebezi korektne; za $4 se dosadi:
cat soubor|perl -e ' while (<>){if (/44' '44/../55/){print;}}'

jak mam upravit predchozi radek, aby mi tam doplnil:
cat soubor|perl -e ' while (<>){if (/44 44/../55/){print;}}'

Odpovědi

David Watzke avatar 6.6.2008 16:45 David Watzke | skóre: 74 | blog: Blog... | Praha
Rozbalit Rozbalit vše Re: PERL oneliner v shell skriptu-predani parametrů
${4//\'}
“Being honest may not get you a lot of friends but it’ll always get you the right ones” ―John Lennon
6.6.2008 16:47 Terka | skóre: 13
Rozbalit Rozbalit vše Re: PERL oneliner v shell skriptu-predani parametrů
diky, ale proc zrovna tohle ?
David Watzke avatar 6.6.2008 16:49 David Watzke | skóre: 74 | blog: Blog... | Praha
Rozbalit Rozbalit vše Re: PERL oneliner v shell skriptu-predani parametrů
Funguje to? // znamená nahrazení všech výskytů a jelikož tam už není další /, nahradí se řetězec za tím (escapovaný ') za nic. Příklad:
echo ${PATH//:/ ... }
“Being honest may not get you a lot of friends but it’ll always get you the right ones” ―John Lennon
6.6.2008 16:51 Terka | skóre: 13
Rozbalit Rozbalit vše Re: PERL oneliner v shell skriptu-predani parametrů
ne, nefunguje
David Watzke avatar 6.6.2008 16:54 David Watzke | skóre: 74 | blog: Blog... | Praha
Rozbalit Rozbalit vše Re: PERL oneliner v shell skriptu-predani parametrů
To protože sem špatně pochopil dotaz, místo apostrofů použij uvozovky.
perl -e "while (<>){if (/$4/../$5/){print;}}" soubor
V uvozovkách probíhá substituce...
“Being honest may not get you a lot of friends but it’ll always get you the right ones” ―John Lennon
6.6.2008 16:55 Terka | skóre: 13
Rozbalit Rozbalit vše Re: PERL oneliner v shell skriptu-predani parametrů
diky!
6.6.2008 18:02 Anatheman | skóre: 9 | Ostrava
Rozbalit Rozbalit vše Re: PERL oneliner v shell skriptu-predani parametrů
mozna bych jen doplnil, ze ta smycka while se da nahradit -n. Viz. perlrun(1)

perl -nle "(/$4/../$5/) && print;" soubor
6.6.2008 21:40 pht | skóre: 48 | blog: pht
Rozbalit Rozbalit vše Re: PERL oneliner v shell skriptu-predani parametrů
pokud mozno nezbavoval bych se tech apostrofu.
cat soubor|perl -e ' while (<>){if (/'"$4"'/../'"$5"'/){print;}}'
In Ada the typical infinite loop would normally be terminated by detonation.
6.6.2008 22:18 Michal Marek (twofish) | skóre: 55 | blog: { display: blog; } | Praha
Rozbalit Rozbalit vše Re: PERL oneliner v shell skriptu-predani parametrů
Jedna možnost je ty parametry předat jako proměnné prostředí a v perlu k nim přistupovat přes %ENV:
param1="$4" param2="$5" perl -e '... $ENV{"param1}  $ENV{"param2"} '
7.6.2008 12:56 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
Rozbalit Rozbalit vše Re: PERL oneliner v shell skriptu-predani parametrů
cat soubor|perl -e ' while (<>){if (/$ARGV[1]/o .. /$ARGV[2]/o){print;}}' "$4" "$5"
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é.
7.6.2008 13:02 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
Rozbalit Rozbalit vše Re: PERL oneliner v shell skriptu-predani parametrů
teda ještě lépe jak už tu někdo napsal
perl -ne '/$ARGV[1]/o .. /$ARGV[2]/o and print' "$4" "$5" < soubor
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é.

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.