Byla vydána nová verze 8.0 (𝕏) frameworku pro vývoj webových aplikací Ruby on Rails (Wikipedie). Přehled novinek v příspěvku na blogu, v poznámkách k vydání a na GitHubu.
Byla vydána verze R14.1.3 desktopového prostředí Trinity Desktop Environment (TDE, fork KDE 3.5, Wikipedie). Přehled novinek v poznámkách k vydání, podrobnosti v seznamu změn.
Dnes v 17:00 má na YouTube online premiéru krátký film Project Gold od Blender Studia představující možnosti rozšíření Blenderu pro "malířský vzhled".
Byl představen oficiální Raspberry Pi USB 3 Hub. Cena je 12 dolarů.
Na YouTube byly zveřejněny sestříhané videozáznamy přednášek z letošního OpenAltu. Dostupné jsou také přímo z programu po kliknutí na přednášku.
Co přesně se děje, když se pomocí curlu připojujeme ke google.com? Proč to psát do terminálu, když si to můžeme pustit jako videoklip curl -v https://google.com na YouTube. 😂
Open source platforma Home Assistant (Demo, GitHub, Wikipedie) pro monitorování a řízení inteligentní domácnosti byla vydána ve verzi 2024.11.
Oficiálně byla vydána (Mastodon, 𝕏) první RC verze GIMPu 3.0. Přehled novinek v oznámení o vydání. Podrobně v souboru NEWS na GitLabu.
Hodnota Bitcoinu, decentralizované kryptoměny překonala 75 000 dolarů (1 770 157 korun).
Byla vydána nová verze 8.11.0 řádkového nástroje a knihovny pro přenos dat po různých protokolech curl. S oficiální podporou WebSocket. Opravena byla bezpečnostní chyba CVE-2024-9681.
Řešení dotazu:
$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;
print $line unless /$nick/;spravne to mas mat:
print STDOUT $line unless($line =~ /$nick/);
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;
A co takhle?
perl -e '$n=pop;print grep{!/^$n\b/}<>' data.txt nick6
Tiskni Sdílej: