Dnes v 17:30 bude oficiálně vydána open source počítačová hra DOGWALK vytvořena v 3D softwaru Blender a herním enginu Godot. Release party proběhne na YouTube od 17:00.
McDonald's se spojil se společností Paradox a pracovníky nabírá také pomocí AI řešení s virtuální asistentkou Olivii běžící na webu McHire. Ian Carroll a Sam Curry se na toto AI řešení blíže podívali a opravdu je překvapilo, že se mohli přihlásit pomocí jména 123456 a hesla 123456 a získat přístup k údajům o 64 milionech uchazečů o práci.
Byla vydána (𝕏) červnová aktualizace aneb nová verze 1.102 editoru zdrojových kódů Visual Studio Code (Wikipedie). Přehled novinek i s náhledy a videi v poznámkách k vydání. Ve verzi 1.102 vyjde také VSCodium, tj. komunitní sestavení Visual Studia Code bez telemetrie a licenčních podmínek Microsoftu.
Byla vydána nová verze 2.4.64 svobodného multiplatformního webového serveru Apache (httpd). Řešeno je mimo jiné 8 bezpečnostních chyb.
Společnost xAI na síti 𝕏 představila Grok 4, tj. novou verzi svého AI LLM modelu Grok.
Ministerstvo vnitra odhalilo závažný kyberincident v IT systému resortu. Systém, do kterého se dostal útočník bez oprávnění, byl odpojen a nedošlo k odcizení dat [𝕏].
Před rokem byla streamovací služba HBO Max přejmenována na Max. Dle managementu slovo HBO v názvu nebylo důležité. Včera byl Max přejmenován zpět na HBO Max. Kolik milionů dolarů to stálo? 😂
Byla vydána nová major verze 8.0.0 svobodného systému pro detekci a prevenci průniků a monitorování bezpečnosti počítačových sítí Suricata (Wikipedie). Přehled novinek v oficiálním oznámení a v aktualizované dokumentaci.
Mastodon (Wikipedie) - sociální síť, která není na prodej - byl vydán ve verzi 4.4. Přehled novinek s náhledy a videi v oznámení na blogu.
Instituce státní správy nebudou smět využívat produkty, aplikace, řešení, webové stránky a webové služby poskytované čínskou společností DeepSeek. Na doporučení Národního úřadu pro kybernetickou a informační bezpečnost rozhodla o jejich zákazu vláda Petra Fialy na jednání ve středu 9. července 2025.
Řešení dotazu:
AbcLinuxu.cz
ITBiz.cz
HDmag.cz
AbcPráce.cz
$file = "stat1.txt";
$nick = "nick xx";
open (FILE, "<$file") or die "Can't open $file: $!\n";
@lines = <FILE>;
close FILE;
open (STDOUT, ">$file") or die "Can't open $file: $!\n";
foreach $line ( @lines ) {
print $line unless /$nick/;
}
close STDOUT;
Tu to maaas:
use strict;
my $file = "aaa"; # zazov suboru
my $nick = "nick xx"; # nick na vymazanie
my @lines;
open (FILE, "<$file") or die "Can't open $file: $!\n";
while(<FILE>) { push @lines,$_; }
close FILE;
open (STDOUT, ">$file") or die "Can't open $file: $!\n";
for my $line ( @lines ) {
print STDOUT $line unless($line =~ /$nick/);
}
close STDOUT;
btw. tvoj kod je v podstate cely spravne 
Su tam 'len' 2 chyby na jednom riadku:
print $line unless /$nick/;spravne to mas mat:
print STDOUT $line unless($line =~ /$nick/);
btw. Ten kod je v podstate správně až na tu podmínku - někde mi to uteklo při editaci a zbyl mi tam jen "pahýl" ... nicméně ještě tam musí být (alespoň podle té struktury stat1.txt dle tazatele) ten $nick "orámovaný", aby to nebralo násobné výskyty řetězce nebo části jiných (nick 1 vs. nick 10, nick 11 atd.)
PS: Nehledě na to, že to celé jde napsat ještě PERLověji
unless ($line =~ /^$nick$/) jinak by to bralo pro nick1 i řádky nick10, nick11 atd. Takže správně takto:
#!/usr/bin/perl
$file = "stat1.txt";
$nick = "nick 1";
open (FILE, "<$file") or die "Can't open $file: $!\n";
@lines = <FILE>;
close FILE;
open (STDOUT, ">$file") or die "Can't open $file: $!\n";
foreach $line ( @lines ) {
print $line unless ($line =~ /^$nick$/);
}
close STDOUT;
$file = "stat1.txt"; $nick = "nick 1"; open (INFILE, "<$file") or die "Can't open $file: $!\n"; open (OUTFILE, ">$file.new") or die "Can't open $file.new: $!\n"; print OUTFILE grep $line !~ /^$nick$/, <INFILE>; close INFILE; close OUTFILE; unlink "$file"; rename "$file.new", "$file";
:
$file = "stat1.txt";
$nick = "nick 1";
open(STDOUT, ">${file}.part");
open(STDIN, "<$file");
print for grep !/^$nick$/, <>;
rename("${file}.part",$file);
#!/usr/bin/perl
$^I = "~";
$nick = "nick 6";
while (<>) {
print unless /^$nick$/;
}
To pak staci i
#!/usr/bin/perl
$nick = "nick 6";
print grep {!/^$nick$/} <>;
#!/usr/bin/perl -n
BEGIN { $nick = pop };
/^$nick\b/ || print;
Smekám! Miluju PERL ... akorát ho furt používám tak nePERLovsky, až se stydím
A co takhle?
perl -e '$n=pop;print grep{!/^$n\b/}<>' data.txt nick6
Tiskni
Sdílej:
