Chinaunix

标题: 手机坏掉，网络断掉，早晨起来靠鸡叫？哥写的不是闹钟，是寂寞。 [打印本页]

作者: lfy91 时间: 2011-07-21 14:49
标题: 手机坏掉，网络断掉，早晨起来靠鸡叫？哥写的不是闹钟，是寂寞。
手机置于桌，同置于桌有瓶水加冰，农夫山泉也。翌日早起，冰化水，水浸手机。不能通话事小，早起迟到事大。于是只得上网寻一在线闹钟，电脑彻夜不灭，方得安寝。天无绝人之路？非也。翌翌日，网络逾期欠费，在线闹钟亦不能用。余傍床深思：吾生于八七，存世已有二十四年，今在京城无一瓦寸地，蚁居于清河一幽闭处，早起如鸡早，蜂拥挤公交，晚归至街静，心烦不能眠。然虽悲苦如此，天亦不怜。思绪至此，凄凉之至，转念间坐起而奋，写下此二十五行代码，而后安心入眠，鼾声如雷，梦里依稀有笑容。

#Perl!
use warnings;
use strict;
my $set_up = "07:40";
my @set_up = split ":" , $set_up;
$set_up = $set_up[0] * 60 + $set_up[1];
while(1){
sleep 5;
my $current_time = localtime(time);
print $current_time , "\n";
my @TimeArray = split " " , $current_time;
my $H_M = $TimeArray[3];
my @H_M = split ":" , $H_M;
$H_M = $H_M[0] * 60 + $H_M[1];
my $distance = $H_M - $set_up;
if (($distance > -5) && ($distance < 5)){
last if $distance >= 0;
}
}

print "\n\nGet up , young guy ,It's time to get up !\n";
for(1..3){
system '"C:\Program Files\Windows Media Player\wmplayer.exe" "F:\\KuGou\\千百惠 - 当我想你的时候.mp3"';
sleep 180
}

作者: cecial 时间: 2011-07-21 15:12
应该再在外面加一个循环，就不用每天都启动了。
然后弄一个歌曲列表，每天不一样的闹铃～

作者: bull_cattle 时间: 2011-07-21 15:48
print "\n\nGet up , young guy ,It's time to get up !\n";
这句话，会去看吗？

作者: Cu_fans 时间: 2011-07-21 17:01

油菜

作者: Kitaisky 时间: 2011-07-22 05:06
呵~呵

作者: zhlong8 时间: 2011-07-22 09:52
7:40 定时开机，开机的声音都够叫你起床了还节能环保

作者: ziyunfei 时间: 2011-07-22 10:04
关机了可以在BIOS里设置自动开机.
休眠的话软件就可以设置自动开机
启动项里想放什么放什么

作者: dahe_1984 时间: 2011-07-22 14:11
你在清河啊？我在安宁庄南里

作者: x9x9 时间: 2011-07-22 15:15
记得论坛有个人的签名：爱Perl，爱生活~

作者: 首天 时间: 2011-07-22 16:25
楼主好有才~~~

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)