CHILDES - Child Language Data Exchange System

This page has been accessed $UniqueFileID
"; # Then we'll make a unique hash... $UniqueHash=bin2hex(md5($UniqueFileID)); #print "
$Unique_Hash
"; # now we'll lock the file. $FilePointer=fopen($CounterFile,"r+"); flock($FilePointer,LOCK_EX); # Now we'll read in the values in the counter file. while ($FileCount = fscanf ($FilePointer, "%s\t%s\n")) { list($HashID,$Count)=$FileCount; $CountHash[$HashID]=$Count; } # New we'll increment the number of accesses to the counter file. $CountHash[$UniqueHash]=$CountHash[$UniqueHash]+1; # now we'll rewind to the beginning of the file rewind($FilePointer); # now we'll go through each element of the hash and write it to the file. # How? By dropping all the hashes into an array. $CountKeys=array_keys($CountHash); # The stepping through that array to write them to the file. foreach($CountKeys as $TheKey) { fwrite($FilePointer,"$TheKey {$CountHash[$TheKey]}\n"); } # now we unlock and close the file. flock($FilePointer,LOCK_UN); fclose($FilePointer); # and print out the result. print "{$CountHash[$UniqueHash]}"; # # Some other time we can do this with pretty graphic numbers, but I wanted to keep # it simple for now. ?> times since Oct 18, 2003.

CHILDES is supported by grant R01-HD23998 from NIH-NICHHD.