Josh Freiermuth freiermuth

## splitmysqldump.pl
#!/usr/bin/perl -w
#
# splitmysqldump - split mysqldump file into per-database dump files.
use strict;
use warnings;
my $dbfile;
my $dbname = q{};
my $header = q{};
while (<>) {

## Count Characters in Tibco Spotfire String
Len(RXReplace([Column 1], "[^x]", "", "g"))

Replace x with the character you wish to count.
	#!/usr/bin/perl -w
	#
	# splitmysqldump - split mysqldump file into per-database dump files.
	use strict;
	use warnings;
	my $dbfile;
	my $dbname = q{};
	my $header = q{};
	while (<>) {
	Len(RXReplace([Column 1], "[^x]", "", "g"))

	Replace x with the character you wish to count.