42 svobodných a otevřených projektů získalo finanční podporu od NLnet Foundation (Wikipedie).
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.
Byla vydána OpenMandriva Lx 6.0 s kódovým názvem Vanadium. Přehled novinek v poznámkách k vydání.
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.
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.
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.
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 »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.
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í.
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.
#!/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
Tiskni
Sdílej: