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:33 | Komunita

    42 svobodných a otevřených projektů získalo finanční podporu od NLnet Foundation (Wikipedie).

    Ladislav Hagara | Komentářů: 0
    dnes 12:22 | IT novinky

    Americký výrobce čipů Intel plánuje propustit více než 20 procent zaměstnanců. Cílem tohoto kroku je zjednodušit organizační strukturu ve firmě, která se potýká s problémy.

    Ladislav Hagara | Komentářů: 5
    dnes 05:22 | Nová verze

    Byla vydána OpenMandriva Lx 6.0 s kódovým názvem Vanadium. Přehled novinek v poznámkách k vydání.

    Ladislav Hagara | Komentářů: 0
    dnes 01:44 | Zajímavý článek

    CSIRT.CZ, český národní CERT provozovaný na základě veřejnoprávní správní smlouvy společností CZ.NIC, shrnuje patnáct let svého fungování pod tímto sdružením: CSIRT.CZ – 15 let ve sdružení CZ.NIC.

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

    Commodore OS Vision (Wikipedie) byl vydán v nové verzi 3.0. Jedná se o linuxovou distribuci určenou pro fanoušky značky Commodore. Předinstalována je na počítačích Commodore 64x.

    Ladislav Hagara | Komentářů: 8
    včera 16:22 | Pozvánky

    Spolek OpenAlt zve příznivce otevřených řešení a přístupu na 208. brněnský sraz, který proběhne v pátek 25. dubna od 18:00 ve studentském klubu U Kachničky na Fakultě informačních technologií Vysokého učení technického na adrese Božetěchova 2/1.

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

    Ve svém článku Getting Forked by Microsoft popisuje autor programu Spegel svoji nepříjemnou zkušenost s firmou Microsoft. Firma ho kontaktovala a zpočátku to vypadalo, že by mohlo jít o oboustranně prospěšnou spolupráci, autor tedy ochotně odpovídal na jejich otázky ohledně architektury programu a pomáhal jim ho zprovoznit. Následně komunikace ze strany Microsoftu utichla. Autor předpokládal, že zřejmě došlo ke změně priorit a firma

    … více »
    xkucf03 | Komentářů: 17
    včera 01:33 | IT novinky

    Společnost Notion Labs stojící za softwarovou platformou pro spolupráci Notion (Wikipedia) oficiálně představila (YouTube) poštovního klienta Notion Mail. Aktuálně funguje pouze nad Gmailem.

    Ladislav Hagara | Komentářů: 5
    21.4. 12:44 | Nová verze

    Byla vydána nová verze 9.12 z Debianu vycházející linuxové distribuce DietPi pro (nejenom) jednodeskové počítače. Přehled novinek v poznámkách k vydání.

    Ladislav Hagara | Komentářů: 0
    20.4. 03:55 | Nová verze

    Na čem aktuálně pracují vývojáři GNOME a KDE Plasma? Pravidelný přehled novinek v Týden v GNOME a Týden v KDE Plasma.

    Ladislav Hagara | Komentářů: 0
    Jaký filesystém primárně používáte?
     (58%)
     (1%)
     (10%)
     (21%)
     (4%)
     (1%)
     (2%)
     (0%)
     (1%)
     (2%)
    Celkem 432 hlasů
     Komentářů: 18, poslední 17.4. 12:41
    Rozcestník

    Dotaz: problem v Perlu s Getopt::Long

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