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 16:22 | Nová verze

    Alibaba Cloud je dalším sponzorem nadace Omacom Foundation stojící za linuxovou distribucí Omarchy. Přislíbená částka je 3 miliony dolarů, tj. 1 milion dolarů ročně po dobu tří let. Stejná částka jako u DigitalOcean.

    Ladislav Hagara | Komentářů: 0
    dnes 16:11 | Nová verze

    Byla vydána nová verze 262 správce systému a služeb systemd (Wikipedie, GitHub).

    Ladislav Hagara | Komentářů: 0
    dnes 02:33 | IT novinky

    Canonical oznámil vydání Zephyr 26.04 LTS. Jedná se o komerční distribuci operačního systému pro mikrokontroléry Zephyr (Wikipedie) s podporou až 15 let.

    Ladislav Hagara | Komentářů: 0
    dnes 02:00 | Zajímavý projekt

    Gravity Linux je linuxová distribuce určená pro Apple Silicon s čipy M4 a novějšími. Vydána byla alfa verze pro M4 Mac mini. Gravity Linux je fork Asahi Linuxu.

    Ladislav Hagara | Komentářů: 0
    včera 22:22 | Zajímavý projekt

    Hister je osobní soukromý vyhledávač, který lze provozovat na vlastním stroji. Umí prohledávat lokální soubory, importovat historii a záložky z webových prohlížečů, procházet vybrané weby a pomocí rozšíření pro Firefox a Chrome indexovat obsah právě navštívených stránek. Nad vytvořeným indexem pak nabízí vyhledávání prostřednictvím webového rozhraní, příkazové řádky a díky podpoře MCP i nástrojům umělé inteligence. Tento

    … více »
    AfD 💙 | Komentářů: 8
    včera 13:33 | IT novinky

    Ministerstvo dopravy uznalo prozatímní schválení asistenčního systému Tesla FSD Supervised vydané nizozemským schvalovacím orgánem RDW. Připojilo se tak k Nizozemsku a dalším pěti evropským státům. Systém je díky tomuto rozhodnutí možné používat za podmínek prozatímního schválení také na území České republiky. Tesla FSD Supervised je asistenčním systémem úrovně 2 podle klasifikace SAE (částečná automatizace řízení). Řidič se

    … více »
    Ladislav Hagara | Komentářů: 20
    včera 11:22 | Upozornění

    Někteří zákazníci O2 mohou aktuálně zaznamenat zhoršenou dostupnost internetových služeb. Na odstranění potíží se pracuje [Facebook].

    Ladislav Hagara | Komentářů: 9
    včera 01:22 | Nová verze

    PyPy (Wikipedie), tj. implementace Pythonu v RPythonu, alternativa CPythonu v C, byla vydána v nové major verzi 8.0.0. Podporuje Python 2.7, 3.11 a 3.12.

    Ladislav Hagara | Komentářů: 0
    včera 00:22 | Komunita
    V rakouském Štýrském Hradci probíhá konference vývojářů a uživatelů desktopového prostředí KDE Plasma Akademy 2026. O víkendu proběhly přednášky. Videozáznamy jsou k dispozici na YouTube.
    Ladislav Hagara | Komentářů: 3
    20.9. 23:55 | Bezpečnostní upozornění

    V jádře Linux byly nalezeny a v upstremu ve verzích 5.10.270, 5.15.221, 6.1.188, 6.6.157, 6.12.109, 6.18.50 a 7.2.4 již opraveny 4 kritické zranitelnosti umožňující eskalaci práv: DirtyAH6 (CVE-2026-80844), TUNderflow (CVE-2026-81000), PPPoEject (CVE-2026-68121) a DiagSpill (CVE-2026-74469).

    Ladislav Hagara | Komentářů: 0
    Které desktopové prostředí na Linuxu používáte?
     (9%)
     (7%)
     (4%)
     (21%)
     (29%)
     (8%)
     (5%)
     (2%)
     (14%)
     (20%)
    Celkem 2714 hlasů
     Komentářů: 31, poslední 13.8. 00:27
    Rozcestník

    Dotaz: problem v Perlu s Getopt::Long

    21.1.2008 13:03 grudge
    problem v Perlu s Getopt::Long
    Přečteno: 515×
    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.