view release on metacpan or  search on metacpan

nls/export-js.pl  view on Meta::CPAN

#!/usr/bin/perl
use DBIx::Connector;
use Encode;
use JSON;
use Data::Dumper;

my $dbuser = ((getpwuid $>)[0]);
my $dbname = $dbuser;
my $dbpass = "";
my $conn;
my $fname;
my $lang;

for (my $i = 0; $i < @ARGV; ++$i) {
	if ($ARGV[$i] =~ /^-\S/) {
		$ARGV[$i] =~ /^-dbname/ && do {
			$dbname = $ARGV[$i + 1];

nls/import-po.pl  view on Meta::CPAN

#!/usr/bin/perl
use DBIx::Connector;
use Locale::PO;
use JSON;
use Encode;
use SQL::Abstract;

my $dbuser = ((getpwuid $>)[0]);
my $dbname = $dbuser;
my $dbpass = "";
my $conn;
my $fname;
my $language;

for (my $i = 0 ; $i < @ARGV ; ++$i) {
	if ($ARGV[$i] =~ /^-/) {
		$ARGV[$i] =~ /^-dbname/ && do {
			$dbname = $ARGV[$i + 1];