 Perl Programming, First, Second, .... |
|
|
|
|
  |
 Oct 20 2004, 04:45 PM
Post
#1
|
|
|
Newbie [Level 2]  Group: Members Posts: 29 Joined: 19-October 04 From: Russia Member No.: 1,827  |
My Second Perl Programm
The Simple counter... u must create the file: counter.dat CODE #!/usr/bin/perl #counter.cgi urldecode{ local($val)=@_; $val=~s/\+/ /g; $val=~s/%([0-9a-hA-H]{2})/pack('C',hex($1))/ge; return $val } $dataf:='couner.dat'; open(F,"+<$dataf") || die "can't open file counter.dat"; flock(F,$LOCK_EX); @cnt=<F>; $Dat=@cnt $ip=$ENV('REMOTE_ADDR'); ($count,$ip)=split(/\s+/,@Dat); $count++; $Dat=join(' ',$count,$ip); fseek(F,0,0); print F "$Dat"; truncate(F,tell(F)); flock(F,$LOCK_UN); close(F); print "Content-Type: text/html\n\n"; print "<HTML><BODY><CENTER><small>"; print "$Dat"; print "<\small><\CENTER><\BODY><HTML>"; |
 |
 
|
|
Similar Topics
|
Lo-Fi Version | Time is now: 24th July 2008 - 12:21 PM |