Re: perl to php translation
jor schrieb:
> could someone traslate this small piece of perl code to php ?
> many thanks
> Jor
>
> while ( -f <counter.lock> ) {
> select ( undef, undef, undef, 0.3 );
> }
>
> open ( LOCKFILE, ">counter.lock" );
> open (CD, "$count");
> $counter = <CD>;
> close (CD);
>
$fp = fopen("counter.lock", 'r');
while (!feof($fp)){
select ( undef, undef, undef, 0.3 );
}
fclose($fp);
$fp = fopen("counter.lock", 'w');
$fp = fopen($count, 'r');
$counter = fgets($fp));
fclose($fp);
-Ric
|