Új hozzászólás Aktív témák
-
Mijo
tag
Gondolom már nem aktuális, de jól esett kitalálni a megoldást:
#!/usr/bin/perl
use strict;
my @input = (
'1.+Béla',
'Örök+Eutanázia+Roberta',
'Kiss+Miska+András',
'Aaa+Aaa',
);
sub def_k {
shift =~ m/\+([^+]+)/;
return $1 || "";
}
my @output =
#map { $_->{'o'}}
sort { $a->{'k'} cmp $b->{'k'} }
map +{ 'o'=>$_, 'k'=> def_k($_) }, @input;
foreach my $o (@output) {
#print join( "\n", @output );
print $o->{'k'}.' -- '.$o->{'o'}."\n";
}Az alkalmazott ötlet a http://en.wikipedia.org/wiki/Schwartzian_transform. A két kommentelt sor a teszteléshez van, élesben az első map veszi ki az eredeti stringeket a hashekből.
Remélem valakinek még hasznos lesz!
Üdv: Mijo''Mit csinálnak a Windows gépek klaszterben? Hát egymás reset gombjait nyomkodják mikor másik elszáll...'' by Xebi@sg.hu
Új hozzászólás Aktív témák
- Internet Rádió építése (hardver), és programozása
- Sorozatok
- Kupon kunyeráló
- Ukrajnai háború
- HYTE THICC Q60: a legvaskosabb vízhűtés
- Milyen egeret válasszak?
- Debrecen és környéke adok-veszek-beszélgetek
- Hogy is néznek ki a gépeink?
- Hobby elektronika
- Okosóra lett a Huawei fitnesz karperecéből
- További aktív témák...
- ASRock Phantom Gaming RX 5700 XT - eladó!
- ÚJ Bontatlan MacBook Pro 14 M3 Pro 11CPU/14GPU 18GB/512GB SSD Magyar billentyűzet Azonnal átvehető.
- BONTATLAN Új Iphone 15 PRO MAX 256-512GB Független 1év Apple GARANCIA Deák Térnél Azonnal Átvehető.
- OLED65GX6LA 2 Év gyári Garancia
- LG OLED55G39LA 2 Év gyári garancia
- Lenovo ThinkCentre M73 PC /i5-4460/8GB DDR3/MSI GT 710 2GB/SAMSUNG 850 PRO 256GB SSD/Wifi/Win 11 Pro
- Nothing ear (1)
- Lian Li O11 Dynamic Mini mATX gépház
- Asus Rog Phone 8 5G 256GB Dual SIM Black Emag vásárlás Gyárilag független Csere/beszámítás is!
- Lian Li Uni Fan SL-INF Infinity 120/140mm ventilátorok
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest