in reply to Building a dynamic array or some other method?

You really, really, really don't want to do that, unless you don't mean what I think you mean. As cavac suggests some sample code showing what you are trying to do would help a lot. Maybe this is a useful starting point:

use strict;
use warnings;
use Text::CSV;
use Data::Dumper;

my $csvFile = <<CSV;
A,B,C,D,E,F,G
a,b,c,d,E',f,g
a,b,c,D',e,f,g
a,b,c,d,E',f,g
a,b,c,d,E',f,g
a,b,c,D',e,f,g
CSV

open my $fIn, '<', \$csvFile;

my $csv = Text::CSV->new();

$csv->column_names($csv->getline($fIn));

my $arrayref = $csv->getline_hr_all($fIn);

print Dumper($arrayref);

[download]

Prints:

$VAR1 = [
          {
            'E' => 'E\'',
            'G' => 'g',
            'B' => 'b',
            'D' => 'd',
            'C' => 'c',
            'A' => 'a',
            'F' => 'f'
          },
          {
            'C' => 'c',
            'F' => 'f',
            'A' => 'a',
            'E' => 'e',
            'B' => 'b',
            'D' => 'D\'',
            'G' => 'g'
          },
          {
            'D' => 'd',
            'B' => 'b',
            'G' => 'g',
            'E' => 'E\'',
            'F' => 'f',
            'A' => 'a',
            'C' => 'c'
          },
          {
            'G' => 'g',
            'D' => 'd',
            'B' => 'b',
            'E' => 'E\'',
            'A' => 'a',
            'F' => 'f',
            'C' => 'c'
          },
          {
            'C' => 'c',
            'A' => 'a',
            'F' => 'f',
            'E' => 'e',
            'G' => 'g',
            'B' => 'b',
            'D' => 'D\''
          }
        ];

[download]
Optimising for fewest key strokes only makes sense transmitting to Pluto or beyond

Replies are listed 'Best First'.
Re^2: Building a dynamic array or some other method?
by CAdood (Acolyte) on Apr 23, 2024 at 07:15 UTC
    Text::CSV is my first foray into modules, and data manipulation using them.

    Thank you for the example of building dynamic arrays! With the example seen in the code, you can tell I'm trying to learn how to work through them, but in seeing your code, it's obvious I am stuck in the "old ways".

    So I'll have to figure out how to parse through this, and take values from one array and append it to values seen in another array - maintaining comma separation properly, and then delete the arrays I pulled the info from, and having condensed files when I try to dump the condensed data back into CSV files for the customers. I'm going through an entire fileserver to extract these values, and the files are absolutely HUGE, so compacting them down is imperative. (The software dumping these CSV reports is only looking for files with sensitive data in it, and we're looking at who has access to those files.)

    I played a little with excel and pivot tables, but I can't get the concatenation of accounts into a single field, just a list of accounts under each filename and permissions group, and the length is still very long. Some of these files have 12-13+ lines apiece (permutations of access rights and usernames for each file), and I'm hoping to condense them to perhaps 3 lines each.

    The removal of use Strict and use Warnings is because I don't want it barking at me when not using "my" for variables, because "my variables" don't show up in the interactive perl debugger. (unless I don't know how to use it - I've already been bitten by "error notices" BECAUSE I'm in debug mode.)

    Thank you for your example there!

[reply]

      Always use strictures (use strict; use warnings; - see The strictures, according to Seuss). If your debugger can't cope with lexical variables you really need a better debugger! You might consider using the Komodo IDE which provides an integrated debugger, although some setup is required.

      Optimising for fewest key strokes only makes sense transmitting to Pluto or beyond
[reply]
        I'm just using the built-in perl debugger in a command shell. (DOS environment)

        I'll look into the Komodo debugger. Thank you!
[reply]

In Section Seekers of Perl Wisdom