Полезные коды

Лека off

25.01.2012 / 16:32

$str="abcdefg...z"; $raz =length($str); #часть кода пропущена $pass.=substr($str, $rand[,1]); можно и проще,но будет всеровно массив.

$str='abcde...'; 
@arr =split(//,$str);

а дальше как в коде. :lol:

Koenig off

24.01.2012 / 20:28

Магистр Мёда

Тут можно поспорить, смотря какие запросы и будет зависеть от содержимого таблицы, и структуры в целом

Лека off

24.01.2012 / 08:39

абормот, там не вписан код чтоб время считать. К стати 100 sql запросов перл сделал за 0.02 секунды.

абормот off

24.01.2012 / 07:45

#тест 1 open($F,">test"); for $i (0 .. 1000000-1) {... а у меня время не пишит,но оба файла создал код. :-D

Лека off

24.01.2012 / 01:29

Дима,перл сделал по меньшей мере три ляма операций за 0.44 сек. При этом работал с файлом 5 метров и считал эти 5 метров в массив. Я не спорю

[копировать] [скачать]
import java.io.*;
public class test
{ public static void main(String[] args) { try
{ File f = new File("test"); PrintWriter pw= new PrintWriter( new BufferedWriter( new FileWriter(f))); for (int i = 0; i < 1000000; i++) { pw.print (i); } pw.close(); }
catch (IOException ioe) { ioe.printStackTrace (); } } }

вобще жестоко. :-D

Koenig off

24.01.2012 / 01:17

Магистр Мёда

Заметь тест не на смерть, а на подсчет времени, сколько определенных операции сделает пхп за одну секунду

Лека off

24.01.2012 / 01:01

Koenig,

[копировать] [скачать]
......#тест 1
open($F,">test");
for  $i (0 .. 1000000-1)
{ print $F "$i";
}
close($F);
...#тест 2
   open(TEST,"test" );
   my @test = <TEST>;
   close(TEST);
   open(TEST2,">>test2" );
foreach $str(@test) {
print TF "$str";
}

тест 1 1 wallclock secs
( 0.22 usr + 0.00 sys = 0.22
CPU) тест 2 1 wallclock
secs ( 0.22 usr + 0.00 sys =
0.22 CPU) php умрет. Массив 5 метров. :lol:

Koenig off

23.01.2012 / 21:25

Магистр Мёда

http://annimon.com/code/?act=view&id=679 нашел на хост пхп.нет тест скрипт. Не много меньше доделал

Гость

23.01.2012 / 20:45

Аааа

Это к Кенигу, он у нас спец по php.

Лека off

23.01.2012 / 20:24

XakepPRO, пустой цикл.

[копировать] [скачать]
#!/usr/bin/perl
 
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/plain; charset=utf-8\n\n";
$x=0;
while($x<10){
$end=time()+1;
$a=0;
while(time()<$end){
$a++;
}
print $a."\n";
$x++;
}
exit;

Реклама

Мы в соцсетях