Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

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

by derby (Abbot)
on Jun 14, 2010 at 22:22 UTC ( #844751=note: print w/replies, xml ) Need Help??


in reply to 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;

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://844751]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (7)
As of 2021-01-27 18:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?