Re: [PerlChina] Re: [OT] 上海浦东北蔡莲溪路莲园路求合租

现在是否租出去了呢，我这两天正在找地方，可否邮件给我你的联系方式。本人符合你说的条件，呵呵

在 11-3-19，cnhack TNT<cnhacktnt@gmail.com> 写道：
> 更正一下，小房是单人床，写错了
>
>
>
> 2011/3/18 cnhack TNT <cnhacktnt@gmail.com>
>
>> 上海浦东北蔡莲溪路莲园路求合租～
>> 目前住的另一室友工作变动要搬，空出一间房，我们的房子是两室一厅，全装全配三台空调，洗衣机热水器，厨具齐全，装修还不错。目前有 IPTV，2M 电信
>> ADSL，家中无线路由器，BT电驴下载机齐全。
>>
>> 有一大一小房间随你挑，我反正光棍无所谓，木地板，都带家具（是别人结婚的家具，不是简易货），卧室均朝南，大房双人床带阳台，小房双人床。不论大小房间，
>> 房租水电煤网一切费用平摊，房租一共2300，每人1150，一季度一交，我不是二房东，合同直接和房东签。
>>
>> 周围交通便利，小区正门口公交站两个，离龙阳路地铁站公车10分钟到。
>> 附近工行建行菜市场均200米内，超市若干，500米内有免费小公园一个，内有免费灯光篮球场和网球场，我每周三会去打篮球。离张江哈雷路的游泳馆骑车30分钟。
>>
>> 非常适合在龙阳路或者张江上班的同学。
>> 现在的室友月底搬，我本人是做IT的，玩Perl，Linux和Mac。
>> 如果你感兴趣请给我邮件，我们私下电话联系，我的要求就是你人靠谱，不抽烟爱干净就行，房东的要求是只能你一个人，小夫妻啥的不行。
>>
>> 照片（手机拍的不是很清楚）：http://min.us/mvj13P0
>>
>> PS.: 为室友提供 Twitter API，下载机共享美剧电影，如果你是mac用户，接块移动硬盘家中的下载机同时可为你提供Time
>> Machine备份 ：－）
>>
>
> --
> 您收到此邮件是因为您订阅了 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 访问此网上论坛。

Re: [PerlChina] 将UTF8字符串按编码写出

噢，谢谢啊

2011/3/25 Jeova Sanctus Unus <jeova.sanctus.unus@gmail.com>:
> 你需要的uri escape
> $ perl -le 'use URI::Escape; print uri_escape("abc中cba")'
> abc%E4%B8%ADcba
>
> 在 2011年3月25日 下午12:17，Robin Lee <robinlee.sysu@gmail.com> 写道：
>> 比如输入 "abc中cba"，就输出"abc%E4%B8%ADcba"。
>> 主要用于改写URL。
>> 也即是，如果字符是在ASCII范围，则直接输出，否则就按其UTF8编码的16进制输出。
>> 我现在这样来实现：
>>
>> #!/usr/bin/perl
>> use warnings;
>> use utf8;
>> use Encode;
>>
>> $s = "abc中cba";
>>
>> for (split('',$s)){
>> if (ord($_) < 128){
>> print;
>> }else{
>> printf('%%%X',ord($_)) for (split('', encode('UTF-8', $_)));
>> }
>> }
>> print "\n";
>>
>>
>> 似乎很笨拙，大家想到什么更好的办法？
>>
>> --
>> 您收到此邮件是因为您订阅了 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 访问此网上论坛。
>
>

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

Re: [PerlChina] 将UTF8字符串按编码写出

你需要的uri escape
$ perl -le 'use URI::Escape; print uri_escape("abc中cba")'
abc%E4%B8%ADcba

在 2011年3月25日 下午12:17，Robin Lee <robinlee.sysu@gmail.com> 写道：
> 比如输入 "abc中cba"，就输出"abc%E4%B8%ADcba"。
> 主要用于改写URL。
> 也即是，如果字符是在ASCII范围，则直接输出，否则就按其UTF8编码的16进制输出。
> 我现在这样来实现：
>
> #!/usr/bin/perl
> use warnings;
> use utf8;
> use Encode;
>
> $s = "abc中cba";
>
> for (split('',$s)){
> if (ord($_) < 128){
> print;
> }else{
> printf('%%%X',ord($_)) for (split('', encode('UTF-8', $_)));
> }
> }
> print "\n";
>
>
> 似乎很笨拙，大家想到什么更好的办法？
>
> --
> 您收到此邮件是因为您订阅了 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 访问此网上论坛。

