Thema: Perl to Php

  1. #1
    U-Hacks Routinier
    Avatar von uncopyable
    Registriert seit
    19.11.2011
    Beiträge
    282
    Thanked 234 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
    U-Labs Elite

    Registriert seit
    28.10.2011
    Beiträge
    563
    Thanked 245 Times in 156 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.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191