我有两个包含这样的数据的文件：
FILE1包含组号（第一列）和切换另一组（第二列）的频率（第三列）：
FILE1：
1 2 0.6 2 1 0.6 3 1 0.4 1 3 0.4 2 3 0.2等等...
FILE2包含组编号（第一列）及其出现频率（第二列）。
FILE2：
1 0.9 2 0.7 3 0.5等等...
我想创建另一个包含FILE2的文件，其中包含来自FILE1的每个开关的值，如下所示：
1 0.9 2 0.6 3 0.4 ... 2 0.7 1 0.6 3 0.2 ...基本上，我希望第一列是组号，第二列是它出现的频率，然后是它们切换到的组和该开关的频率，然后接下来在该特定组的同一行中切换，然后是下一行 - 组2等
所以我想在FILE1中读取，为每个组创建一个数组哈希，其中键是组号，值是他们切换到的组以及该开关的频率。 我将为每个组包含一个大数组，其中包含他们切换到的每个组的子阵列和频率。 然后我想用与第一个哈希中相同的键创建另一个哈希，但是使用FILE2中第一列的数字和FILE2的第二列中的值。 然后我将打印出“hash2 key hash2 value hash1 full array for the key”。 这是我使用Perl的尝试：
#!/usr/bin/perl -W $input1= $ARGV[0]; $input2 = $ARGV[1]; $output = $ARGV[2]; %switches=(); open (IN1, "$input1"); while (<IN1>) { @tmp = split (/\s+/, $_); chomp @tmp; $group = shift @tmp; $switches{$group} = [@tmp]; push (@{$switches{$group}}, [@tmp]); } close IN1; %groups=(); open (IN2, "$input2"); while (<IN2>) { chomp $_; ($group, $pop) = split (/\s+/, $_); $groups{$group} = $pop; } close IN2; open (OUT, ">$output"); foreach $group (keys %groups) { print OUT "$group $pop @{$switches{$group}}\n" } close OUT;我得到的输出包含如下内容：
1 0.1 2 0.1 ARRAY(0x100832330) 2 0.3 5 0.2 ARRAY(0x1008325d0)所以基本上：
“组”“最后一个频率号码”“该组切换到的最后一组”“最后一个开关频率”“像ARRAY（0x100832330）一样”
我假设我在使用FILE1时将所有开关推入数组的散列并且在打印时最后使用解除引用来解决问题。
请帮忙，谢谢！
I have two files containing data like this:
FILE1 contains group numbers (first column) and the frequency (third column) of their switching another group (second column):
FILE1:
1 2 0.6 2 1 0.6 3 1 0.4 1 3 0.4 2 3 0.2etc...
FILE2 contains group numbers (first columns) and their frequency of occurrence (second column).
FILE2:
1 0.9 2 0.7 3 0.5etc...
I want to make another file containing FILE2 with the values for each switch from FILE1 like this:
1 0.9 2 0.6 3 0.4 ... 2 0.7 1 0.6 3 0.2 ...Basically, I want first column to be the group number, second the frequency of its occurrence, then the group they switch to and the frequency of that switch, then next switch all in the same line for that particular group, then next line - group 2 etc.
So I want to read in FILE1, make a hash of arrays for each group with keys being group numbers and the values being the group they switch to and the frequency of that switch. I will have one big array for each group containing subarrays of each group they switch to and frequency. Then I want to make another hash with the same keys as in the first hash but with the numbers from the first column in FILE2 and values from the second column of FILE2. Then I will print out "hash2 key hash2 value hash1 whole array for that key". This is my attempt using Perl:
#!/usr/bin/perl -W $input1= $ARGV[0]; $input2 = $ARGV[1]; $output = $ARGV[2]; %switches=(); open (IN1, "$input1"); while (<IN1>) { @tmp = split (/\s+/, $_); chomp @tmp; $group = shift @tmp; $switches{$group} = [@tmp]; push (@{$switches{$group}}, [@tmp]); } close IN1; %groups=(); open (IN2, "$input2"); while (<IN2>) { chomp $_; ($group, $pop) = split (/\s+/, $_); $groups{$group} = $pop; } close IN2; open (OUT, ">$output"); foreach $group (keys %groups) { print OUT "$group $pop @{$switches{$group}}\n" } close OUT;The output I get contains something like:
1 0.1 2 0.1 ARRAY(0x100832330) 2 0.3 5 0.2 ARRAY(0x1008325d0)So basically:
"group" "one last frequency number" "one last group that that group switches to" "one last switch frequency" "smth like ARRAY(0x100832330)"
I assume I am doing smth wrong with pushing all switches into the hash of arrays while in FILE1 and also with dereferencing at the end when I print out.
Please help, Thanks!
最满意答案
您的%switches哈希包含冗余信息; 只需使用push 。 此外，您需要做更多工作来打印出您想要的内容。 这是您的代码，只有很少的更改：
$input1= $ARGV[0]; $input2 = $ARGV[1]; $output = $ARGV[2]; %switches=(); open (IN1, "$input1"); while (<IN1>) { @tmp = split (/\s+/, $_); chomp @tmp; $group = shift @tmp; push (@{$switches{$group}}, [@tmp]); } close IN1; %groups=(); open (IN2, "$input2"); while (<IN2>) { chomp $_; ($group, $pop) = split (/\s+/, $_); $groups{$group} = $pop; } close IN2; open (OUT, ">$output"); foreach $group (sort {$a <=> $b} keys %groups) { print OUT "$group $groups{$group} "; for my $aref (@{$switches{$group}}) { print OUT "@{$aref}"; } print OUT "\n"; } close OUT; __END__ 1 0.9 2 0.63 0.4 2 0.7 1 0.63 0.2 3 0.5 1 0.4另请参见perldoc perldsc和perldoc Data :: Dumper
Your %switches hash contains redundant information; just use the push. Also, you need to do more work to print out what you want. Here is your code with minimal changes:
$input1= $ARGV[0]; $input2 = $ARGV[1]; $output = $ARGV[2]; %switches=(); open (IN1, "$input1"); while (<IN1>) { @tmp = split (/\s+/, $_); chomp @tmp; $group = shift @tmp; push (@{$switches{$group}}, [@tmp]); } close IN1; %groups=(); open (IN2, "$input2"); while (<IN2>) { chomp $_; ($group, $pop) = split (/\s+/, $_); $groups{$group} = $pop; } close IN2; open (OUT, ">$output"); foreach $group (sort {$a <=> $b} keys %groups) { print OUT "$group $groups{$group} "; for my $aref (@{$switches{$group}}) { print OUT "@{$aref}"; } print OUT "\n"; } close OUT; __END__ 1 0.9 2 0.63 0.4 2 0.7 1 0.63 0.2 3 0.5 1 0.4See also perldoc perldsc and perldoc Data::Dumper
更多推荐
发布评论