[PerlChina] 将UTF8字符串按编码写出

比如输入 "abc中cba"，就输出"abc%E4%B8%ADcba"。
主要用于改写URL。
也即是，如果字符是在ASCII范围，则直接输出，否则就按其UTF8编码的16进制输出。
我现在这样来实现：

#!/usr/bin/perl
use warnings;
use utf8;
use Encode;

$s = "abc中cba";

for (split('',$s)){
if (ord($_) < 128){
print;
}else{
printf('%%%X',ord($_)) for (split('', encode('UTF-8', $_)));
}
}
print "\n";

似乎很笨拙，大家想到什么更好的办法？

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

Re: [PerlChina] 请问一个perlxs的问题

av是array，你是处理字串，sv就可以直接传出，返回值或参数都可以。

不过说真的，干这事需要用xs吗？

2011/3/24 长歌门-肖头 [CGM]sgxiao <sgxiaoster@gmail.com>

假设我目前有一个perl里面的字符串

my $str = 'blablabla blabla blablabalbalb lbabla ';

里面存在某些不可见的字符。我目前考虑用一个xs模块将，希望将这个字符串作为参数传给一个C语言写的函数进行清理。然后再返回一个处理后的字符串给perl程序。

查询过部分文档。里面将这个XS的类型定义为一个AV类型（刚开始看到这个类型着实汗了一把）。那么这个字符串的类型，究竟是作为AV类型回传呢？还是简单的作为一个SV类型回传呢？

--
您收到此邮件是因为您订阅了 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 访问此网上论坛。

Re: [PerlChina] 请问一个perlxs的问题

Inline::C

2011/3/24 Jeova Sanctus Unus <jeova.sanctus.unus@gmail.com>

perl够了，正则加上pack

在 2011年3月24日 下午3:30，长歌门-肖头 [CGM]sgxiao <sgxiaoster@gmail.com> 写道：

> 假设我目前有一个perl里面的字符串
> my $str = 'blablabla blabla blablabalbalb lbabla ';
> 里面存在某些不可见的字符。我目前考虑用一个xs模块将，希望将这个字符串作为参数传给一个C语言写的函数进行清理。然后再返回一个处理后的字符串给perl程序。
> 查询过部分文档。里面将这个XS的类型定义为一个AV类型（刚开始看到这个类型着实汗了一把）。那么这个字符串的类型，究竟是作为AV类型回传呢？还是简单的作为一个SV类型回传呢？
>
> --
> 您收到此邮件是因为您订阅了 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 访问此网上论坛。

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

Re: [PerlChina] 请问一个perlxs的问题

perl够了，正则加上pack

在 2011年3月24日 下午3:30，长歌门-肖头 [CGM]sgxiao <sgxiaoster@gmail.com> 写道：
> 假设我目前有一个perl里面的字符串
> my $str = 'blablabla blabla blablabalbalb lbabla ';
> 里面存在某些不可见的字符。我目前考虑用一个xs模块将，希望将这个字符串作为参数传给一个C语言写的函数进行清理。然后再返回一个处理后的字符串给perl程序。
> 查询过部分文档。里面将这个XS的类型定义为一个AV类型（刚开始看到这个类型着实汗了一把）。那么这个字符串的类型，究竟是作为AV类型回传呢？还是简单的作为一个SV类型回传呢？
>
> --
> 您收到此邮件是因为您订阅了 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 访问此网上论坛。

Re: [PerlChina] 请问一个perlxs的问题

直接 Perl 处理就得了。还用什么 XS 啊。

在 2011年3月24日 下午4:37，Robin Lee <robinlee.sysu@gmail.com>写道：

这种程度的XS应该不用涉及内部数据类型，看了perlxstut的第二个例子就应该能实现这个功能了

