Select Code to Download

Select or download this

C_WREN,Group1
CAL_CLK,Group1
...
REF_RATE[9:0],Group3
AVD0,Group4
SIDDQ,Group7

Select or download this
```
#!/usr/bin/perl

...

exit;
```

Select or download this

C:\Steve\Dev\PerlMonks\P-2013-11-23@0553-Hash>testhash.pl test.csv
Global symbol "$infile_CSV" requires explicit package name at C:\Steve
+\Dev\PerlMonks\P-2013-11-23@0553-Hash\testhash.pl line 16.
...
Global symbol "$outfile_CSV" requires explicit package name at C:\Stev
+e\Dev\PerlMonks\P-2013-11-23@0553-Hash\testhash.pl line 43.
Execution of C:\Steve\Dev\PerlMonks\P-2013-11-23@0553-Hash\testhash.pl
+ aborted due to compilation errors.

Select or download this

sub mainCSV
{
     # Open the CSV input file
     open (my $infile_CSV1, '<', "$infile_CSV") or die "Unable to open
+ $infile_CSV: $!\n";

Select or download this

sub mainCSV
{
...

     # Open the CSV input file
     open (my $infile_CSV1, '<', "$infile_CSV") or die "Unable to open
+ $infile_CSV: $!\n";

Select or download this

     # Open the output file and save hash in $outfile_RX_CSV
     open (my $outfile2, '>', "$outfile_CSV") or die "Unable to open $
+outfile_CSV: $!\n";

Select or download this

     # Open the output file and save hash in $outfile_RX_CSV
     my $outfile_CSV = &getOutputFilename($infile_CSV);
     open (my $outfile2, '>', "$outfile_CSV") or die "Unable to open $
+outfile_CSV: $!\n";

Select or download this

sub getOutputFilename
{
...

     return $outputFilename;
}

Select or download this

C:\Steve\Dev\PerlMonks\P-2013-11-23@0553-Hash>perl testhash2.pl test.c
+sv
Use of uninitialized value $_ in scalar chomp at testhash2.pl line 25,
+ <$infile_CSV1> line 1.
...
Use of uninitialized value $_ in scalar chomp at testhash2.pl line 25,
+ <$infile_CSV1> line 6.
Number of Pins: 6
Undefined subroutine &main::Dumper called at testhash2.pl line 45, <$i
+nfile_CSV1> line 6.

Select or download this

     while (my $line = <$infile_CSV1>)
     {
          chomp;
          $line =~ s/\s*\z//;

Select or download this

     while (my $line = <$infile_CSV1>)
     {
          chomp $line;
          $line =~ s/\s*\z//;

Select or download this

#!/usr/bin/perl

...
use warnings;

foreach my $infile_name (@ARGV)

Select or download this

#!/usr/bin/perl

...
use Data::Dumper;

foreach my $infile_name (@ARGV)

Select or download this

C:\Steve\Dev\PerlMonks\P-2013-11-23@0553-Hash>perl testhash2.pl test.c
+sv
Number of Pins: 6
...
REF_RATE[9:0] => ARRAY(0x4bdd10)
RX_IBIAS_2_25U[4:0] => ARRAY(0x4bdce0)

Select or download this

          $hash{$key_CSV} = \@array_CSV;

Select or download this

          my $key_CSV = shift @array_CSV;
          if ($hash{$key_CSV})
...
               warn "Duplicate key '$key_CSV'";
          };
          $hash{$key_CSV} = \@array_CSV;

Select or download this

          my ($key_CSV, $value_CSV, @extraStuff) = @array_CSV;
          if ($hash{$key_CSV})
...
               warn "Duplicate key '$key_CSV'";
          };
          $hash{$key_CSV} = $value_CSV;

Select or download this

C:\Steve\Dev\PerlMonks\P-2013-11-23@0553-Hash>perl testhash2.pl test.c
+sv
Number of Pins: 6
...
REF_RATE[9:0] => Group3
RX_IBIAS_2_25U[4:0] => Group3

Select or download this

          chomp $line;
          $line =~ s/\s*\z//;
...
               warn "Duplicate key '$key_CSV'";
          };
          $hash{$key_CSV} = $value_CSV;

Select or download this

C:\Steve\Dev\PerlMonks\P-2013-11-23@0553-Hash>perl testhash2.pl test.c
+sv
Number of Pins: 6
...
REF_RATE[9:0] => Group3
RX_IBIAS_2_25U[4:0] => Group3