如果将print结果保存给变量

kingdisc666

如何将print_hex($string) 的结果复制给变量$data,$data复制后等于一个连续字符串


#!/usr/bin/perl -w
require 5.003;
use Device::SerialPort qw( ARAM :STAT 0.07 );
use Encode qw(from_to);
$string="测试文字";
from_to($string, "utf8", "GB2312";


sub print_hex {
    my ($str) = @_;
    my @arr = split //, $str;
    for my $c (@arr) {
        printf  "%x", ord($c);
    }
#    printf "\n";
}

print_hex($string)

stanley_tam

偶试试，建议用sprintf，不过就得改print_hex函数了。
用select把，如果不改函数：

1. #!/usr/bin/perl -w
   
2. require 5.003;
   
3. use Device::SerialPort qw( PARAM :STAT 0.07 );
   
4. use Encode qw(from_to);
   
5. $string="测试文字";
   
6. from_to($string, "utf8", "GB2312");
   
7. 
   
8. 
   
9. sub print_hex {
   
10.     my ($str) = @_;
    
11.     my @arr = split //, $str;
    
12.     for my $c (@arr) {
    
13.         printf  "%x", ord($c);
    
14.     }
    
15. #    printf "\n";
    
16. }
    
17. 
    
18. my $data;
    
19. open my $fh, '>', \$data;
    
20. 
    
21. select($fh);
    
22. print_hex($string);
    
23. select(STDOUT);
    
24. 
    
25. __END__

复制代码