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 17:02 | Pozvánky

Přijďte si popovídat o open source obecně a openSUSE konkrétně s dalšími uživateli a vývojáři. Oslava nového vydání openSUSE Leap se uskuteční 16. prosince od 17:00 v nových prostorách firmy SUSE v Praze. K dispozici bude nějaké občerstvení a DVD pro ty, kdo je sbírají nebo ještě mají mechaniku. Po párty v kanceláři se bude pokračovat v některé z hospod v okolí.

Miška | Komentářů: 7
včera 14:55 | Zajímavý software

Byla vydána verze Alpha 1.0 otevřeného operačního systému pro chytré hodinky AsteroidOS. Podporovány jsou hodinky LG G Watch, LG G Watch Urbane, Asus ZenWatch 2 a Sony Smartwatch 3. Ukázka ovládání hodinek na YouTube. Jaroslav Řezník přednášel o AsteroidOS na chytrých hodinkách (videozáznam) na letošní konferenci OpenAlt.

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

Byly uvolněny zdrojové kódy známé rogue-like hry DoomRL. Počátky hry jsou v roce 2002. Je napsána ve FreePascalu a zdrojový kód je nyní k dispozici na GitHubu pod licencí GNU GPL 2.0. Autor pracuje na nové hře Jupiter Hell, která je moderním nástupcem DoomRL a na jejíž vývoj shání peníze prostřednictvím Kickstarteru.

Blaazen | Komentářů: 0
včera 13:15 | Pozvánky

Přijďte s námi oslavit vydání Fedory 25. Na programu budou přednášky o novinkách, diskuse, neřízený networking atd. Release Party se bude konat 16. prosince v prostorách společnosti Etnetera. Na party budou volně k dispozici také propagační materiály, nová DVD s Fedorou 25 a samozřejmě občerstvení. Přednášky budou probíhat v češtině. Pro více informací se můžete podívat na web MojeFedora.cz. Jen připomínám, že tentokrát jsme zavedli

… více »
frantisekz | Komentářů: 0
9.12. 16:38 | Komunita

Byly zveřejněny videozáznamy přednášek a workshopů z letošní konference OpenAlt konané 5. a 6. listopadu v Brně. K videozáznamům lze přistupovat ze stránky na SuperLectures nebo přes program konference, detaily o vybrané přednášce nebo workshopu a dále kliknutím na ikonku filmového pásu. Celkově bylo zpracováno 65 hodin z 89 přednášek a workshopů.

Ladislav Hagara | Komentářů: 0
9.12. 11:30 | Komunita

Bylo oznámeno, že bude proveden bezpečnostní audit zdrojových kódů open source softwaru pro implementaci virtuálních privátních sítí OpenVPN. Audit provede Matthew D. Green (blog), uznávaný kryptolog a profesor na Univerzitě Johnse Hopkinse. Auditována bude verze 2.4 (aktuálně RC 1, stabilní verze je 2.3.14). Audit bude financován společností Private Internet Access [reddit].

Ladislav Hagara | Komentářů: 4
9.12. 06:00 | Komunita

Na YouTube byl publikován Blender Institute Reel 2016, ani ne dvouminutový sestřih z filmů, které vznikly za posledních 10 let díky Blender Institutu. V institutu aktuálně pracují na novém filmu Agent 327. Dění kolem filmu lze sledovat na Blender Cloudu. Videoukázka Agenta 327 z června letošního roku na YouTube.

Ladislav Hagara | Komentářů: 0
9.12. 01:02 | Zajímavý článek

Minulý týden byly vydány verze 1.2.3 a 1.1.7 webového poštovního klienta Roundcube. V oznámení o vydání bylo zmíněno řešení bezpečnostního problému nalezeného společností RIPS a souvisejícího s voláním funkce mail() v PHP. Tento týden byly zveřejněny podrobnosti. Útočník mohl pomocí speciálně připraveného emailu spustit na serveru libovolný příkaz. Stejně, jak je popsáno v článku Exploit PHP’s mail() to get remote code execution z roku 2014.