2011/3/24 胡松涛 <idisblueflash@gmail.com>:

>
>  建议可以在perl中过虑文本，毕竟这是perl的专长。
>
> 狐狸
>
> 在 Thu, 24 Mar 2011 16:22:16 +0800，cnhack TNT <cnhacktnt@gmail.com> 写道:
>
>> 请问为啥不直接在 perl 中进行清理呢？
>>
>> 2011/3/24 长歌门-肖头 [CGM]sgxiao <sgxiaoster@gmail.com>
>>
>>> 假设我目前有一个perl里面的字符串
>>>
>>> my $str = 'blablabla blabla blablabalbalb lbabla ';
>>>
>>>
>>>
>>> 里面存在某些不可见的字符。我目前考虑用一个xs模块将，希望将这个字符串作为参数传给一个C语言写的函数进行清理。然后再返回一个处理后的字符串给perl程序。
>>>
>>>
>>>
>>> 查询过部分文档。里面将这个XS的类型定义为一个AV类型（刚开始看到这个类型着实汗了一把）。那么这个字符串的类型，究竟是作为AV类型回传呢？还是简单的作为一个SV类型回传呢？
>>>
>>> --
>>> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>>> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
>>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>>>
>>
>
>
> --
> 使用 Opera 革命性的电子邮件客户程序: http://www.opera.com/mail/
>
> --
> 您收到此邮件是因为您订阅了 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 访问此网上论坛。

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

Re: [PerlChina] 请问一个perlxs的问题

这种程度的XS应该不用涉及内部数据类型，看了perlxstut的第二个例子就应该能实现这个功能了

2011/3/24 胡松涛 <idisblueflash@gmail.com>:
>
> 建议可以在perl中过虑文本，毕竟这是perl的专长。
>
> 狐狸
>
> 在 Thu, 24 Mar 2011 16:22:16 +0800，cnhack TNT <cnhacktnt@gmail.com> 写道:
>
>> 请问为啥不直接在 perl 中进行清理呢？
>>
>> 2011/3/24 长歌门-肖头 [CGM]sgxiao <sgxiaoster@gmail.com>
>>
>>> 假设我目前有一个perl里面的字符串
>>>
>>> my $str = 'blablabla blabla blablabalbalb lbabla ';
>>>
>>>
>>>
>>> 里面存在某些不可见的字符。我目前考虑用一个xs模块将，希望将这个字符串作为参数传给一个C语言写的函数进行清理。然后再返回一个处理后的字符串给perl程序。
>>>
>>>
>>>
>>> 查询过部分文档。里面将这个XS的类型定义为一个AV类型（刚开始看到这个类型着实汗了一把）。那么这个字符串的类型，究竟是作为AV类型回传呢？还是简单的作为一个SV类型回传呢？
>>>
>>> --
>>> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>>> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
>>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>>>
>>
>
>
> --
> 使用 Opera 革命性的电子邮件客户程序: http://www.opera.com/mail/
>
> --
> 您收到此邮件是因为您订阅了 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 访问此网上论坛。

Re: [PerlChina] 请问一个perlxs的问题

建议可以在perl中过虑文本，毕竟这是perl的专长。

狐狸

在 Thu, 24 Mar 2011 16:22:16 +0800，cnhack TNT <cnhacktnt@gmail.com> 写道:

> 请问为啥不直接在 perl 中进行清理呢？
>
> 2011/3/24 长歌门-肖头 [CGM]sgxiao <sgxiaoster@gmail.com>
>
>> 假设我目前有一个perl里面的字符串
>>
>> my $str = 'blablabla blabla blablabalbalb lbabla ';
>>
>>
>> 里面存在某些不可见的字符。我目前考虑用一个xs模块将，希望将这个字符串作为参数传给一个C语言写的函数进行清理。然后再返回一个处理后的字符串给perl程序。
>>
>>
>> 查询过部分文档。里面将这个XS的类型定义为一个AV类型（刚开始看到这个类型着实汗了一把）。那么这个字符串的类型，究竟是作为AV类型回传呢？还是简单的作为一个SV类型回传呢？
>>
>> --
>> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers
>> 讨论组"论坛。
>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>> 要取消订阅此网上论坛，请发送电子邮件至
>> perlchina+unsubscribe@googlegroups.com。
>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN
>> 访问此网上论坛。
>>
>


