免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 3858 | 回复: 9
打印 上一主题 下一主题

手机坏掉,网络断掉,早晨起来靠鸡叫?哥写的不是闹钟,是寂寞。 [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 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
}

论坛徽章:
0
2 [报告]
发表于 2011-07-21 15:12 |只看该作者
应该再在外面加一个循环,就不用每天都启动了。
然后弄一个歌曲列表,每天不一样的闹铃~

论坛徽章:
0
3 [报告]
发表于 2011-07-21 15:48 |只看该作者
print "\n\nGet up , young guy ,It's time to get up !\n";
这句话,会去看吗?

论坛徽章:
0
4 [报告]
发表于 2011-07-21 17:01 |只看该作者
  油菜

论坛徽章:
0
5 [报告]
发表于 2011-07-22 05:06 |只看该作者
呵~呵

论坛徽章:
46
15-16赛季CBA联赛之四川
日期:2018-03-27 11:59:132015年亚洲杯之沙特阿拉伯
日期:2015-04-11 17:31:45天蝎座
日期:2015-03-25 16:56:49双鱼座
日期:2015-03-25 16:56:30摩羯座
日期:2015-03-25 16:56:09巳蛇
日期:2015-03-25 16:55:30卯兔
日期:2015-03-25 16:54:29子鼠
日期:2015-03-25 16:53:59申猴
日期:2015-03-25 16:53:29寅虎
日期:2015-03-25 16:52:29羊年新春福章
日期:2015-03-25 16:51:212015亚冠之布里斯班狮吼
日期:2015-07-13 10:44:56
6 [报告]
发表于 2011-07-22 09:52 |只看该作者
7:40 定时开机,开机的声音都够叫你起床了还节能环保

论坛徽章:
1
摩羯座
日期:2014-12-29 15:59:36
7 [报告]
发表于 2011-07-22 10:04 |只看该作者
关机了可以在BIOS里设置自动开机.
休眠的话软件就可以设置自动开机
启动项里想放什么放什么

论坛徽章:
0
8 [报告]
发表于 2011-07-22 14:11 |只看该作者
你在清河啊? 我在安宁庄南里

论坛徽章:
0
9 [报告]
发表于 2011-07-22 15:15 |只看该作者
记得论坛有个人的签名:爱Perl,爱生活~

论坛徽章:
0
10 [报告]
发表于 2011-07-22 16:25 |只看该作者
楼主好有才~~~
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP