Re: PERL, bytecsere

2007-05-21 bef zés Pirity Tamas Gabor 
Ha jól hiszem, Kiss Gabor írta az alábbiakat:
 Kellene egy gyors otlet arra, hogy PERL-ben hogy lehet a legyorsabban
 felcserelgetni par egymillio byte-ot.
 
 Pontosabban: egy gigaszi skalarban N*3 byte van. (N kb. 0.8 .. 1.3 millio)
 Minden tripletnek fel kellene cserelni az elso es a harmadik erteket.
 (Csak hogy ertsuk: ezek egy kep pixelei, es az R-B ertekeket akarom
 kicserelni egymassal.)
 
 A jelenleg hasznalt
 $blob =~ s/(.)(.)(.)/$3$2$1/g;
 konstrukcio kb. masfel masodpercig molyol.
 Ez tul sok. 0.2 s ala kellene leszoritani.

Mennyi pénzed van gyorsabb hardverre?

-- 
PTG
A long memory is the most subversive idea in America.
Debian 3.0 -- Linux 2.6.14.3
_
linux lista  -  linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux

Re: PERL, bytecsere

2007-05-21 bef zés Faragó János 
Kiss Gabor wrote:
 Kellene egy gyors otlet arra, hogy PERL-ben hogy lehet a legyorsabban
 felcserelgetni par egymillio byte-ot.

Ebben nem igazán erős a PERL.

 A jelenleg hasznalt
 $blob =~ s/(.)(.)(.)/$3$2$1/g;
 konstrukcio kb. masfel masodpercig molyol.
 Ez tul sok. 0.2 s ala kellene leszoritani.
 
 Otletek?

Ez nagyon elegáns megoldás, de nem igazán jó a teljesítménye. Én a
helyedben megpróbálnám tömbként kezelni a képet és úgy cserélgetni az
elemeket.

Ez szerintem gyorsabb lesz:

for ($i=0; $i$n; $i+=3 )
{
$x  = $tomb[$i];
$tomb[$i]   = $tomb[$i+2];
$tomb[$i+2] = $x;
}


Üdv
Fari
_
linux lista  -  linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux

Re: PERL, bytecsere

2007-05-21 bef zés Gabor Gombas 
On Mon, May 21, 2007 at 08:02:14AM +, Kiss Gabor wrote:
 
 Kellene egy gyors otlet arra, hogy PERL-ben hogy lehet a legyorsabban
 felcserelgetni par egymillio byte-ot.
 
 Pontosabban: egy gigaszi skalarban N*3 byte van. (N kb. 0.8 .. 1.3 millio)
 Minden tripletnek fel kellene cserelni az elso es a harmadik erteket.
 (Csak hogy ertsuk: ezek egy kep pixelei, es az R-B ertekeket akarom
 kicserelni egymassal.)
 
 A jelenleg hasznalt
 $blob =~ s/(.)(.)(.)/$3$2$1/g;
 konstrukcio kb. masfel masodpercig molyol.
 Ez tul sok. 0.2 s ala kellene leszoritani.
 
 Otletek?

T.xs:

MODULE = T  PACKAGE = T 

void
swap3(IN_OUT char *p, int len)
INIT:
int i, tmp;
CODE:
for (i = 0; i  len; i += 3)
{
tmp = p[i];
p[i] = p[i + 2];
p[i + 2] = tmp;
}

Reg volt mar, hogy utoljara ilyent irtam, nem probaltam ki, de nem teljesen
kizart, hogy ez igy jo :-) Tobbi reszlet a man perlxstut-ban.

Gabor

-- 
 -
 MTA SZTAKI Computer and Automation Research Institute
Hungarian Academy of Sciences
 -
_
linux lista  -  linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux

Re: PERL, bytecsere

2007-05-21 bef zés Kiss Gabor 

In article [EMAIL PROTECTED],
=?UTF-8?B?RmFyYWfDsyBKw6Fub3M=?= [EMAIL PROTECTED] writes:
 Ez szerintem gyorsabb lesz:
 
 for ($i=0; $i$n; $i+=3 )
 {
 $x  = $tomb[$i];
 $tomb[$i] = $tomb[$i+2];
 $tomb[$i+2] = $x;
 }

4.5 masodperc. :-/

kissg
_
linux lista  -  linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux

Re: PERL, bytecsere

2007-05-21 bef zés Kiss Gabor 

In article [EMAIL PROTECTED],
Pirity Tamas Gabor [EMAIL PROTECTED] writes:
 Mennyi p=E9nzed van gyorsabb hardverre?

1179738718 masodperc. :-(

kissg
_
linux lista  -  linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux

Re: PERL, bytecsere

2007-05-21 bef zés Kiss Gabor 

In article [EMAIL PROTECTED],
[EMAIL PROTECTED] (Kiss Gabor) writes:
 A jelenleg hasznalt
 $blob =~ s/(.)(.)(.)/$3$2$1/g;
 konstrukcio kb. masfel masodpercig molyol.
 Ez tul sok. 0.2 s ala kellene leszoritani.

$blob = reverse pack('(a3)*', reverse unpack('(a3)*', $blob));

3.3 sec.

kissg
_
linux lista  -  linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux

Re: PERL, bytecsere

2007-05-21 bef zés Faragó János 
Kiss Gabor wrote:
 In article [EMAIL PROTECTED],
   =?UTF-8?B?RmFyYWfDsyBKw6Fub3M=?= [EMAIL PROTECTED] writes:
 Ez szerintem gyorsabb lesz:

 for ($i=0; $i$n; $i+=3 )
 {
 $x  = $tomb[$i];
 $tomb[$i]= $tomb[$i+2];
 $tomb[$i+2] = $x;
 }
 
 4.5 masodperc. :-/


Ez érdekes. Írtam egy kis tesztprogramot a feladatra (elküldöm
magánban). Az általad írt és a fenti megoldás van benne (plusz egy
adatfeltöltés).

A lényegi része a következő:

sub t1()
{
my $i;
my $x;

for ( $i=0; $i$bnum; $i+=3 )
{
$x  = $array[$i];
$array[$i]  = $array[$i+2];
$array[$i+2]= $x;
}
}


sub t2()
{
$str =~ s/(.)(.)(.)/$3$2$1/g;
}


A progi szerint a tömbös megoldás kb. 2-ször gyorsabb (az én gépemen).

(Az persze könnyen meglehet, hogy a tesztprogram nem jó modellezi a
feladatot.)


Üdv
Fari
_
linux lista  -  linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux

Re: wifi sebesseg

2007-05-21 bef zés Horváth Ágoston János 
Hali,

Mar tobben valaszoltak, csak egy kis adalek: az 54/108/megtobb
megasnak hirdetett halozatok tenyleg annyiak, amennyi rajuk van irva.
Csak epp a radios protokollt meg az 5-11 megas halozatokra szabtak,
igy az idozitesek is ahhoz mertek. Vagyis persze, 54/108 megabit,
amikor epp nem idozit. A gyakorlati sebessegek jocskan kisebbek, ugy
25-30-at mondanak az 54-esre, es 30-35-ot a 108-asokra. Aztan persze
ha 2 wifi eszkoz hasznalja ugyanezt a halot, akkor meg ez is
felezodik.

Ha valakinek ismeros, pontosan ugyanaz az effekt, mint a
100Mbit-gigabit ethernetnel a preamble (ott pont hogy novelni kellett
a nagyobb jelsuruseg miatt).

Agoston
_
linux lista  -  linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux

Minimalista disztribucio

2007-05-21 bef zés Faludi, Gabor (GE Indust, ConsInd) 
Sziasztok ! 

Egy flash kartyara szeretnek linuxot telepiteni minimalis X windowsal.
Kb 500mb-al kellene megoldjam. 
Van tapasztalatotok milyen disztribucioval erdemes kezdeni  ?

Ugy latom a SuSE tul sok mindent akar dependenciaban feltenni.
Alternativa, ha mindent amit gondolok leveszek ,de gondolom van ennek
kenyelmesebb modja is . 

Valakinek van otelete ?

gabor
_
linux lista  -  linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux

Re: Minimalista disztribucio

2007-05-21 bef zés Szalai Ferenc 
Faludi, Gabor (GE Indust, ConsInd) wrote:
 Sziasztok ! 

 Egy flash kartyara szeretnek linuxot telepiteni minimalis X windowsal.
 Kb 500mb-al kellene megoldjam. 
 Van tapasztalatotok milyen disztribucioval erdemes kezdeni  ?

 Ugy latom a SuSE tul sok mindent akar dependenciaban feltenni.
 Alternativa, ha mindent amit gondolok leveszek ,de gondolom van ennek
 kenyelmesebb modja is . 
   
Probalkozz ezzel:
http://www.damnsmalllinux.org/

--
Udv
Feri
_
linux lista  -  linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux

Re: PERL, bytecsere

2007-05-21 bef zés Attila Szabo 
2007, May 21 - Kiss Gabor wrote :
 $blob = reverse pack('(a3)*', reverse unpack('(a3)*', $blob));

hello,
erdekes h nalad gyorsabb a regexp-es megoldas,
en is vmi pack-es dologra gondolnek inkabb, ez igy tenyleg eleg gyors:

undef $/;
reverse pack('(i3)*', unpack('(i3)*', )); 

egy core duo macbook-on 0.6 sec, a regexp meg 2 sec...
30x futtattam mindkettot...

Atti

_
linux lista  -  linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux

Re: Minimalista disztribucio

2007-05-21 bef zés tamas gervai 
On 5/21/07, Faludi, Gabor  (GE Indust, ConsInd) [EMAIL PROTECTED] wrote:

 Egy flash kartyara szeretnek linuxot telepiteni minimalis X windowsal.
 Kb 500mb-al kellene megoldjam.
 Van tapasztalatotok milyen disztribucioval erdemes kezdeni  ?

puppylinux, de igazabol probalkozni kell, mert ezek a csodas kis
distrok kepesek boot kozben meghalni nagyon nagyon sok fajta pc-n.
-- 
Tamas
_
linux lista  -  linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux

Re: PERL, bytecsere

2007-05-21 bef zés Kiss Gabor 

Meresi hiba volt. Ujra:

# 1.5 s
   $blob=~ s/(.)(.)(.)/$3$2$1/g;   # R-B swap

# 0.01 s de fejreall a kep :-)
   $blob = reverse $blob;

# 1.2 s
   $blob = pack( '(C)*', unpack( '(xxCXXCXXCxx)*', $blob ) );

# 1.1 s
   $blob = pack( '(C)*', unpack( '(@2C @1C @0C xx)*', $blob ) );

# 0.5 s
   $blob = reverse pack('(a3)*', reverse unpack('(a3)*', $blob));

# 1.7 s
my @tomb = unpack('C*', $blob);
for (my $i=0; $i=$#tomb; $i+=3 )
{
my $x = $tomb[$i];
$tomb[$i]  = $tomb[$i+2];
$tomb[$i+2] = $x;
}
$blob = pack('C*', @tomb);

kissg
_
linux lista  -  linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux

Re: PERL, bytecsere

2007-05-21 bef zés Kiss Gabor 

In article [EMAIL PROTECTED],
[EMAIL PROTECTED] (Kiss Gabor) writes:

 # 0.01 s de fejreall a kep :-)
$blob = reverse $blob;

Vegul ennel maradtam, es 20 ms alatt pedig visszaforgatom a kesz kepet.

Kosz mindenkinek!

kissg
_
linux lista  -  linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux

Re: Minimalista disztribucio

2007-05-21 bef zés Andras HORVATH 

Faludi, Gabor  (GE Indust, ConsInd) [EMAIL PROTECTED] wrote:

 Egy flash kartyara szeretnek linuxot telepiteni minimalis X windowsal.
 Kb 500mb-al kellene megoldjam. 

ez egesz kozel van a live cd-k mereteihez, abbol meg tobb is van.
Probalkoznek egy olyannal (ubuntu, knoppix, stb, esetleg kisse
testreszabva), vagy ezzel: http://ibuild.livecd.net/

hth
raas
-- 
Those who say it cannot be done should not interrupt the person doing it.
   -- Chinese proverb

_
linux lista  -  linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux

syslog több hónapra

2007-05-21 bef zés Szabo Istvan 

Hi!

Keresgéltem én, de egyértelműen nem találtam meg, kisérletezni meg nem
szerettem volna. A kérdés, hogy a syslog-ot hol kell(ene) rávenni arra,
hogy a rotate ugyan meglegyen, de 1 évig ne törölje a log filokat?
Debian - sarge rendszer.

Előre is köszönöm a segítséget!

-- 
  (O__--
  //\   /  Varosi Csokonai Konyvtar
 //  ) |   Tel.: 59/503-152
 V__/_[EMAIL PROTECTED]   \  [EMAIL PROTECTED]

_
linux lista  -  linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux

Re: syslog több hónapra

2007-05-21 bef zés Attila SZALAY 
Hali,

Szabo Istvan írta:
 Keresgéltem én, de egyértelműen nem találtam meg, kisérletezni meg nem
 szerettem volna. A kérdés, hogy a syslog-ot hol kell(ene) rávenni arra,
 hogy a rotate ugyan meglegyen, de 1 évig ne törölje a log filokat?
 Debian - sarge rendszer.
Ha jol ertem logrotate config lesz a ludas.
/etc/logrotate/sys{klogd,log-ng}:
/var/log/logfile {
[...]
rotate 365
daily
[...]

VAGY

[...]
rotate 365
weekly
[...]


VAGY

[...]
rotate 12
monthly
[...]

Termeszetesen minel nagyobb szamot adsz meg annal tovabb maradnak meg a 
logok. Ugyanugy, ha nem logrotate-al akarod forgatni, akkor pl savelog 
emleget egy rolldir opciot is, amivel hogy ne ronditsa ossze a 
varlogot egy alternativ helyre is ramolhatja a forgatottakat.

Remelem egyrol beszelunk...

ByeZ,
WaS
_
linux lista  -  linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux

Re: syslog több hónapra

2007-05-21 bef zés Hofferek Attila 
Szabo Istvan írta:
 Keresgéltem én, de egyértelműen nem találtam meg, kisérletezni meg nem
 szerettem volna. A kérdés, hogy a syslog-ot hol kell(ene) rávenni arra,
 hogy a rotate ugyan meglegyen, de 1 évig ne törölje a log filokat?
 Debian - sarge rendszer.

Erre nem a syslogot, hanem a logrotate-t kell ravenni. /etc/logrotate.d/*
-- 
Hofferek Attila
_
linux lista  -  linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux

Re: syslog több hónapra

2007-05-21 bef zés Szabo Istvan 

On Tue, 22 May 2007, Attila SZALAY wrote:

Elöször is bocsi, a kezdőre akart menni, de mellé nyomtam. :-((

  szerettem volna. A kérdés, hogy a syslog-ot hol kell(ene) rávenni arra,
  hogy a rotate ugyan meglegyen, de 1 évig ne törölje a log filokat?
  Debian - sarge rendszer.
 Ha jol ertem logrotate config lesz a ludas.

Igen, eddig stimm.

 /etc/logrotate/sys{klogd,log-ng}:

Ez alapján akkor betettem egy syslogd-t és várom majd a fejleményeket.
Köszönöm a segítséget!

 Termeszetesen minel nagyobb szamot adsz meg annal tovabb maradnak meg a
 logok. Ugyanugy, ha nem logrotate-al akarod forgatni, akkor pl savelog
 emleget egy rolldir opciot is, amivel hogy ne ronditsa ossze a
 varlogot egy alternativ helyre is ramolhatja a forgatottakat.

 Remelem egyrol beszelunk...

Igen, köszönöm!

-- 
  (O__--
  //\   /  Varosi Csokonai Konyvtar
 //  ) |   Tel.: 59/503-152
 V__/_[EMAIL PROTECTED]   \  [EMAIL PROTECTED]


_
linux lista  -  linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux

Re: PERL, bytecsere

2007-05-21 bef zés Molnár István 
Kiss Gabor wrote:

 # 0.01 s de fejreall a kep :-)
$blob = reverse $blob;

   

$blob = reverse -$blob;

vagy méggyorsabban:

= - reverse ;
# ez csak emlék egy hasonló célú progiból, nem vagyok teljesen biztos 
benne és kipróbálni nem tudom
_
linux lista  -  linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux

Re: Minimalista disztribucio

2007-05-21 bef zés Molnár István 
Faludi, Gabor (GE Indust, ConsInd) wrote:
 Sziasztok ! 

 Egy flash kartyara szeretnek linuxot telepiteni minimalis X windowsal.
 Kb 500mb-al kellene megoldjam. 
 Van tapasztalatotok milyen disztribucioval erdemes kezdeni  ?

 Ugy latom a SuSE tul sok mindent akar dependenciaban feltenni.
 Alternativa, ha mindent amit gondolok leveszek ,de gondolom van ennek
 kenyelmesebb modja is . 

 Valakinek van otelete ?

 gabor
Én ez alapján elsőre megcsináltam, egy 256MB-os flash drive-ra, még pár 
dologgal ki is egészítettem:
http://www.shorttext.com/215t
_
linux lista  -  linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux