perl字符串排序去重

bikkuri

大家好！
我有一个问题向大家请教。
有两个字符串$all和$new，其中$all有可能是空字符串，也可能是一个或者以空格分隔的多个字符串；$new是一个或多个以空格分隔的字符串。
例如：
$all="ezard.lai bol romeots ntsai thsiao tosian.yang";
$new="chaol jzhu039 thsiao bol xinrong";
现在希望将$new中的内容加入到$all中去，但是将其中重复的内容去掉并排序。
得到以下内容：
"bol chaol ezard.lai jzhu039 ntsai romeots thsiao tosian.yang xinrong"
请问用perl应该如何写？

yinyuemi

回复 1# bikkuri

1. perl -le '$all="ezard.lai bol romeots ntsai thsiao tosian.yang";
   
2. $new="chaol jzhu039 thsiao bol xinrong";
   
3. print join " ",grep{!$x{$_}++}sort{$a cmp $b}(split / /,$all." ".$new)'
   
4. bol chaol ezard.lai jzhu039 ntsai romeots thsiao tosian.yang xinrong
   

复制代码

bikkuri

非常感谢！

回复 2# yinyuemi

bikkuri

谢谢您的帮助。
但是我对您的代码做了以下修改后却不能得到期望的结果。
请问是什么原因呢？
#! /usr/bin/perl
sub addnew()
{
$new="chaol jzhu039 thsiao bol xinrong";
$out=join " ",grep{!$x{$_}++}sort{$a cmp $b}(split / /,$all." ".$new);
print "all=$all\n";
print "new=$new\n";
print "out=$out\n\n";
}
$all="";
&addnew($all);
$all="ezard.lai bol romeots ntsai thsiao tosian.yang";
&addnew($all);


以下是执行结果：
[root@apaciprtac:~]# ./addnew.pl
all=
new=chaol jzhu039 thsiao bol xinrong
out= bol chaol jzhu039 thsiao xinrong

all=ezard.lai bol romeots ntsai thsiao tosian.yang
new=chaol jzhu039 thsiao bol xinrong
out=ezard.lai ntsai romeots tosian.yang


第一个all为空值的时候的结果是对的，但是第二个all不为空值时只对原值进行了排序而不但没有把gtac中的值加进去，反而把原值中含有的new元素删除了？

回复 2# yinyuemi

yinyuemi

回复 4# bikkuri

sub函数要设置接受参数，和返回值另外，变量定义最好用my $var, 尽量不要使用全局变量

bikkuri

那应该怎么改？
我不会Perl，能帮我改一下吗？

回复 5# yinyuemi

bikkuri

Hello Yinyuemi, 能帮我改一下吗？谢谢！
回复 5# yinyuemi

christmas1102

1. #!/usr/bin/perl
   
2. sub addnew{
   
3.         my $new='chaol jzhu039 thsiao bol xinrong';
   
4.         my $out=join " ",grep{!$x{$_}++}sort{$a cmp $b}(split / /,$all." ".$new);
   
5.         undef %x;
   
6.         return $out
   
7. }
   
8. 
   
9. $all='';
   
10. print &addnew() . "\n";
    
11. 
    
12. $all="ezard.lai bol romeots ntsai thsiao tosian.yang";
    
13. print &addnew() . "\n";

复制代码

需要清理 %hash

bikkuri

非常感谢！

回复 9# christmas1102