DBIx::ShowCaller a split()

[Honza Pazdziora]

On Mon, Mar 13, 2006 at 10:53:44PM +0100, Jan Kasprzak wrote:
> 
> use strict;
> 
> use DBIx::ShowCaller;
> # use DBI;
> my $dbh = DBIx::ShowCaller->connect('dbi:Oracle:', 'dbuser', 'dbpass')
> # my $dbh = DBI->connect('dbi:Oracle:', 'dbuser', 'dbpass')
>         or die;
> 
> my $temp_file = "/tmp/docasny.txt";
> 
> open(TEMP, $temp_file) or die "Soubor $temp_file nelze otevrit: $!\n";
> my $text = join('',<TEMP>);
> close TEMP;

Kdyz semka das

	$dbh->trace(9);

?

> for my $radek (split (/\n/, $text)) {
>         my $rv;
>         ($rv) = $dbh->selectrow_array('SELECT 1 FROM DUAL');
> #       ($rv) = $dbh->selectrow_array('SELECT 1 FROM DUAL');
>         if ($rv) { print "je ok\n"; } else { print "NENI OK!\n"; }
>         last;
> }
> 
> $dbh->disconnect;

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
 .project: Perl, mod_perl, DBI, Oracle, large Web systems, XML/XSL, ...
		Only self-confident people can be simple.