Společnost Espressif (ESP8266, ESP32, …) získala většinový podíl ve společnosti M5Stack, čímž posiluje ekosystém AIoT.
Byla vydána nová stabilní verze 3.5 svobodného multiplatformního softwaru pro editování a nahrávání zvukových souborů Audacity (Wikipedie). Přehled novinek také na YouTube. Nově lze využívat cloud (audio.com). Ke stažení je oficiální AppImage. Zatím starší verze Audacity lze instalovat také z Flathubu a Snapcraftu.
50 let operačního systému CP/M, článek na webu Computer History Museum věnovaný operačnímu systému CP/M. Gary Kildall z Digital Research jej vytvořil v roce 1974.
Byl zveřejněn program a spuštěna registrace na letošní konferenci Prague PostgreSQL Developer Day, která se koná 4. a 5. června. Na programu jsou 4 workshopy a 8 přednášek na různá témata o PostgreSQL, od konfigurace a zálohování po využití pro AI a vector search. Stejně jako v předchozích letech se konference koná v prostorách FIT ČVUT v Praze.
Po 48 letech Zilog končí s výrobou 8bitového mikroprocesoru Zilog Z80 (Z84C00 Z80). Mikroprocesor byl uveden na trh v červenci 1976. Poslední objednávky jsou přijímány do 14. června [pdf].
Ještě letos vyjde Kingdom Come: Deliverance II (YouTube), pokračování počítačové hry Kingdom Come: Deliverance (Wikipedie, ProtonDB Gold).
Thunderbird 128, příští major verze naplánovaná na červenec, přijde s nativní podporou Exchange napsanou v Rustu.
Byly vyhlášeny výsledky letošní volby vedoucího projektu Debian (DPL, Wikipedie). Novým vedoucím je Andreas Tille.
Po osmi měsících vývoje byla vydána nová verze 0.12.0 programovacího jazyka Zig (GitHub, Wikipedie). Přispělo 268 vývojářů. Přehled novinek v poznámkách k vydání.
Poslední měsíc byl plný zajímavých akcí, o kterých Vám bastlíři z projektu MacGyver mohou povědět, protože se na ně sami vydali. Kde všude byli, ptáte se? Objevili se na Installfestu, Arduino Day, Hackaday Europe a tajném srazu bastlířů z Twitteru. A z každé akce pro vás mají zajímavé poznatky.
… více »A to jsem se poté, co jsem o weekendu dopsal Perl2RPM zapřísáhl, že v tak blbém jazyce, jako je Perl, už nikdy nic psát nebudu...
Je třeba předefinovat (subclassovat) pomocný objekt filer. Uprav si regulární výraz k obrazu svému. Uvedená verze dělá z blabla.tar.gz -> blabla.tar.gz-1, takže se to v ls alespoń řadí pěkně za sebe. Tebou navrhované blabla.tar-1.gz je podle mne kravina (předtím to dělalo blabla-1.tar.gz)
#!/usr/bin/perl use MIME::Parser; use Mail::Util qw( read_mbox ); { package MIME::Parser::Filer::Foobar; use base 'MIME::Parser::Filer'; sub find_unused_path { my( $self, $dir, $fname ) = @_; my $i = 0; while ( 1 ) { my $suffix = ( $i ? "-$i" : "" ); my $sname = $fname; # XXX tohle je zapotrebi upravit k obrazu svemu XXX #$sname =~ s/^(.*?)(\.|\Z)/$1$suffix$2/; $sname =~ s/\Z/$suffix/; my $path = File::Spec->catfile( $dir, $sname ); if ( !-e $path ) { $i and $self->whine( "collision with $fname in $dir: using $path" ); return $path; } $self->debug( "$path already taken" ); } continue { ++$i } } } my $filer = MIME::Parser::Filer::Foobar->new( '.' ); my $parser = new MIME::Parser; $parser->filer( $filer ); foreach my $f ( @ARGV ) { my @list = read_mbox( $f ); @list = map { join '', @{$_} } @list; map { $parser->parse_data( $_ ) if $_ } @list; }
There Is More Than One Way To Do It je naopak skvela myslenka, ktera by mela platit vsude. Samozrejme, pokud jazyk neumis dokonale, ale kopirujes jen cizi kusy kodu, ktery lepis dohromady, tak se v tom nevyznas a nepochopis to Perl se musis opravdu naucit, abys v nem mohl programovat.
Muzes poslat nejaky priklad? To by me fakt zajimalo.
#!/usr/bin/perl -w print "before\n"; { local $SIG{__WARN__} = sub { print "$$ dying!\n"; die @_ }; eval {system 'neexistujici binarka' }; } print "$$ is alive!\n"; if ( $@ ) { print STDERR "eval failed\n"; exit 1; } print "after\n";měl vypsat (číslo je PID, takže se mění)?
before 13928 dying! 13928 is alive! eval failed 13928 is alive! aftersprintf "%d" (nebo s %f) občas vrátí prázdný řetězec. blbě se to reprodukuje, stalo se nám to vždy jen při zpracování 10000 dat, když se z ničeho nic na výstupu neobjevovala nějaká čísla, když ve vstupních datech byla. stačí?
Mozna bych to ale pustil pres sprintf("%04i",$i), protoze razeni by slo ...-1, ...-10, ...-100, ...-2 ... coz je dost trapny razeni
for i in `ls`;do
použít for i in *;do
?
Tiskni Sdílej: