|Hello,
|the following code saves a randomly chosen text from Tk::Text to db
|through DBI/DBD::CSV. When you add a few characters to the widget and
|save by means of a 'change' button, the packed program crashes.
|Saving less characters is ok.
|Tested on windows xp and W98, running a bare script is ok.
|Packed simply with pp -o test.exe test.pl.
|db file test enclosed, perl is v5.8.6 from ActiveState.
|
|
|
|id|notes|entry
|1|"Thank you for using ActivePerl, ActiveStates quality-assured binary
build of Perl, available for Linux, Solaris and Windows. As part of
ActiveStates support for Perl, ActiveState provides the ActivePerl
binary packages free to the community. ActivePerl includes:
|Perl, the binary core distribution
|The Perl Package Manager , for installing Perl extension modules
|Complete documentation
|The Windows version of ActivePerl also includes:
|Perl for ISAPI, an IIS plug-in that makes perl CGI faster
|PerlScript, an ActiveX scripting engine, like JavaScript or VBScript
with a Perl brain
|PerlEz, for embedding Perl the easy way
|
|Refer to the Release Notes for information about this version of
ActivePerl.
|ActiveState Products
|
|ActiveState is the leading provider of productivity tools for Perl
programmers and technology solutions based on Perl.
|Solutions
|ASPN Perl, a complete package of Perl productivity tools and
programming information.
|PerlEx, easy website acceleration for Perl scripts.
|PerlASPX, use Perl for dynamic content generation on ASP.NET Web servers.
|Productivity Tools
|Perl Dev Kit, the essential toolkit for building Perl applications for
UNIX and Windows platforms.
|Komodo, the cross-platform integrated development environment for open
source languages.
|Visual Perl, the Perl plug-in for Visual Studio .NET.
|Contact ActiveState
|
|For installation-related support issues, contact [EMAIL PROTECTED]
|
|For general information and support, refer to the ActivePerl mailing
list at http://aspn.ActiveState.com/ASPN/Mail/Browse/Threaded/ActivePerl
|
|To report a bug, or to view bugs fixed in this release, see the
ActivePerl bug site, at http://bugs.ActiveState.com/ActivePerl
|
|Thank you for using ActivePerl, ActiveStates quality-assured binary
build of Perl,
|Komodo, the cross-platform integrated development environment for open
source languages.
|Visual Perl, the Perl plug-in for Visual Studio .NET.
|Contact ActiveState
|
|For installation-related support issues, contact [EMAIL PROTECTED]
|
|For general information and support, refer to the ActivePerl mailing
list at http://aspn.ActiveState.com/ASPN/Mail/Browse/Threaded/ActivePerl
|
|To report a bug, or to view bugs fixed in this release, see the
ActivePerl bug site, at http://bugs.ActiveState.com/ActivePerl
|
|Thank you for using ActivePerl, ActiveStates quality-assured binary
build of Perl,
|Komodo, the cross-platform integrated development environment for open
source languages.
|Visual Perl, the Perl plug-in for Visual
|sss sss s"|ascii
|
|
|
|
|__START CODE__
|#!/usr/local/perl
|use Tk;
|use Tk::Text;
|use DBI;
|use warnings;
|use strict;
|
|my ($mw,$dbh);
|our ($text);
|
|$mw = MainWindow->new();
|$mw->geometry("600x400");
|$text= $mw->Scrolled('Text',
| -scrollbars=>'e',
| )->pack(-side=>'top',
| -fill=>'both',
| );
|$mw->Button(-text=>'change',
| -command=>[\&change,\$dbh],
| )->pack();
|$mw->Button(-text=>'retrieve',
| -command=>[\&retrieve,\$dbh],
| )->pack();
|
|$dbh = DBI->connect("DBI:CSV:csv_sep_char=\\|",{RaiseError =>
1,AutoCommit => 1,})
| or die "Cannot connect: " . $DBI::errstr;
|
|retrieve(\$dbh);
|
|MainLoop;
|
|sub change {
| my ($rdbh,$notes);
| ($rdbh) = @_;
| chomp ($notes = $text->get("1.0",'end'));
| $$rdbh->do("UPDATE test SET notes=\'$notes\'")
| or die "Cannot update: " . $DBI::errstr;
|}
|
|sub retrieve {
| my ($dbh,$rdbh,$sth,$notes);
| ($rdbh) = @_;
| $dbh = $$rdbh;
| $sth = $dbh->prepare("SELECT notes FROM test")
| or die "Cannot prepare: " . $DBI::errstr;
| $sth->execute() or die "Cannot execute: " . $DBI::errstr;
| $sth->bind_col(1,\$notes) or die "Cannot bind: " . $DBI::errstr;
| my $a = $sth->fetch or die "Cannot fetch: " . $DBI::errstr;
| $text->delete("1.0",'end');
| $text->insert('end',$notes);
| $sth->finish or die "Cannot finish: " . $DBI::errstr;
|}
|__END CODE__
|
|Does anyone have a clue?
|Thanks much.
|
|-- Radek
-----------------------------------------------------------------------------------
Upon further testing, I have found problems, too.
As reported earlier, there are no problems if I use
pp -o test.exe -a ./test di_dbd_csv.pl
It works, but if I then copy test.exe to another directory and try it, I
get
---------------paste
Execution ERROR: Cannot open .\test: No such file or directory at
DBD/File.pm line 574.
called from script/di_dbd_csv.pl at 28.
Statement has no result columns to bind (perhaps you need to call
execute first) at script/di_dbd_csv.pl line 47.
------------end paste
I then went back to the original directory and used the full path name
of the 'test' file, like this:
C:\Documents and Settings\malcolm\My
Documents\perlfiles\pp_misc_tests>pp -o test.exe -a "C:/Documents and
Settings/malcolm/My Documents/perlfiles/pp_misc_tests/test di_dbd_csv.pl
with the same results.
Can anyone think of why this might be happening?
