PHP in PERL umschreiben

[Christian Kruse]

Hallo Andreas,

<?php
$file ='access_log';
$fp = fopen ($file, 'r');
do {
    $line = fgets($fp,4096);
    if (strlen($line) == 0) {
        break;
    }
    // hier die Filterfunktion
} while(true);
fclose ($fp);
?>

Sinnvoller:

while(($line = fgets($fp)) !== false) {
  // tu was
}

Gruesse,
 CK