Convert this to Perl?

[Anon]

How would you go about converting this to Perl? I'm trying on my own, but I keep running into some problems (like the @users=<FILE>; part)?

Any help would be apreciated.

---

#!/usr/bin/perl
$refresh=3600; #log time

$log="file.dat";
print "Content-type: text/html\n\n";

$ip=$ENV{'REMOTE_ADDR'};
$time=time;
$script=$ENV{'SCRIPT_NAME'};
open(FILE,$log);
flock (FILE,3);
@users=<FILE>;
close(FILE);
foreach $lines (@users) {
chop($lines);
($ips,$times)=split('=',$lines);
$timeoff=$time-$times;
if($ips ne $ip){
if($timeoff>0 && $timeoff<$refresh) {
push @new,$lines;
}
}
}
$line="$ip=$time";
push @new,$line;
$online=$#new;
$online++;
open (WRITE,">$log");
flock (WRITE,3);
foreach $lines (@new) {
print WRITE "$lines\n";
}
close(WRITE);
exit;

[Anon]

Whoops....that should have said about converting this to PHP...

[fandelem]

open file

open(FILE,$log);

lock file, so no one else can use it

flock (FILE,3);

read contents of file into array 'users'

@users=<FILE>;

close file

close(FILE);

loop through each line

foreach $lines (@users) {

dont worry about whitespace

chop($lines);

from a format of '192.150.123.31=13

we split it at the equal sign into

$ips and $times, respectively

($ips,$times)=split('=',$lines);
#update var time off
$timeoff=$time-$times;

if ip in the file doesn't equal

current ip of person using script..

if($ips ne $ip){
if($timeoff>0 && $timeoff<$refresh) {
push @new,$lines;
}
}
}

update our line with new time

$line="$ip=$time";

update a new array called 'new'

push @new,$line;
$online=$#new;
$online++;

write to a file

open (WRITE,">$log");
flock (WRITE,3);

print contents of array 'new'

foreach $lines (@new) {
print WRITE "$lines\n";
}
close(WRITE);
exit;

hope that adds explanation.

cheers,

kyle

links that will help you:
http://www.php.net/manual/en/function.fopen.php
http://www.php.net/manual/en/function.fwrite.php
http://www.php.net/manual/en/function.getenv.php
http://www.php.net/manual/en/function.gethostbyaddr.php

[Anon]

Yeah, I already know how to do it in Perl...the example was in Perl, I wanted to see it in PHP (which is why I did the second post to clear it up, but I guess you missed that part).

Anyone else got any ideas?

[Anon]

Here's where I am getting stuck at...

global $dbroot, $ip;
$refresh = 60;
$log = "$dbroot/userson.dat"; // flatfile location
$time=@time();
$a = fopen("$log","a+");
$file = file($log);
$i=0;
while(list(,$value) = each($file)){
	$i++;
	list($ips,$times) = explode("=", $value);
	$timeoff = $time-$times;
	if ($ips !== $ip) {
		if($timeoff > 0 && $timeoff < $refresh) {		
			fputs($a, $lines."-testing-\n");
		}
	}
}
fclose($a);
$line="$ip=$time";
$a = fopen("$log","a+");
for($i2=0; $i2 < sizeof($log); $i2++) {
	fputs($a, $line."\n");
}
fclose($a);
$visitornumber = $i;
echo "<br>".$visitornumber;

I can write the IP and time to the file no problem, but I can't get it to match the current IP to the IPs in the file and delete them or leave them. If the current IP ($ip) equals a file IP ($ips), then that entire line(s) should be deleted. If the $ip does not equal $ips, then it should append the $ip=$time to the file, right now it just appends everything no matter what.