• <ins id="pjuwb"></ins>
    <blockquote id="pjuwb"><pre id="pjuwb"></pre></blockquote>
    <noscript id="pjuwb"></noscript>
          <sup id="pjuwb"><pre id="pjuwb"></pre></sup>
            <dd id="pjuwb"></dd>
            <abbr id="pjuwb"></abbr>

            S.l.e!ep.¢%

            像打了激速一樣,以四倍的速度運轉,開心的工作
            簡單、開放、平等的公司文化;尊重個性、自由與個人價值;
            posts - 1098, comments - 335, trackbacks - 0, articles - 1
              C++博客 :: 首頁 :: 新隨筆 :: 聯系 :: 聚合  :: 管理

            #!/usr/bin/perl
            ?use strict;

            ?# 打印此腳本使用信息和輸出說明。

            ?################################################################
            ?# Output the usage of this perl script
            ?################################################################
            ?sub usage
            ?{
            ??? print "memmonitor: Monitor system memory usage\n";
            ??? print "1. if used memory is more than 75% of total memory, memmonitor\n";
            ??? print "will output one warning message per minites.\n";
            ??? print "2. if used memory is more than 90% of total momory, memmonitor\n";
            ??? print "will kill the processes that occupied the most memory untill\n";
            ??? print "used memory is less than 75% of total memory.\n\n";

            ??? return 0;
            ?}

            ?usage

            ?my $total_mem;
            ?my $used_mem;
            ?my $next_line = 0;
            ?my @rc;
            ?my $rate;

            ?# $total_mem 和 $used_mem 變量分別代表了總計實際內存大小和已經使用的內存大小
            ?rc = `vmstat`;
            ?foreach ( @rc ) {
            ??? if ( $next_line ) {
            ????? my @value = split /\s+/, $_;
            ???????? $used_mem = @value[3] * 4;
            ???????? $next_line = 0;
            ???????? last;
            ???? } elsif ( /^.*mem=(\d+)MB$/ ) {
            ???????? $total_mem = $1 * 1024;
            ???? } elsif ( /^.*avm.*$/ ) {
            ???????? $next_line = 1;
            ???? }
            ?}

            ?# 這段代碼使用了 vmstat 命令得到系統內存狀態信息,并對結果進行逐行解析,得到各個字段的數據。

            ?if ( $total_mem ) {
            ??? $rate = $used_mem / $total_mem;
            ?}

            ?# 計算得到了當前全局內存使用率

            ?if ( $rate > 0.75 ) {
            ??? print "Warning: Memory is not enough\n";
            ?}

            ?# 如果內存使用率大于 0.75, 將打印出警告信息。

            ?if ( $rate > 0.9 ) {
            ??? my $line_count = 0;
            ??? my @output = `ps aux | head -1;ps aux | sort -rn +5`;
            ??? foreach ( @output ) {
            ??????? if ( $line_count ) {
            ??????????? my @killed_process = split /\s+/,$_;
            ??????????? print "Warning: Out of memory. Kill process: @killed_process[1]\n";
            ??????????? # 發送警告信息給 root 用戶,保存程序運行記錄。
            `echo "Process @killed_process[1] has been killed because of unlimited memory \
            allocation" | mail -s "Out of memory" root`

            ??????????? `kill -11 @killed_process[1]`;
            ??????????? last;
            ??????? }
            ??????? $line_count = $line_count + 1;
            ??? }

            ?# 如果內存使用率大于 0.9,腳本將調用 ps 命令并且找出內存使用率最高的進程,打印出將要殺掉進程的警告信息,
            ?#殺掉內存使用率最高的進程。 此過程將循環進行知道內存占用率低于 0.9
            ?}

            国产精品久久久99| 精品久久久久国产免费| 国产午夜免费高清久久影院| 国产精品xxxx国产喷水亚洲国产精品无码久久一区 | 久久久久国产精品嫩草影院| 99久久婷婷国产综合亚洲| 国产午夜精品理论片久久| 久久久噜噜噜久久中文福利| 97久久婷婷五月综合色d啪蜜芽| 亚洲人成电影网站久久| 97精品依人久久久大香线蕉97| 91久久国产视频| 狠狠干狠狠久久| 久久本道久久综合伊人| 青青热久久国产久精品| 无码乱码观看精品久久| 久久精品国产99国产精偷 | 国产成人久久精品一区二区三区| 亚洲国产精品综合久久一线| 久久99热这里只频精品6| 亚洲精品无码久久久久去q| AAA级久久久精品无码片| 爱做久久久久久| 色8久久人人97超碰香蕉987| 久久国产免费直播| 亚洲精品乱码久久久久久蜜桃不卡| 色欲久久久天天天综合网| 久久婷婷国产麻豆91天堂| 亚洲人成伊人成综合网久久久| 久久久久久毛片免费看| 久久99精品国产麻豆不卡| 东方aⅴ免费观看久久av| 国产午夜精品理论片久久| A狠狠久久蜜臀婷色中文网| 久久天天躁狠狠躁夜夜avapp| 性高朝久久久久久久久久| 久久精品综合一区二区三区| 九九热久久免费视频| 久久免费小视频| 精品久久人人爽天天玩人人妻| 国产精自产拍久久久久久蜜|