Perl China Blog Spot

2011年6月18日星期六

Re: 回复：[PerlChina] 分享一个小脚本 pquota.pl -- 强行关闭那些在一天内运行了太久的程序

在 Sat, 18 Jun 2011 09:52:41 +0800，Haiyan Lin <linhy0120@gmail.com> 写道:

> 对抗自己的网瘾,,我把家里网线给掐了

我也想��,下�月掐.
--
Hu Songtao
works as an English Teacher in weekends
Skype: idisblueflash
Beijing, China

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

2011年6月17日星期五

Re: 回复：[PerlChina] 分享一个小脚本 pquota.pl -- 强行关闭那些在一天内运行了太久的程序

这个猛，在单位用的话，要小心哦

----- Original Message -----

From: 钟声

To: perlchina@googlegroups.com

Sent: Saturday, June 18, 2011 8:25 AM

Subject: Re: 回复：[PerlChina] 分享一个小脚本 pquota.pl -- 强行关闭那些在一天内运行了太久的程序

对抗自己的网瘾,,我把家里网线给掐了

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

Re: 回复：[PerlChina] 分享一个小脚本 pquota.pl -- 强行关闭那些在一天内运行了太久的程序

对抗自己的网瘾,,我把家里网线给掐了

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

回复：[PerlChina] 分享一个小脚本 pquota.pl -- 强行关闭那些在一天内运行了太久的程序

很不错的说，

------------------ 原始邮件 ------------------

发件人: "Robin Lee";

发送时间: 2011年6月17日(星期五) 中午12:50

收件人: "Fedora Chinese"; "gzlug"; "perlchina";

主题: [PerlChina] 分享一个小脚本 pquota.pl -- 强行关闭那些在一天内运行了太久的程序

http://cheeselee.fedorapeople.org/pquota.pl
（仅支持 Linux）

为了对抗自己的网瘾，写了个小服务，它可以侦察我的浏览器进程，如果在一天内浏览器运行时间超过某一时限（也即是 quota，以分钟计），就会发出
SIGTERM 到所有浏览器进程，从而强行关闭所有浏览器。

在临近关闭前的10分钟内会多次通过 notify-send 发出提示消息。

可以用于跟踪任何用户进程，也可以同时跟踪多个程序。

基本使用步骤：
1. 下载脚本，设置可执行权限，放置于 $PATH 指定的某路径中
2. 在终端手动运行一次脚本，会问你要侦察什么程序，并设置 quota (以分钟计，默认为 120 分钟）
3. 把 pquota.pl 加入到 .bash_profile 或 .profile ，让它在登录时自动运行

哎呀！写这个邮件用了我今天快一个小时的 quota 了！

Robin Lee

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

2011年6月16日星期四

[PerlChina] 分享一个小脚本 pquota.pl -- 强行关闭那些在一天内运行了太久的程序

http://cheeselee.fedorapeople.org/pquota.pl
（仅支持 Linux）

为了对抗自己的网瘾，写了个小服务，它可以侦察我的浏览器进程，如果在一天内浏览器运行时间超过某一时限（也即是 quota，以分钟计），就会发出
SIGTERM 到所有浏览器进程，从而强行关闭所有浏览器。

在临近关闭前的10分钟内会多次通过 notify-send 发出提示消息。

可以用于跟踪任何用户进程，也可以同时跟踪多个程序。

基本使用步骤：
1. 下载脚本，设置可执行权限，放置于 $PATH 指定的某路径中
2. 在终端手动运行一次脚本，会问你要侦察什么程序，并设置 quota (以分钟计，默认为 120 分钟）
3. 把 pquota.pl 加入到 .bash_profile 或 .profile ，让它在登录时自动运行

哎呀！写这个邮件用了我今天快一个小时的 quota 了！

Robin Lee

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

Re: [PerlChina] 初学者请求解惑！为什么我print语句中的换行符不起作用了？

你的那条print后面没有换行符，呵呵。而且最后的2条语句有点问题。

2011-06-17

perl01

发件人： Matthew

发送时间： 2011-06-17 10:31:13

收件人： perlchina

抄送：

主题： [PerlChina] 初学者请求解惑！为什么我print语句中的换行符不起作用了？

我的系统环境是WIN7，之前我采用的是ActivePerl，自从我买的小骆驼书到手之后，照着学习都挺顺利的。

昨天夜里查资料的时候看到说在Win32环境下用Strawberry Perl比较好，好吧，我就卸载了 ActivePer，换了 Strawberry Perl。可是刚刚用到print语句的时候发现换行符不起作用了。

郁闷中！难道是Perl版本的差异吗？不至于吧

下面请帮我看看我写的代码，看是代码的问题还是版本问题，劳烦诸位了！

code：

-----------------------------------------------------------

#!/usr/bin/perl -w
use 5.010;
sub total{
my $sum = 0;
foreach my $numbers(@_){
$sum += $numbers;
}
$sum;
}
my @fred = qw{1 3 5 7 9};
my $fred_total = total(@fred);
print "The total of \@fred is $fred_total.\n\n";
print "Enter some numbers on separate lines: ";
my $user_total = total(<STDIN>);
print "The total of those numbers is $user_total.\n";

-----------------------------------------------------------

下边是输出：

-----------------------------------------------------------

D:\Desktop>perl test.pl
The total of @fred is 25.

Enter some numbers on separate lines:

-----------------------------------------------------------

如上所示，执行后光标停留在"Enter some numbers on separate lines:"后边，并没有换行。

目前虽然不影响结果，但是还有有些纠结，

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

Re: [PerlChina] 初学者请求解惑！为什么我print语句中的换行符不起作用了？

my god!
我错了，太蠢了，帖子发出之后，自己又看了一遍，是我自己看花眼了，视线飘逸到上一个print语句啦！
对不起打扰了！下次发帖一定自己好好检查。
想撞墙！
-----原信息-----
发件人： Matthew
发送： 2011/06/17, 10:30
收件人： perlchina@googlegroups.com
主题： [PerlChina] 初学者请求解惑！为什么我print语句中的换行符不起作用了？

我的系统环境是WIN7，之前我采用的是ActivePerl，自从我买的小骆驼书到手之后，照着学习都挺顺利的。
昨天夜里查资料的时候看到说在Win32环境下用Strawberry Perl比较好，好吧，我就卸载了 ActivePer，换了 Strawberry
Perl。可是刚刚用到print语句的时候发现换行符不起作用了。
郁闷中！难道是Perl版本的差异吗？不至于吧
下面请帮我看看我写的代码，看是代码的问题还是版本问题，劳烦诸位了！
code：
-----------------------------------------------------------
#!/usr/bin/perl -w
use 5.010;
sub total{
my $sum = 0;
foreach my $numbers(@_){
$sum += $numbers;
}
$sum;
}
my @fred = qw{1 3 5 7 9};
my $fred_total = total(@fred);
print "The total of \@fred is $fred_total.\n\n";
print "Enter some numbers on separate lines: ";
my $user_total = total(<STDIN>);
print "The total of those numbers is $user_total.\n";
-----------------------------------------------------------
下边是输出：
-----------------------------------------------------------
D:\Desktop>perl test.pl
The total of @fred is 25.

Enter some numbers on separate lines:
-----------------------------------------------------------
如上所示，执行后光标停留在"Enter some numbers on separate lines:"后边，并没有换行。
目前虽然不影响结果，但是还有有些纠结，

2011年6月18日星期六

2011年6月17日星期五

2011年6月16日星期四

订阅

博客归档