Perl to Php

[uncopyable]

Guten Abend,

ich brauch hilfe bei eine Perl Script das ich in php übersetzen möchte
vielleicht kann mir da ja einer bisschen helfen?

Das Perl Script

sub checktimeout(){    
    my $now = time;
    my @out;
    
    if(!open(FILE, '+<messenger.dat')){
        print &out('ERR', $ip, -1, 'Interner Fehler! Konnte messenger.dat nicht öffnen ($!)'); exit;
    }

    # Es darf immer nur ein Zugriff auf die Datei erfolgen.
    # Daher wird gewartet, bis die Datei freigegeben ist. Anschließend wird sie wieder gesperrt,
    # damit wir in Ruhe arbeiten können.
    flock FILE, LOCK_EX;

    # Datei einlesen
    chomp(my @lines = <FILE>);
    
    # Die Datei zurücksetzen
    seek FILE, 0, 0;
    truncate FILE, 0;
    
    # Die Datei zeilenweise einlesen
    foreach(@lines){
        
        # Zeile in IP und Benutzernamen aufteilen
        ($timestamp, $userlanip, $userstatus, $userip, $username, $usersessid) = split(/\t/, $_);
        
        if($sessid ne $usersessid){
            # Letzte Meldung ist weniger als $timeout Minuten (+5 Minuten Varianz) her?
            if(($now - $timestamp) / 60 < ($timeout + 5)){
                print FILE $_ . "\n";
            }
            
        } elsif($sessid ne '') {
            # Unser Benutzer!
            print FILE join("\t", ($now, $userlanip, $userstatus, $userip, $username, $usersessid));
        }
    }

    # Datei entsperren und schließen
    flock FILE, LOCK_UN;
    close FILE;
} 

Was ich schon in PHP hab aber nicht so funktioniert

    function checktimeout() {
        $now = time();
        @out;
        $array;
        
        // Datei einlesen
        $fp = @fopen("messenger.dat", "r") or die ("Kann Datei nicht lesen.");
        
        // Die Datei zeilenweise einlesen
        //     Zeile in IP und Benutzernamen aufteilen    
        
        while($line = fgets($fp, 1024)){
            $array = explode("\t",$line);
            $timestamp = $array[0];
            $userlanip = $array[1];
            $userstatus = $array[2];
            $userip = $array[3];
            $username = $array[4];
            $usersessid = $array[5];
                    
            for($i = 0; $i < count($line); $i++ ){ 
                $username = $array[$i];
                if($username == $name){
                    echo "OK|".$ip."|".$userlanip."|".$userstatus."|".userip."|".$username;
                }            
        
            }
                    
        }
        
        // datei schliessen
        fclose($fp); 

Ps: Wusste jetzt nicht ob ich es in den PHP bereich oder hier reinmachen los ggf. verschieben danke

[Bubble Gum]

an sich siehts schon ned schlecht aus.
des @out kannste aber weglassen.

Wenn du bis morgen noch zeit hast, schaue ich morgen mal drueber. jetzt gehts schlecht, da ich mom nur mit handy on bin.