Ladislav Hagara | Komentářů: 1
8.12. 16:00 | Nová verze

Byla vydána verze 0.98 svobodného nelineárního video editoru Pitivi. Z novinek lze zmínit například přizpůsobitelné klávesové zkratky. Videoukázka práce s nejnovější verzí Pitivi na YouTube.

Ladislav Hagara | Komentářů: 1
8.12. 15:00 | Zajímavý software

Stop motion je technika animace, při níž je reálný objekt mezi jednotlivými snímky ručně upravován a posouván o malé úseky, tak aby po spojení vyvolala animace dojem spojitosti. Jaký software lze pro stop motion použít na Linuxu? Článek na OMG! Ubuntu! představuje Heron Animation. Ten bohužel podporuje pouze webové kamery. Podpora digitálních zrcadlovek je začleněna například v programu qStopMotion.

Ladislav Hagara | Komentářů: 5
Kolik máte dat ve svém domovském adresáři na svém primárním osobním počítači?
 (32%)
 (23%)
 (29%)
 (7%)
 (5%)
 (3%)
Celkem 810 hlasů
 Komentářů: 50, poslední 29.11. 15:50
Rozcestník
Reklama

Dotaz: Perl a převod -abc na -a -b -c

David Watzke avatar 5.5.2006 15:07 David Watzke | skóre: 74 | blog: Blog... | Praha
Perl a převod -abc na -a -b -c
Přečteno: 42×
Ahoj,

éra stupidních titulků pokračuje ;-) Tentokrát bych potřeboval poradit jak převést string (v proměnný) "-abc" do pole na "-a -b -c"... přemýšlel jsem o cyklu, jenže za prvé nevím jak získat počet znaků v proměnný a za druhý jak z proměnný vypsat jen n-tej znak ... no tohle jsem zatím vymyslel:
for $no ( 1 .. (počet znaků v proměnný $_) ) {
  push @sopts, $_; # ale $_ donutit tisknout jen $no-tej znak
}
Nebo že by se to dalo udělat pomocí regexpu? To ale nevím, nic mě nenapadlo...
“Being honest may not get you a lot of friends but it’ll always get you the right ones” ―John Lennon

Odpovědi

5.5.2006 15:56 myšák | skóre: 26 | blog: EmentuX | Ostrava
Rozbalit Rozbalit vše Re: Perl a převod -abc na -a -b -c

No, není to žádný zázrak, ale mělo by to fungovat:

#!/usr/bin/perl -w

my @attrib = ();
my $i = 0;

$attributy = $ARGV[0];
$attributy =~ s/^\-//;

$length = length($attributy);

while ($i < $length){
   $attrib[$i] = "-" . substr($attributy, $i++, 1);
   print "attrib $i = $attrib[$i]\n";
}

Odborníky na PERL prosím o shovívavost ... :-)

Je nesmírně těžké být idiotem, konkurence je obrovská...
5.5.2006 16:12 Arno3t | skóre: 23 | Uherské Hradiště
Rozbalit Rozbalit vše Re: Perl a převod -abc na -a -b -c
Pokud Ti nevadi opacne poradi, mohlo by byt efektivni toto
$aaa="-abc";
while ($aaa) {
push (@uuu, chop $aaa);
}
a v poli @uuu mas vsechny znaky z $aaa vcetne podtrzitka v opacnem poradi.
5.5.2006 16:23 Filip Jirsák | skóre: 66 | blog: Fa & Bi
Rozbalit Rozbalit vše Re: Perl a převod -abc na -a -b -c
Nevím, jestli je dobré učit se programovat zrovna na Perlu… ;-) Funkce vracející délku řetezce je length(řetězec). Získání podřetězce z řetězce dělá funkce substr(řetězec, start, kolik). Pomocí regexpu by to šlo také, ale zbytečně složitě a neefektivně.
David Watzke avatar 5.5.2006 16:56 David Watzke | skóre: 74 | blog: Blog... | Praha
Rozbalit Rozbalit vše Re: Perl a převod -abc na -a -b -c
Nevím, jestli je dobré učit se programovat zrovna na Perlu… ;-)
Líbí se mi ;-)
Funkce vracející délku řetezce je length(řetězec).
A já vůl zkoušel lenght. Furt se mi to plete :-(

Všem: díky za odpovědi ;-)

