in reply to Bizarre hash/array [size,length,whatever-you-want-to-call-it] output

This has the strange habit of printing twice. If there are 18 elements I'll get 1818; 20 elements begets 2020.
No matter what I pass into your program from the command line, I can not reproduce that result. Please show the exact command line you use to get that result. Also, post the contents of the hash using: 
use Data::Dumper;
print Dumper(\%randList);

[download]

On a side note, this: 

foreach my $key (keys %randList) {
    push(@numList, $key);
}

[download]
can be simplified to this: 
@numList = keys %randList;

[download]

Replies are listed 'Best First'.
Re^2: Bizarre hash/array [size,length,whatever-you-want-to-call-it] output
by theillien1 (Acolyte) on May 31, 2010 at 07:53 UTC

    Basically, all I'm doing is running it as

    > script.pl 6 20

    The 6 being @ARGV[0] for the purpose of generating the random numbers and the 20 being $ARGV[1] and for how many numbers to generate. The computer is my system at work. I'll have to log in tomorrow sometime to get the dump that you asked for.

    As for the simplification, thanks for the suggestion. I have no doubt that there are numerous places I could optimize my code.

[reply]
[d/l]
      I tried script.pl 6 20. That doesn't work. You need at least 3 numbers. I tried script.pl 6 20 21. It worked:).
[reply]
[d/l]
[select]
Re^2: Bizarre hash/array [size,length,whatever-you-want-to-call-it] output
by theillien1 (Acolyte) on Jun 06, 2010 at 18:23 UTC
    I've added the Data::Dumper lines as you requested: 
    #!/usr/bin/perl                           

use warnings;
use strict;
use Lingua::JA::Numbers;

my $converted = "converted_numbers.csv";
my $len = $ARGV[0];
my (@numList, @rom, @kana, @kanji, %randList);
open(OUTFILE, ">$converted");
binmode OUTFILE, ":utf8";

for (my $i=0; $i<$ARGV[1]; $i++) {
    my $genlen = int rand($len);
    my $max = 1 . 0 x $genlen;
    my $num = int rand($max);
    $randList{$num} = 1;
}

use Data::Dumper;
print "Data Dump:\n";
print Dumper(\%randList) . "\n";

print "randList length: " . (scalar keys %randList) . "\n";

@numList = keys %randList;

print "Length numList: " . (scalar @numList) . "\n";

for my $num (@numList){
        my $jaRom = Lingua::JA::Numbers->new($num, {style=>'romaji'});
        my $jaKana = Lingua::JA::Numbers->new($num, {style=>'hiragana'
+});
        my $jaKanji = Lingua::JA::Numbers->new($num, {style=>'kanji'})
+;
        push(@rom, $jaRom);
        push(@kana, $jaKana);
        push(@kanji, $jaKanji);
}

my (@hyphens, @noHyphens);
for my $strg (@rom){
        @hyphens = Lingua::JA::Numbers::to_string($strg);
        for my $val (@hyphens){
                $val =~ s/-//g;
        }
        push(@noHyphens, join(" ", @hyphens));
}

@rom = @noHyphens;

my $size = scalar @numList;
print $size . "\n";
foreach (my $i=0; $i<$size; $i++){
        print OUTFILE $numList[$i] . "," . $rom[$i] . "," . $kana[$i] 
+. "," . $kanji[$i] . "\n";
}

close OUTFILE;

    [download]
    I've also added a newline at the end of the second print statement which has exposed something else: 
    msnyder@msnyder:~/bin> ./num-to-jp4.pl 6 20
Data Dump:
$VAR1 = {
          '48766' => 1,
          '9732' => 1,
          '33' => 1,
          '66526' => 1,
          '328' => 1,
          '4344' => 1,
          '438' => 1,
          '0' => 1,
          '55' => 1,
          '6' => 1,
          '5148' => 1,
          '182' => 1,
          '3' => 1,
          '46726' => 1,
          '3319' => 1,
          '59' => 1,
          '2851' => 1,
          '652' => 1
        };

randList length: 18
Length numList: 18
18

    [download]
[reply]
[d/l]
[select]
Re^2: Bizarre hash/array [size,length,whatever-you-want-to-call-it] output
by theillien1 (Acolyte) on Jun 06, 2010 at 20:28 UTC
    While I still don't know why the output is printing twice, this is the script I was ultimately trying to come up with and it works. That's all I really needed. This thread was simply a result of the odd, mostly unrelated output I was seeing. 
    #!/usr/bin/perl

use strict;
use warnings;
use Lingua::JA::Numbers;

my $len = $ARGV[0];
my (@numList, @rom, @kana, @kanji, %randList);
open(OUTFILE, '>', 'converted.csv');
binmode OUTFILE, ":utf8";

while ((scalar(keys %randList)) != $ARGV[1]){
    $randList{int (rand (1 . 0 x (int (rand $len))))} = 1;
}

@numList = keys %randList;

for my $num (@numList){
    my $jaRom = Lingua::JA::Numbers->new($num, {style=>'romaji'});
    my $jaKana = Lingua::JA::Numbers->new($num, {style=>'hiragana'});
    my $jaKanji = Lingua::JA::Numbers->new($num, {style=>'kanji'});
    push @rom, $jaRom;
    push @kana, $jaKana;
    push @kanji, $jaKanji;
}

my (@hyphens, @noHyphens);
for my $strg (@rom){
    @hyphens = Lingua::JA::Numbers::to_string($strg);
    foreach my $val (@hyphens){
        $val =~ s/-//g;
    }
    push @noHyphens, join(' ', @hyphens);
}

@rom = @noHyphens;

for (my $i = 0; $i < (scalar @numList); ++$i){
    print OUTFILE $numList[$i] . "," . $rom[$i] . "," . $kana[$i] .","
+ . $kanji[$i] . "\n";
}

close OUTFILE;

    [download]
    If we can figure out the cause of the output I'll be happy but it isn't really a pressing matter.
[reply]
[d/l]

In Section Seekers of Perl Wisdom