Re: [PerlChina] perlchina@googlegroups.com 的摘要 - “3 个主题”有 8 个帖子

上海招聘资深perl开发人员，外企，待遇从优

在 2011年9月20日 下午4:19， <perlchina@googlegroups.com>写道：

  今日主题摘要

网上论坛: http://groups.google.com/group/perlchina/topics

• 关于电子商务的数据挖掘 [3 条更新]
• 用Emacs误删了文件 [1 条更新]
• Ask help for Perl sort customized function [4 条更新]

 主题: 关于电子商务的数据挖掘

"yzhkpli@gmail.com" <yzhkpli@gmail.com> Sep 19 09:30PM +0800 ^

 
RT!
网站是eshop这个cms搭建起来的。现在要分析电子商务数据，获取商品关注情况等，求指点统计思路。


 

zhihua zheng <zhihua.zheng@gmail.com> Sep 19 09:55PM +0800 ^

 
把网址发来看看？
 
2011/9/19 yzhkpli@gmail.com <yzhkpli@gmail.com>
 


 

Du Wayne <cn.duwei@gmail.com> Sep 20 09:43AM +0800 ^

 
从广告ROI的角度，你需要知道媒体推广（广告位）：展示——点击（着陆网站）——二跳（访问单品数量）——行为（注册/登录/收藏）——消费（订单）数据，包括按媒体、用户跟踪
 
2011/9/19 zhihua zheng <zhihua.zheng@gmail.com>
 


 

 主题: 用Emacs误删了文件

Morya Feng <morya@is-coder.com> Sep 19 08:30PM +0800 ^

 
有git不用，这个……
不该啊
 
在 2011年9月19日 下午2:43，钟声 <gh00920307@gmail.com>写道：
 


 

 主题: Ask help for Perl sort customized function

Fangyuan <chengfangyuan2008@gmail.com> Sep 19 12:41AM -0700 ^

 
大家好，请教一个自定义sort函数的问题。
有一个数组，@a = (1..20, "10+")，我想对这个数组排序，排序的规则是：1）数字优先， "10+"排在数字后面；2）数字按从小到大
我自己写了一个代码，运行没有返回我想要的结果。寻求高手指点一下，谢谢！
 
my @a = (0..20, "10+");
my @b = sort{
if(m/^\d+$/){
return $a <=> $b;
}
else{
return -1;
}
} @a;
print join(",", @b), "\n";


 

Fayland Lam <fayland@gmail.com> Sep 19 03:47PM +0800 ^

 
try this.
 
my @a = (0..20, "10+", 21 .. 25);
@a = reverse(@a);
my @b = sort{
if($a =~ /^\d+$/ and $b =~ /^\d+$/){
return $a <=> $b;
} elsif ($a =~ /^\d+$/) {
return -1;
} elsif ($b =~ /^\d+$/) {
return 1;
} else {
return $a cmp $b;
}
} @a;
print join(",", @b), "\n";
 
if you have
 
use warnings;
 
it will tell you that
 
Use of uninitialized value $_ in pattern match (m//)
 
then you know there isn't $_ in sort {}
 
Thanks
 
 
--
Fayland Lam // http://www.fayland.org/


 

Robin Lee <robinlee.sysu@gmail.com> Sep 19 03:48PM +0800 ^

 
my @b = sort{
if ($a !~ /^\d+$/) {
return 1;
}
elsif ($b !~ /^\d+$/) {
return -1;
}
else {
return $a <=> $b;
}
} @a;
 
 


 

Fangyuan <chengfangyuan2008@gmail.com> Sep 19 02:03AM -0700 ^

 
It works.
Thanks Fayland and Cheese.


 

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。