“Being honest may not get you a lot of friends but it’ll always get you the right ones” ―John Lennon
5.5.2006 17:53 Filip Jirsák | skóre: 66 | blog: Fa & Bi
Rozbalit Rozbalit vše Re: Perl a převod -abc na -a -b -c
Nevím, jestli je dobré učit se programovat zrovna na Perlu… ;-)
Líbí se mi ;-) … A já zkoušel lenght. Furt se mi to plete :-(
Zkoušel a Perl už IMHO vůbec nejde dohromady :-) Nechci nikoho podceňovat, ale myslím, že nejde metodou pokus–omyl přijít na to, že $_ je implicitní prostor pro vstup, výstup a vyhledávání, $, je výstupní oddělovač polí, @_ jsou parametry podprogramu, %ENV jsou proměnné prostředí atd. atp. Aspoň referenční manuál by to chtělo :-) Taky můžu doporučit knížku Perl pro zelenáče od Pavla Satrapy (a to nejenom pro zelenáče :-) ).

Mně se Perl taky líbil, ale když jsem se po nějaké době k nějakému skriptu vrátil, zjistil jsem, že Perl je write-only :-) Pak jsem napsal skoroprogram, který obsahoval třeba toto:
foreach $prom (sort(keys(%{$zdroje{$jmeno}})))
    {
      if ((substr($prom,0,1) eq '') || (substr($prom,0,1) !~ /^\w/i))
      {
        print SPECIALNI "<h3 class='promenna'>$prom</h3>\n";
        $text = $zdroje{$jmeno}{$prom};
	do {
	  $REcount = ($text =~ s/\?\{([^}:]*)\}/&_nahraditGlobals($1)/ge);
	  $REcount += ($text =~ s/\?\{([^}:]*):([^{}]*(?:(?:\$|\*)\{[^{}]*(?:\*\{[^}]*\}[^{}]*)*[^{}]*\}[^{}]*)*[^{}]*)\}/&_nahraditGlobalsParametr($1,$2,$blok)/ge);
	} while ($REcount > 0);
        $text =~ s/(\$\{[^}:]*\})/<span class='vypisPromenne'>$1<\/span>/g;
        $text =~ s/(\$\{[^}:]*:[^{}]*(?:\*\{[^}]*\}[^}]*)*\})/<span class='vypisPromenne'>$1<\/span>/g;
        print SPECIALNI $text;
      }
      else …
A to byla poslední věc, kterou jsem v Perlu napsal :-)
5.5.2006 18:00 zabza | skóre: 52 | blog: Nad_sklenkou_cerveneho
Rozbalit Rozbalit vše Re: Perl a převod -abc na -a -b -c
Psát nečitelné programy jde v každém jazyce (i když uznávám, že perl k tomu svádí :-) )
[ivok@zero ~]$ perl -e 'print join " -", split //, "-abc"; print "\n"'
- -a -b -c
5.5.2006 18:56 Filip Jirsák | skóre: 66 | blog: Fa & Bi
Rozbalit Rozbalit vše Re: Perl a převod -abc na -a -b -c
Zatímco všechna předchozí řešení byla vlastně přepis klasického Céčkového algoritmu do Perlu, tohle je myslím opravdu Perlovské řešení :-) Krátké na zápis, ale po přečtení usoudím, zda to rozdělí po písmenkách nebo schramstne celý string najednou, snad jen podle toho, že používat split na to, abych dostal celý řetězec, by byla blbost :-)

