设为首页收藏本站

LinuxTone | 运维专家网论坛 - 最棒的Linux运维与开源架构技术交流社区!

 找回密码
 注册

QQ登录

只需一步,快速开始

#公告#抱歉,网站将关闭,不再开放。由于PC时代已远逝 。在这个后移动互联网时代,我们继续携手前行,保持对技术的热情。共同构建linuxtone知识星球欢迎加入,一起讨论技术、招聘人才、分享资源。请新老linuxtone人 扫码移步到 知识星球:linuxtone

学习是一种信仰!分享是一种快乐!能力= 心态 * 沟通 * 知识 (你的每一天需要正能量!)

 网站的发展需要你贡献一份力量!希望你能每天坚持看贴1小时,并回答网友的问题!祝你在浏览论坛的过程中取得进步!谢谢!linuxtone加油!大家加油! 友情提示: 你今天学习了吗?你今天进步了吗?少一点抱怨!多一点进步!Life is short ! Why not linuxtone ?  

网站的发展、感谢每位坛友的努力!

查看: 3971|回复: 11

[perl] 小弟刚刚学perl,写一个脚本,多多指教   [复制链接]

Rank: 8Rank: 8

签到
398
注册时间
2009-10-16
最后登录
2016-3-8
在线时间
274 小时
阅读权限
90
积分
32641
帖子
183
主题
25
精华
0
UID
5949
发表于 2010-12-6 15:16:42 |显示全部楼层
本帖最后由 ksky99 于 2010-12-6 15:17 编辑

#!/usr/bin/perl
use 5.010;
while (1){
      say "-----------------------------------";
      say "(1)cpu负载";
      say "(2)内存使用情况";
      say "(3)硬盘使用情况";
      say "(4)exit";
      say "-----------------------------------";
      print "请选择一项(1-4):";
      chomp($input=<STDIN>);
      if ($input==1){
         say "cpu的负载查看";
         say `uptime|awk -F '[,:]' '{print $8}'`;
      }
      if ($input==2){
         say "内存使用情况查看";
         say `free |awk  'NR==2 {print $2}'`;
      }
      if ($input==3){
         say "硬盘使用情况查看";
         say `df -lh`;
      }
      if ($input==4){
         exit;
      }
}

注册时间
2010-12-4
最后登录
2017-9-11
在线时间
7 小时
阅读权限
0
积分
302
帖子
16
主题
1
精华
0
UID
11355
发表于 2010-12-6 16:42:35 |显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽

使用道具 举报

Rank: 2

注册时间
2009-7-8
最后登录
2011-2-16
在线时间
64 小时
阅读权限
20
积分
189
帖子
120
主题
25
精华
0
UID
4096

LT粉丝

发表于 2010-12-6 20:51:50 |显示全部楼层
勉强来说 是shell调用 加壳....(perl)

使用道具 举报

Rank: 8Rank: 8

注册时间
2010-8-11
最后登录
2015-10-29
在线时间
198 小时
阅读权限
90
积分
13233
帖子
14
主题
0
精华
0
UID
10074
发表于 2010-12-6 20:52:53 |显示全部楼层
#! /bin/bash
#----------------------------------------
#
# 2010年12月6日
# by steven
#
#----------------------------------------
str1="cpu负载"
str2="内存使用情况"
str3="硬盘使用情况"
str4="exit"
str="$str1 $str2 $str3 $str4"

select i in $str;do
        case $i in
         $str1)
                echo "cpu的负载查看"
                echo `uptime|awk -F '[,:]' '{print $8}'`
                ;;
         $str2)
                echo "内存使用情况查看"
                echo `free |awk  'NR==2 {print $2}'`
                ;;
         $str3)
                echo "硬盘使用情况查看"
                echo `df -lh`
                ;;
         *)
                exit 0
                ;;
         esac
done

使用道具 举报

Rank: 2

注册时间
2009-7-8
最后登录
2011-2-16
在线时间
64 小时
阅读权限
20
积分
189
帖子
120
主题
25
精华
0
UID
4096

LT粉丝

发表于 2010-12-6 20:59:21 |显示全部楼层
马上就来拆的人...

使用道具 举报

Rank: 8Rank: 8

注册时间
2010-2-26
最后登录
2017-5-2
在线时间
600 小时
阅读权限
90
积分
82550
帖子
789
主题
41
精华
0
UID
8062
发表于 2010-12-7 00:21:13 |显示全部楼层
兄弟,你这样写,没啥意思 perl的东西就用个say吧,呵呵,大部分还是shell
<-sina_sign,1300626711,936f3b91,1->

使用道具 举报

高级会员

吃饱找事干!

Rank: 4

注册时间
2010-7-13
最后登录
2019-7-22
在线时间
44 小时
阅读权限
50
积分
928
帖子
70
主题
3
精华
0
UID
9790
发表于 2011-1-20 11:56:18 |显示全部楼层
;P;P;P;P;P

使用道具 举报

Rank: 8Rank: 8

注册时间
2011-2-6
最后登录
2014-7-17
在线时间
168 小时
阅读权限
90
积分
54820
帖子
24
主题
0
精华
0
UID
11932
发表于 2011-2-8 22:31:21 |显示全部楼层
回复 ksky99 的帖子

很强大,很淡定

使用道具 举报

LT技术团队

开源er

Rank: 7Rank: 7Rank: 7

注册时间
2009-3-4
最后登录
2012-7-3
在线时间
30 小时
阅读权限
100
积分
427
帖子
42
主题
4
精华
0
UID
1699
发表于 2011-3-8 14:28:31 |显示全部楼层
人家刚学,给点鼓励吗
SA

使用道具 举报

Rank: 3Rank: 3

注册时间
2011-3-5
最后登录
2013-11-9
在线时间
14 小时
阅读权限
30
积分
224
帖子
16
主题
0
精华
0
UID
12260
发表于 2011-8-17 16:03:41 |显示全部楼层
很好,很强大

使用道具 举报

Rank: 6Rank: 6

注册时间
2011-4-26
最后登录
2015-11-7
在线时间
44 小时
阅读权限
70
积分
5505
帖子
22
主题
2
精华
0
UID
13389
发表于 2011-8-19 16:31:23 |显示全部楼层
如果用perl的话,最好就用纯perl的语法..不要在perl中夹杂大量的shell.

使用道具 举报

Rank: 8Rank: 8

注册时间
2011-6-13
最后登录
2012-11-12
在线时间
437 小时
阅读权限
90
积分
35094
帖子
71
主题
1
精华
0
UID
14312
发表于 2011-8-23 13:33:50 |显示全部楼层
用switch吧
5.10的话given when也行吧
每取一个写个子程序


使用道具 举报

您需要登录后才可以回帖 登录 | 注册

IT运维专家网感谢您的支持

合作联系: QQ:67888954/MSN:cnseek@msn.com/mail:netseek@linuxtone.org

Archiver|手机版|感谢所有关心和支持过LinuxTone的朋友们 转载本站内容请注明原作者名及出处 ( 京ICP备08103151 )   |

GMT+8, 2020-3-29 01:19 , Processed in 0.027864 second(s), 14 queries , Apc On.

Powered by Discuz! X2 Licensed

© 2001-2011 Comsenz Inc.

回顶部