Re: Which ODBC ?

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(at)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
{--------------------------------------------------
{
{