File Coverage

blib/lib/Win32/Access2Text.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Win32::Access2Text;

use warnings;
use strict;
use DBI;

our $VERSION = '0.03';

BEGIN {
	use Exporter;
	our @ISA         = qw( Exporter );
	our @EXPORT      = qw( );
	our %EXPORT_TAGS = ( );
	our @EXPORT_OK   = qw( &AccTabSaveToText );
}

sub AccTabSaveToText($$$$) {

	my ($connectionString, $fileMdb, $tabMdb, $fileTxt) = (shift, shift, shift, shift);

	my $connect   = DBI->connect("dbi:ADO:Data Source=".$fileMdb.$connectionString, "");
	my $selectAll = $connect->selectall_arrayref("SELECT * FROM [$tabMdb]");

	open(my $fhTxt, ">", $fileTxt) or die $!;

	foreach my $row ( @{$selectAll} ) {
		print $fhTxt join("\t", map {defined $_?$_:''} @{$row})."\n";
	} # foreach

	close($fhTxt) or die $!;

	$fileTxt;

} # AccTabSaveToText

1;
__END__