perl-data-structures

问题 Perhaps I have made this more complicated than I need it to be but I am currently trying to store an array that contains, among other things, an array inside a hash in Perl. i.e. hash -> array -> array use strict; my %DEVICE_INFORMATION = {}; #global hash sub someFunction() { my $key = 'name'; my @storage = (); #assume file was properly opened here for the foreach-loop foreach my $line (<DATA>) { if(conditional) { my @ports = (); $storage[0] = 'banana'; $storage[1] = \@ports; $storage[2] = '0

问题 I am using a 32 bit perl in my openvms system.(So perl can access up till 2gb of virtual address space ). I am hitting "out of memory!" in a large perl script. I zeroed in on the location of variable causing this . However after my tests with devel:size it turns out the array is using only 13 Mb memory and the hash is using much less than that. My question is about memory profiling this perl script in VMS. is there a good way of doing memory profile on VMS? I used size to get size of array

问题 I have just picked up Perl. I have a little confusion with accessing hash values. Below is the code where I am trying to access the values of a hash inside a hash. Since am using a simple text editor to code, I am not able to figure out what can be the problem. Please help my %box = ( Milk => { A => 5, B => 10, C => 20, }, Chocolate => { AB => 10, BC => 25, CD => 40, }, ); foreach my $box_key(keys %box) { foreach my $inside_key (keys %box{box_key}) print "$box_key"."_$inside_key""is for

问题 I have a function which extracts Excel data into an array of hashes like so: sub set_exceldata { my $excel_file_or = '.\Excel\ORDERS.csv'; if (-e $excel_file_or) { open (EXCEL_OR, $excel_file_or) || die("\n can't open $excel_file_or: $!\n"); while () { chomp; my ( $id, $date, $product, $batchid, $address, $cost ) = split ","; my %a = ( id => $id , date => $date , product => $product , batchid => $batchid , address => $address , cost => $cost ); push ( @array_data_or, \%a ); } close EXCEL_OR;

问题 In the quest to make my data more accessible, I want to store my tabulated data in a complex hash. I am trying to grow a 'HoHoHoA' as the script loops over my data. As per the guidelines in 'perldsc': push @ { $hash{$column[$i]}{$date}{$hour} }, $data[$i]; The script compiles and runs without a problem, but doesn't not add any data to the hash: print $hash{"Frequency Min"}{"09/07/08"}{"15"}; returns nothing even though the keys should exist. Running an 'exists' on the hash shows that it does

问题 In the quest to make my data more accessible, I want to store my tabulated data in a complex hash. I am trying to grow a 'HoHoHoA' as the script loops over my data. As per the guidelines in 'perldsc': push @ { $hash{$column[$i]}{$date}{$hour} }, $data[$i]; The script compiles and runs without a problem, but doesn't not add any data to the hash: print $hash{"Frequency Min"}{"09/07/08"}{"15"}; returns nothing even though the keys should exist. Running an 'exists' on the hash shows that it does

问题 I know about the hash use of the => operator, like this $ cat array.pl %ages = ('Martin' => 28, 'Sharon' => 35, 'Rikke' => 29,); print "Rikke is $ages{Rikke} years old\n"; $ perl array.pl Rikke is 29 years old $ and I thought it was just syntax to initialize hashes, but in answers to How can I qualify a variable as const/final in Perl?, => has been used like this use Readonly; Readonly my $infilename => "input_56_12.txt"; What exactly does => mean? Are there more ways in which => can be used?

问题 In Perl, how do I get this: $VAR1 = { '999' => { '998' => [ '908', '906', '0', '998', '907' ] } }; $VAR1 = { '999' => { '991' => [ '913', '920', '918', '998', '916', '919', '917', '915', '912', '914' ] } }; $VAR1 = { '999' => { '996' => [] } }; $VAR1 = { '999' => { '995' => [] } }; $VAR1 = { '999' => { '994' => [] } }; $VAR1 = { '999' => { '993' => [] } }; $VAR1 = { '999' => { '997' => [ '986', '987', '990', '984', '989', '988' ] } }; $VAR1 = { '995' => { '101' => [] } }; $VAR1 = { '995' => {

问题 I have a scalar $subscribers that could be undef, reference to a HASH, or reference to an ARRAY. I have assigned the sample values $VAR1 , $VAR2 and $VAR3 for testing. I'm only interested in $subscribers when it is a reference to an ARRAY, where by it would contain multiple values. In other cases, I'm not interested in printing anything (e.g. when $subscribers=$VAR2; The code seems to run fine under Perl v5.16.2; however, when I move it to the target machine running Perl v5.8.8, I get a

问题 I've dynamic nested hash-refs like this: my $hash = { 'a' => { 'b' => { 'c' => 'value' } } }; I want to set the value of c to 'something' by allowing the user to input "a.b.c something". Now getting the value could be done like this: my $keys = 'a.b.c'; my $v='something'; my $h = $hash; foreach my $k(split /\./, $keys) { $h = $h->{$k}; } print $h; # "value" But how would I set the value of key c to $v so that print Dumper $hash; would reflect the change? $h is not a ref at the end of the