请教文本处理:123与321合并为123

biomasm

输入:
001
100
123
123
321
输出:
001,2个
123,3个

反向与正向一样的合并,比如123与321合并为123

请哪位大侠支招

flw

reverse

freefall

[quote]原帖由 "flw"]reverse[/quote 发表：

reverse 是作用于list的吧，只能把（001,100,123,123,321）换成（321,123,123,100,001）啊

pupilzeng

reverse可以用于scalar,就是一个元素的列表
在scalar环境中，返回反序的字符串
在list环境中，没有变化,因为一个元素，反过来还是这个元素

freefall

原帖由 "pupilzeng" 发表：
reverse可以用于scalar,就是一个元素的列表
在scalar环境中，返回反序的字符串
在list环境中，没有变化,因为一个元素，反过来还是这个元素

谢谢，确实这样，又学到东西啦

biomasm

reverse

我知道应该reverse啊,主要问题在于判断,即reverse的时机出问题了.大侠可否代码示意啊?[/code]

怒剑狂啸

1. open (FILE,"test.txt");#数据文件
   
2. @data=<FILE>;;
   
3. $sum=@data;
   
4. while ($a=shift @data) {
   
5.         chomp $a;
   
6.         $b=reverse$a;
   
7.         @tmp=grep (!/$a|$b/,@data);
   
8.         $hash{$a}=$sum-@tmp;
   
9.         $sum=@data=@tmp;
   
10. }
    
11. print "$_,$hash{$_}\n" foreach (keys%hash);
    
12. close FILE;
    
13. 
    

复制代码

freefall

another way:

1. 
   
2. #!/usr/bin/perl
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. my @number = qw/001 100 123 123 321/;
   
7. my %counts;
   
8. 
   
9. foreach (@number) {
   
10.   $counts{$_}++;
    
11.   $counts{reverse($_)}++;
    
12. }
    
13. 
    
14. print "001==>;$counts{001}\n";
    
15. print "123==>;$counts{123}\n";
    

复制代码

superdoctor

freefall的方法更好一些
怒剑狂啸走了一些弯路

怒剑狂啸

不错，受益……