Re: dbd::sybase string cut at 78 characters?

As others have pointed out, it may be your schema but your code has couple of red flags in that makes me think it may be in your code:

connecting to the database inside a loop - more than likely *not* what you want
creating string via loop and also inserting in loop - that's going to lead to insert foo, insert foobar, insert foobarbaz, insert foobarbazqux, etc
code formatting leaves a lot to be desired (if it's easier to read, it's easier to debug)

but maybe that's just because it's a snippet posted here for help.

-derby

Comment on Re: dbd::sybase string cut at 78 characters?

Replies are listed 'Best First'.
Re^2: dbd::sybase string cut at 78 characters? by rgcosma (Beadle) on Jun 14, 2010 at 23:55 UTC
Hello, and thanks for the hints. 1. The db field is nvarchar(MAX) 2. Sorry I didn't notice missing the }. The code is more like my ($orig, $msg, $count, $recid, $docid, $subj); while (<STDIN>) { $orig .= $_; $count++; last if ($count>100 \|\| /\w{70,}/); if (/(Precedence: bulk\|X-Auto-Response-Suppress)/i) {$msg = "out-of-t +he-office";} elsif (/Final-Recipient: rfc822;/i) {$msg = "undeliverable";} } chomp($orig);$orig=~s/\r//g;$orig=~s/\n/\t/g; #print STDERR $orig; my $dbserver='dbs'; my $user='dbu'; my $passwd='dbp'; my $db1 = DBI->connect("dbi:Sybase:server=$dbserver;database=dbd;", $u +ser, $passwd, { syb_err_handler => \&err_handler }) \|\| exit 0; my $now = time(); my ($st1, $d); $st1 = $db1->prepare("insert into bounces (recipientid, documentid, bo +uncecode, bouncesubject, bounceheaders) values (?,?,?,?,?)") \|\| exit +0; $st1->execute($recid, $docid, $msg, $subj, $orig) \|\| exit 0; [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: dbd::sybase string cut at 78 characters?
by rgcosma (Beadle) on Jun 14, 2010 at 23:55 UTC

1. The db field is nvarchar(MAX)

my ($orig, $msg, $count, $recid, $docid, $subj);
while (<STDIN>) {
 $orig .= $_;
 $count++; last if ($count>100 || /\w{70,}/);
 if (/(Precedence: bulk|X-Auto-Response-Suppress)/i) {$msg = "out-of-t
+he-office";}
 elsif (/Final-Recipient: rfc822;/i) {$msg = "undeliverable";}
 }
chomp($orig);$orig=~s/\r//g;$orig=~s/\n/\t/g; #print STDERR $orig;
my $dbserver='dbs'; my $user='dbu'; my $passwd='dbp';
my $db1 = DBI->connect("dbi:Sybase:server=$dbserver;database=dbd;", $u
+ser, $passwd, { syb_err_handler => \&err_handler }) || exit 0;
my $now = time();
my ($st1, $d);
$st1 = $db1->prepare("insert into bounces (recipientid, documentid, bo
+uncecode, bouncesubject, bounceheaders) values (?,?,?,?,?)") || exit 
+0;
$st1->execute($recid, $docid, $msg, $subj, $orig) || exit 0;
[download]

[reply]
[d/l]