Día: 5 de enero de 2006

#!/usr/bin/perl # # Obtiene estadisticas diarias sobre ociojoven.com y ojgames.com # use DBI; &ConnectDatabase; $path=»/tmp/product.csv»; @tablas=( «eZTrade_Category», «eZTrade_Quantity»); foreach $tabla (@tablas){ $path=»/tmp/$tabla.csv»; $sql= «SELECT * INTO OUTFILE ‘$path’ FIELDS TERMINATED BY ‘;’ ENCLOSED BY ‘\»‘ LINES TERMINATED BY ‘\r\n’ FROM $tabla»; $foo = &QueryOneFetch ($sql ); } &DisconnectDatabase; #Nos conecta a la base de datos…