Teď už zbývá jen nějak logicky zdůvodnit, proč v Javě, která IMHO vede naopak k tomu psát čitelné programy (ale někteří se úspěšně brání :-) ) se String.split("") chová úplně stejně, a to bez jakékoliv zmínky v dokumentaci. Asi to bude tím, že programátor v Javě neuvidí žádnou výhodu v tom, že může cyklus přepsat do jednoho řádku programu a nenapadne ho zkoušet, jak se rozdělí řetězec, když se má dělit v místě, kde je nic :-)

Pro Davida: to, co předvedl ivok, je myslím to správné perlovské řešení (přestože Perl se chlubí tím, že každá věc jde napsat mnoha způsoby). Takže pokud se chcete naučet přemýšlet o tom, jak sestavovat algoritmy, Perlu bych se zatím vyhnul. Pokud se naopak chcete naučit přemýšlet jako hacker (v původním smyslu slova), s minimem nástrojů dosahovat maximálních výsledků a nástroje používat ne zrovna obvyklým způsobem (ale přesto elegantně), je Perl ta pravá volba.
David Watzke avatar 5.5.2006 19:06 David Watzke | skóre: 74 | blog: Blog... | Praha
Rozbalit Rozbalit vše Re: Perl a převod -abc na -a -b -c
Pokud se naopak chcete naučit přemýšlet jako hacker (v původním smyslu slova), s minimem nástrojů dosahovat maximálních výsledků a nástroje používat ne zrovna obvyklým způsobem (ale přesto elegantně), je Perl ta pravá volba.
That's what I'm talkin' about, yo ;-)
“Being honest may not get you a lot of friends but it’ll always get you the right ones” ―John Lennon
David Watzke avatar 5.5.2006 19:07 David Watzke | skóre: 74 | blog: Blog... | Praha
Rozbalit Rozbalit vše Re: Perl a převod -abc na -a -b -c
Díky, tohle je... hustý.
“Being honest may not get you a lot of friends but it’ll always get you the right ones” ―John Lennon
5.5.2006 23:04 Jan Martinek | skóre: 43 | blog: johny | Brno
Rozbalit Rozbalit vše Re: Perl a převod -abc na -a -b -c
Já vím, chtěl jsi perl, ale ...
Takhle je to v Pythonu:
['-'+x for x in '-abc'[1:]]
David Watzke avatar 5.5.2006 23:09 David Watzke | skóre: 74 | blog: Blog... | Praha
Rozbalit Rozbalit vše Re: Perl a převod -abc na -a -b -c
;-) I to se bude hodit... ale až časem, až budu Perl guru :-)
“Being honest may not get you a lot of friends but it’ll always get you the right ones” ―John Lennon
David Watzke avatar 5.5.2006 18:07 David Watzke | skóre: 74 | blog: Blog... | Praha
Rozbalit Rozbalit vše Re: Perl a převod -abc na -a -b -c
Stáhnul jsem si seriál o Perlu z LinuxSoftu (verzi pro tisk), na druhý ploše si vždy otevřu Links a gVim :-) a zkoumám; takže jsem to nezjistil metodou pokus omyl. Zkoušel jsem prošmejdit ty články, Google a najít to, ale nic... Btw, hustej program ;-), skoro jako ten Perl / Unix hacker na wikipedii od Larryho :-)
“Being honest may not get you a lot of friends but it’ll always get you the right ones” ―John Lennon
5.5.2006 18:22 gat.centrum | skóre: 8
Rozbalit Rozbalit vše Re: Perl a převod -abc na -a -b -c
Ahoj, koukni sem.
David Watzke avatar 5.5.2006 18:28 David Watzke | skóre: 74 | blog: Blog... | Praha
Rozbalit Rozbalit vše Re: Perl a převod -abc na -a -b -c
Ten znám :-), ale dík.
“Being honest may not get you a lot of friends but it’ll always get you the right ones” ―John Lennon

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.