小编use*_*025的帖子

我需要在之前提取所有字符串 - *,
例如100002098和0004184022以及66680和1247764以及843804并附加到网址"www.xyz.com/mystring"

为此,我写了下面的perl代码,但我在正则表达式中缺少一些东西,任何人都可以帮助我

my @str = ("100002098-2","0004184022-2","66680-2","1247764-2", "843804-0");  
foreach my $arr(@str){  
    if($arr =~ s/-.*//sr){  
        #url = append(url+$arr);
        print $arr. "\n";  
    }  
}

反转每4位中的每个位,例如:

0101 1011 1100 0110 becomes
1010 1101 0011 0110

另一个:

1010 1100 0101 1100 becomes
0101 0011 1010 0011

我可以考虑将所有32位反转如下:

unsigned int reverseBits(unsigned int num)
{
    unsigned int count = sizeof(num) * 8 - 1;
    unsigned int reverse_num = num;

    num >>= 1; 
    while(num)
    {
       reverse_num <<= 1;       
       reverse_num |= num & 1;
       num >>= 1;
       count--;
    }
    reverse_num <<= count;
    return reverse_num;
}

但是如何解决上述问题呢？