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: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ářů: 1
včera 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ářů: 2
včera 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
včera 06:00 | Komunita

Bylo spuštěno hlasování o přednáškách a workshopech pro letošní InstallFest, jenž proběhne o víkendu 4. a 5. března v Praze. Současně byla oznámena změna místa. InstallFest se letos vrací zpět na Karlovo náměstí do budovy E.

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

Greg Kroah-Hartman potvrdil, že Linux 4.9 je jádrem s prodlouženou upstream podporou (LTS, Long Term Support). Podpora je plánována do ledna 2019. Aktuální jádra s prodlouženou podporou jsou tedy 3.2, 3.4, 3.10, 3.12, 3.16, 3.18, 4.1, 4.4 a 4.9.

Ladislav Hagara | Komentářů: 0
včera 00:11 | Zajímavý článek

Výrobce síťových prvků, společnost Netgear, spustila nový program, který slibuje vývojářům, expertům, ale i běžným uživatelům vyplacení finanční odměny za nalezení bezpečnostních chyby v jejich produktech. Za nalezení zranitelnosti v hardware, API nebo mobilní aplikaci nabízí odměnu od 150 do 15 tisíc dolarů (dle závažnosti).

Michal Makovec | Komentářů: 0
včera 00:08 | Pozvánky

V sobotu 18. 2. se v Praze v prostorách VŠE uskuteční od 9:30 již 4. ročník největší české konference o open source redakčním systému WordPress (WP) - WordCamp Praha 2017.

… více »
smíťa | Komentářů: 0
19.1. 23:58 | Komunita

Kryptoměnová komunita zahájila nový rok spuštěním projektu Blockchain.cz, jehož cílem je kolektivně nalézt ideální překlad pro čím dál frekventovanější slovo „blockchain“. Přispět návrhem může kdokoli. Sběr bude trvat až do konce září 2017. Následně bude probíhat dvoutýdenní veřejné hlasování, které bude zakončeno výběrem toho nejlepšího návrhu.

xHire | Komentářů: 9
19.1. 15:55 | Bezpečnostní upozornění

Společnost Oracle vydala čtvrtletní bezpečnostní aktualizaci svých softwarových produktů (CPU, Critical Patch Update). Opraveno je celkově 270 bezpečnostních chyb. V Oracle Java SE je například opraveno 17 bezpečnostních chyb. Vzdáleně zneužitelných bez autentizace je 16 z nich. V Oracle MySQL je opraveno 27 bezpečnostních chyb. Vzdáleně zneužitelných bez autentizace je 5 z nich.

Ladislav Hagara | Komentářů: 0
19.1. 02:48 | Nová verze

Po půl roce od vydání verze 9.0 (zprávička) byla vydána verze 10.0 zvukového serveru PulseAudio. Přehled novinek v poznámkách k vydání.

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

    Dotaz: problem v Perlu s Getopt::Long

    21.1.2008 13:03 grudge
    problem v Perlu s Getopt::Long
    Přečteno: 328×
    ps. pokladam dotaz v originalnim zneni, jak jsem ho poslal maintainerovi Getopt::Long
    #!/usr/bin/perl -w
    #
    # Please don't reject my following questions. I spend lot of time to solve that. I use perl very often
    # and i know from previous, that Getopt::Long does not like me ;) and if i've needed, i'd used Getopt::Std 
    # or 'write-on-scratch' my own @ARGV parser, but now i am working on fairly large and complex
    # Perl project and would like to use this, with useful features filled, module.
    #
    # q.1) How to order exit program if passed mix(bundled) of correct and incorrect options?
    #	-xV results in 'unknown option: x' message and then is executed version() ..
    #	!solved -- take a look below
    #
    # q.2) How to order strictly, that one-letter option !must be passed only with '-', not with '-|--'?
    #	--V :prints version as well as -V ..
    #	--p xx :prints "xx" as well as -pxx|-p xx|--print=xx|--print xx
    #
    # To solve this problems, i had tried all possible and impossible parameters for
    # Getopt::Long::Configure() but with no success.
    #
    
    use strict;
    use Getopt::Long;
    
    ##Subs
    
    sub version {
            print << 'EOF';
    this needs no version
    EOF
    	exit 0;
    };
    
    # q.3) So, how should i globally configure Getopt::Long, to became options handling exactly as is
    #	described below in usage() func?
    
    sub usage {
    	print << 'EOF';
    Usage:
    	-V, --version		print version message.
    	-?, -h, --help		print help message.
    	-p input_str
    	--print=input_str	print given string.
    EOF
    	exit 0;
    };
    
    ##Body
    
    my($version, $usage, $print_input);
    
    # When "no_ignore_case" omitted, by some ?magic reasons GetOptions returns
    # correctly, that '--V' is 'Unknown option'..
    #
    # When:
    # Getopt::Long::Configure("bundling");
    # GetOptions("V" => \$version);
    # '--V' is interpreted such a 'Unknown option: v'
    #
    # And much more strange examples can be made..
    Getopt::Long::Configure("bundling", "no_auto_abbrev", "no_ignore_case");
    
    GetOptions(
            "version|V"	=> \$version, 	## !! called &sub from here will be
    					## executed even if other opts failed..
    					## !! assign $var here, rather then
    					## call sub, preserves this behaviour..
    					## In main documentation, there is not
    					## lost a word about this and so worst,
    					## direct calling sub is there advised.
    	"help|h|?"	=> \$usage,
    	"print|p=s"	=> \$print_input,
    ) || die "bad option(s)\n";
    
    ## so, let's call what should be called from here..
    &version if $version;
    &usage if $usage;
    print "\"$print_input\" passed\n" if $print_input;
    
    ## only mark, where script ends
    print "all done, this is last exit\n";
    exit 0;
    
    # !!
    # So my final work-aroud is:
    # Complete please at least documentation 'man Getopt::Long' with some reference about
    # this "traps" ..
    #
    # Thanks for work-around &
    # Best Regards

    Odpovědi

    21.1.2008 13:18 grudge
    Rozbalit Rozbalit vše Re: problem v Perlu s Getopt::Long
    ps. diky za odpoved a zdravi ntz
    21.1.2008 15:49 grudge
    Rozbalit Rozbalit vše Re: problem v Perlu s Getopt::Long
    ps. slidil jsem na freenode a dozvedel jsem se, ze si budu muset @ARGV asi parsovat sam v pripade nejake slozite veci.. hmm.

    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.