Añadir datos al principio del fichero

[Yagorat]

Buenas, quisiera insertar datos en un fichero, pero no al final como con el modo "a", sino al principio. He probado de varias maneras y la única manera de hacerlo es, primero leyendo el contenido del fichero en una variable, después juntando el dato que yo quiero introducir y el contenido del fichero, y despues abriendo en formato escritura "w" y guardando la suma.

//Ejemplo
<?
$registro = "Datos que quiero poner al principio";
$filename = "prueba.txt";
$file = fopen($filename,"r+");
$contenido = fread ($file, filesize ($filename));
$cerrar = fclose($file);

// De esta manera pongo primero los datos nuevos delante.
$cadena = $registro.$contenido;

// Abró en modo "w" para que borre lo anterior
$file = fopen($filename,"w+");
$fp = fwrite($file,$cadena);
$cerrar = fclose($file);
?>

De esta manera lo consigo, pero he de abrir dos veces el fichero. He probado conbinando "aw", "wa", y demás posiblidades y nada.

Alguíen sabe algún metodo mejor. :roto:

------------------------
Solo se que no se nada.
Yagorat - Webmaster sin web