求助

Innocencer

现在有rgb_o.txt:

00000000
00000000
00000000
00000401
00100401
00100401
00100802
00200802
00200802
00200c03
00300c03
00300c03
00301004
00401004
00401004
00401405
00501405
00501405
00501806
00601806
00601806
00601c07
00701c07
00701c07
00702008
00802008
00802008
00802409
00902409
00902409
共1080行。

把rgb_o.txt的数据当做16进制，转成2进制。然后每十位再当做一个二进制数，则每行会有3个十位的二进制数。不够位数前面补0
以我例子的最后一行为例。HEX：00902409 ==》BIN：0000001001 0000001001 0000001001
然后再将二进制转为十进制，则每行依次为9 9 9，共1080行。（或者每行一个整数，共3240行也可以。）

这时每行都会有三个10进制整数。
这部分我用perl实现了，虽然代码很丑。

再之后，我想降得到的每行三个数，变为每行四个数，即N行的三个加上N+1行的第一个，；N+1行后两个加上N+2行前两个。依次顺序。得到共810行，每行四位的数。
格式如下。
这里我用matlab矩阵变换得到的。我现在想用简单易懂的perl语言全部实现。请教大神们，谢谢！。

B = reshape(A,4,810);
B =B';

0        0        0        0
0        0        0        0
0        0        1        1
1        1        1        1
1        1        1        2
2        2        2        2
2        2        2        2
3        3        3        3
3        3        3        3
3        4        4        4
4        4        4        4
4        4        5        5
5        5        5        5
5        5        5        6
6        6        6        6
6        6        6        6
7        7        7        7
7        7        7        7
7        8        8        8
8        8        8        8
8        8        9        9
9        9        9        9

唐胜

#!c/perl/bin/perl
use utf8;
my $file_txt1 = "E:/perl/1.txt";        ##处理前文本
my $file_txt2 = "E:/perl/2.txt";        ##处理后文本
my $j = 0;
open(STAT, $file_txt1) or die "can't open file $file_txt1: $!";
while(<STAT>)
{
        my $num = sprintf ("%b", hex $_);                ##先转10进制 再转2进制
        while(length($num) < 30) { $num = "0$num"; }        ##不足30位补0
        for ( $i = 0; $i < 3; $i++ ) {                       
                $j += 1;
                if ( open(SESAME,">>$file_txt2") or die("$!")) {
                        $num4 = oct( '0b' . substr($num,$i*10,10) );                ##分别取前、中、后十位2进制转为10进制
                        if ( $j != 4 ) { print SESAME "$num4 "; }                        ##输出到文件
                        else {
                                print SESAME "$num4 \n";                                                ##每四个换行
                                $j = 0;
                        }
                }
                close (SESAME);       
        }
}

测试ok   矩阵转换不会（大神看帖指请教一下perl矩阵转换） 我用语法排为4列的  加了注解希望你能看懂
另外你的8位16进制数  最大可以有32位二进制数而不是30位  这里程序按30位处理

523066680

1. use File::Slurp;
   
2. my @arr;
   
3. my @data = read_file("rgb_o.txt");
   
4. 
   
5. grep {
   
6.     $_=~s/\r?\n$//;
   
7.     get_num( \@arr, $_ );
   
8. } @data;
   
9. 
   
10. while ( $#arr >= 0 ) { print join(",", splice @arr, 0, 4), "\n"; }
    
11. 
    
12. sub get_num
    
13. {
    
14.     my ($ref, $s) = @_;
    
15.     my $bin = sprintf "%030b", hex($s);  #补足0
    
16.     my @e = ( $bin=~/\d{10}/g );
    
17.     grep { $_ = oct( "0b". $_ ) } @e;
    
18.     push @$ref, @e;
    
19. }

复制代码

Innocencer

回复 2# 唐胜

谢谢您，亲测可行。注释赞。

Innocencer

回复 3# 523066680

谢谢您。以前有一次发帖也是您帮了我。

Innocencer

回复 2# 唐胜

8进制数这里最大值3FF，所以二进制最大就是1111111111，还是十位。所以不会大于十位，这里忘了说明。谢谢。