--
使用 Opera 革命性的电子邮件客户程序: http://www.opera.com/mail/

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

Re: [PerlChina] 请问一个perlxs的问题

请问为啥不直接在 perl 中进行清理呢？

2011/3/24 长歌门-肖头 [CGM]sgxiao <sgxiaoster@gmail.com>

假设我目前有一个perl里面的字符串

my $str = 'blablabla blabla blablabalbalb lbabla ';

里面存在某些不可见的字符。我目前考虑用一个xs模块将，希望将这个字符串作为参数传给一个C语言写的函数进行清理。然后再返回一个处理后的字符串给perl程序。

查询过部分文档。里面将这个XS的类型定义为一个AV类型（刚开始看到这个类型着实汗了一把）。那么这个字符串的类型，究竟是作为AV类型回传呢？还是简单的作为一个SV类型回传呢？

--
您收到此邮件是因为您订阅了 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 访问此网上论坛。

[PerlChina] 请问一个perlxs的问题

假设我目前有一个perl里面的字符串

my $str = 'blablabla blabla blablabalbalb lbabla ';

里面存在某些不可见的字符。我目前考虑用一个xs模块将，希望将这个字符串作为参数传给一个C语言写的函数进行清理。然后再返回一个处理后的字符串给perl程序。

查询过部分文档。里面将这个XS的类型定义为一个AV类型（刚开始看到这个类型着实汗了一把）。那么这个字符串的类型，究竟是作为AV类型回传呢？还是简单的作为一个SV类型回传呢？

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

Re: [PerlChina] perl程序中，如何使用shell自己的变量？

你的 awk 后面其实应该跟单引号而不是双引号，这样 $3 等位置变量就不需要加那么多单引号了。
另外，由于你要排序，所以你 print 出的那一行 title 也是没用的，这样 if 关键字其实是可省略的。
最后，你拿到 $ps 之后也许还需要再 split 之类的，所以还不如从一开始就由 Perl 来处理。
这样我最后那个 map join 也省了。

在 2011年3月24日 上午9:57，flw <su2admin@gmail.com>写道：

多重引号真不是什么好现象，尤其是对于不会用引号的人来说：

my $cmd = q[ps aux |awk "BEGIN { print '%CPU %MEM %STAT PID COMMAND' } { if ('$3' > 25 || '$4' > 25 || '$8'~/Z/ && '$8'!~/Z</) print '$3', '$4', '$8', '$2', '$11'}" |sort];
my $ps = `$cmd`;

另外，在 Perl 中嵌入 Shell 也不是什么好现象，尤其对 Shell 学的不好的人来说：

my @ps =
    sort
    map {
        "@$_[qw(3 4 8 2 11)]
    }
    grep {
        $_->[3] > 0 || $_->[4] > 0 || $_->[8] =~ /Z/ && $_->[8] !~ /Z</
    }
    map {
        [ $_, split ]
    }
    `ps aux`;

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

Re: [PerlChina] perl程序中，如何使用shell自己的变量？

多重引号真不是什么好现象，尤其是对于不会用引号的人来说：

my $cmd = q[ps aux |awk "BEGIN { print '%CPU %MEM %STAT PID COMMAND' } { if ('$3' > 25 || '$4' > 25 || '$8'~/Z/ && '$8'!~/Z</) print '$3', '$4', '$8', '$2', '$11'}" |sort];
my $ps = `$cmd`;

另外，在 Perl 中嵌入 Shell 也不是什么好现象，尤其对 Shell 学的不好的人来说：

my @ps =
    sort
    map {
        "@$_[qw(3 4 8 2 11)]
    }
    grep {
        $_->[3] > 0 || $_->[4] > 0 || $_->[8] =~ /Z/ && $_->[8] !~ /Z</
    }
    map {
        [ $_, split ]
    }
    `ps aux`;

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

Re: [PerlChina] Re: [OT] 上海浦东北蔡莲溪路莲园路求合租

真不错 :-D

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