V Praze probíhá Flock 2026, tj. konference pro přispěvatele a příznivce Fedory. Přednášky lze sledovat také na YouTube.
Node-RED (Wikipedie, GitHub), webová aplikace postavená na Node.js pro vizuální programování a propojování hardwarových zařízení, API a online služeb, byl vydán ve verzi 5.0. Přehled novinek v příspěvku na blogu.
Byla vydána nová verze 3.27.0 FreeRDP, tj. svobodné implementace protokolu RDP (Remote Desktop Protocol). Opraveno bylo 5 zranitelností.
Řídící výbor GCC schválil záměr do GCC začlenit backend WebAssembly.
Po 9 týdnech vývoje od vydání Linuxu 7.0 oznámil Linus Torvalds vydání Linuxu 7.1. Přehled novinek a vylepšení na LWN.net: první a druhá polovina začleňovacího okna a časem také na Linux Kernel Newbies.
Cheat Engine (Wikipedie) je s verzí 7.7 k dispozici už také pro Linux. Jedná se o proprietární skener/debugger paměti používaný především k cheatování v počítačových hrách.
Vláda USA nařídila společnosti Anthropic pozastavit přístup k modelům Fable 5 a Mythos 5 pro všechny cizince, včetně zaměstnanců Anthropicu.
Společnost Murena představila (YouTube) novou verzi 4.0 mobilního operačního systému /e/OS (Wikipedie) založeného na Androidu a LineageOS bez aplikací a služeb od Googlu.
V Arch User Repository (AUR) bylo kompromitováno přes 400 opomíjených balíčků (jejich seznam). Útočník do nich začlenil škodlivý npm balíček atomic-lockfile, který krade citlivá data uživatelů. Publikována byla předběžná analýza spouštěného malwaru deps.
Homebrew, správce balíčků nejen pro macOS, byl vydán ve verzi 6.0.0 (seznam změn). Hlavními novinkami jsou bezpečnostní mechanismus tap trust kvůli důvěryhodnosti závislostí, vylepšení sandboxingu na Linuxu, interní JSON API nebo zlepšení výkonu.
#!/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: