Thema: Perl to Php

  1. #1
    Avatar von uncopyable
    Registriert seit
    19.11.2011
    Beiträge
    282
    Thanked 235 Times in 120 Posts

    Standard Perl to Php

    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
    PHP-Code:
    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 FILELOCK_EX;

        
    # Datei einlesen
        
    chomp(my @lines = <FILE>);
        
        
    # Die Datei zurücksetzen
        
    seek FILE00;
        
    truncate FILE0;
        
        
    # 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 FILELOCK_UN;
        
    close FILE;


    Was ich schon in PHP hab aber nicht so funktioniert
    PHP-Code:
        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($fp1024)){
                
    $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


    while( behappy() ) { code(); }

  2. #2

    Registriert seit
    28.10.2011
    Beiträge
    622
    Thanked 277 Times in 168 Posts

    Standard AW: Perl to Php

    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.

  3. The Following User Says Thank You to Bubble Gum For This Useful Post:

    uncopyable (20.12.2011)

Ähnliche Themen

  1. [PERL] Vbulletin login
    Von Ta1lor im Forum Andere
    Antworten: 0
    Letzter Beitrag: 22.09.2012, 12:58
  2. [PERL] /b/ image downloader
    Von Ta1lor im Forum Andere
    Antworten: 0
    Letzter Beitrag: 22.09.2012, 01:24
  3. [S] Pokemon Diamant/Perl-Rom
    Von Strike im Forum Sonstige Games
    Antworten: 4
    Letzter Beitrag: 28.05.2012, 13:13
  4. [Perl] Arrayelemente mit Hash vergleichen
    Von McDodo im Forum Skriptsprachen
    Antworten: 2
    Letzter Beitrag: 24.03.2011, 22:49
Diese Seite nutzt Cookies, um das Nutzererlebnis zu verbessern. Klicken Sie hier, um das Cookie-Tracking zu deaktivieren.