like this...
create table article(
id_article serial,
article text not null,
num_of_part_of_article int not null
);
i use this script in perl, :) very, very pig
use CGI qw/:standard/;
use DBI;
use File::Find();
my ($graba, $handDb, $archivo, $contenido, $sth, $query, $name);
$graba = undef;
$handDb = DBI->connect("dbi:Pg:dbname=XhoxXohaxX","Pi%fazes","Ley@sa") ||
die
"I cannot open the web_acer database";
@ARGV = qw (/var/www/html/acer/sp/)unless @ARGV;
sub find(&@){
&File::Find::find;
}
sub ver(){
$archivo = shift @_;
open(FILE,"<$archivo") || die "I can't open >> $archivo <<";
$contenido = ''; $parte = 20;
while (<FILE>) {
next if /^\n/;
if(/THIS IS THE TABLE HOLDING THE MAIN CONTENT OF ALL THE/g){
$graba=1;
next;
}
if(/AND THIS IS WHERE THE MAIN CONTENT TABLE ENDS/g){
$graba=undef;
last;
}
s/\'/\\'/g;
s/\"/\\"/g; #'
s/^\s//g;
# s/ +\s$//g;
# s/\t+//g;
if (defined $graba){
if(length $contenido < 7000){
$contenido.=$_;
}else{
$parte--;
$archivo =~ s%/var/www/html/acer%%;
$query = "insert into pages(path,content,partes) values
('$archivo','$contenido','$parte')";
$sth = $handDb->prepare("$query") || die "No pude preparar
la consulta: $DBI::errstr";
$sth->execute || die "No pude ejecutar la consulta:
$DBI::errstr";
$contenido = '';
}
}
}
$parte--;
$archivo =~s%/var/www/html/acer/%%;
$query = "insert into pages(path,content,partes) values
('$archivo','$contenido','$parte')";
$sth = $handDb->prepare("$query") || die "No pude preparar la
consulta: $DBI::errstr";
$sth->execute || die "No pude ejecutar la consulta: $DBI::errstr";
print "$archivo\n";
}
In this script i looking for all .html files in a directory ( recursive )
and the content of that files, I cut the content of each file, in 7Kb for
row, and save the order whit the field "partes" with a Max of 20. :)
Very very pig.
Regards!
On Mon, 12 Nov 2001, Fabio Serra wrote:
{At 16.12 12/11/2001, you wrote:
{
{
{>This behaviour, not its for th ODBC, the instalation of PG becomes with
{>that definition of TEXT_FIELD_SIZE, to repair this "ploblem" just compile
{>the PG with the Option TEXT_FILE_SIZE with more K.
{
{Yes, I can try to recompile PG, but now I have no problems to insert and
{select long text directly from the database.
{The problem arise only using unixODBC.
{What do you mean saying "Defines, more TEXT fields, for the same data. :) " ?
{Ex:
{
{create table article (
{article text not null,
{article text not null,
{);
{
{?!??
{Bye.
{
{--------------------------------------------------
{FABIO SERRA - faser(at)faser.net
{PGP available
{--------------------------------------------------
{
{