Spotify spustilo přehrávání v bezztrátové kvalitě. V předplatném Spotify Premium.
Spoluzakladatel a předseda správní rady americké softwarové společnosti Oracle Larry Ellison vystřídal spoluzakladatele automobilky Tesla a dalších firem Elona Muska na postu nejbohatšího člověka světa. Hodnota Ellisonova majetku díky dnešnímu prudkému posílení ceny akcií Oraclu odpoledne vykazovala nárůst o více než 100 miliard dolarů a dosáhla 393 miliard USD (zhruba 8,2 bilionu Kč). Hodnota Muskova majetku činila zhruba 385 miliard dolarů.
Bylo vydáno Eclipse IDE 2025-09 aneb Eclipse 4.37. Představení novinek tohoto integrovaného vývojového prostředí také na YouTube.
T-Mobile od 15. září zpřístupňuje RCS (Rich Communication Services) zprávy i pro iPhone.
Společnost ARM představila platformu Arm Lumex s Arm C1 CPU Cluster a Arm Mali G1-Ultra GPU pro vlajkové chytré telefony a počítače nové generace.
Unicode Consortium, nezisková organizace koordinující rozvoj standardu Unicode, oznámila vydání Unicode 17.0. Přidáno bylo 4 803 nových znaků. Celkově jich je 159 801. Přibylo 7 nových Emoji.
Apple představil (YouTube) telefony iPhone 17 Pro a iPhone 17 Pro Max, iPhone 17 a iPhone Air, sluchátka AirPods Pro 3 a hodinky Watch Series 11, Watch SE 3 a Watch Ultra 3.
Realtimová strategie Warzone 2100 (Wikipedie) byla vydána ve verzi 4.6.0. Podrobný přehled novinek, změn a oprav v ChangeLogu na GitHubu. Nejnovější verzi Warzone 2100 lze již instalovat také ze Snapcraftu a Flathubu.
Polské vývojářské studio CD Projekt Red publikovalo na Printables.com 3D modely z počítačové hry Cyberpunk 2077.
Organizátoři konference LinuxDays 2025 vydali program a zároveň otevřeli registrace. Akce se uskuteční 4. a 5. října na FIT ČVUT v pražských Dejvicích, kde vás čekají přednášky, workshopy, stánky a spousta šikovných lidí. Vstup na akci je zdarma.
Zdravim všechny.
Potřeboval bych poradit/postrčit, kde mám chybičku v malém scriptíčku. ((: .... >.<
Tady je:
<PRE>
#!/usr/bin/perl
use strict;
use warnings;
use Net::CIDR::Lite;
my $ipv4String='[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}';
if(defined $ARGV[0] && $ARGV[0] eq '-h'){
print "usage: $0
This script summarizes your IP classes (if possible). Input IPs with mask one per line. End with CTRL+D. Optionally,
redirect a file to stdin like so:
$0 < cidr =" Net::CIDR::Lite-">new;
while(<>){
if(/($ipv4String\/[0-9]{1,2})/){
my $item=$1;
$cidr->add($item);
}
else{
print "Ignoring previous line.\n";
}
}
my @cidr_list = $cidr->list;
print "======Aggregated IP list:======\n";
foreach my $item(@cidr_list){
print "$item\n";
}
Kdyz to spustim tak mi to píše tohle:
Bareword found where operator expected at ./summarisation.pl line 12, near "$0 < cidr =" Net::CIDR::Lite"
(Might be a runaway multi-line "" string starting on line 9)
(Missing operator before Net::CIDR::Lite?)
String found where operator expected at ./summarisation.pl line 24, near "print ""
(Might be a runaway multi-line "" string starting on line 20)
(Missing semicolon on previous line?)
String found where operator expected at ./summarisation.pl line 26, near "print ""
(Might be a runaway multi-line "" string starting on line 24)
(Missing semicolon on previous line?)
Backslash found where operator expected at ./summarisation.pl line 26, near "$item\"
(Missing operator before \?)
String found where operator expected at ./summarisation.pl line 26, at end of line
(Missing semicolon on previous line?)
syntax error at ./summarisation.pl line 12, near "$0 < cidr =" Net::CIDR::Lite"
Global symbol "$item" requires explicit package name at ./summarisation.pl line 26.
Can't find string terminator '"' anywhere before EOF at ./summarisation.pl line 26.
</PRE>
Předem děkuji
$0 < cidr =" Net::CIDR::Lite-">new;
To má dělat to, že co vložíš z klávesnice po spustění scriptu přidá jako object new.
Podrobnosti zde: http://search.cpan.org/dist/Net-CIDR-Lite/Lite.pm
V perlu moc neumim, takže je možný že tam fakt někde chybí závorka či něco jinýho, akorát nejsem schopnej říct kde a co?
Takže jestli víš, budu rád když mi to prozradíš...
Díky
my $cidr = Net::CIDR::Lite->new;
) hodit na samostatnou řádku, takhle nemáš vůbec proměnou $cidr
definovanou. Tím zrušíš ten řádek, na který jses se tě ptal. Dobré taky bývá po zobrazení nápovědy skript ukončit.
Tiskni
Sdílej: