a亚洲精品_精品国产91乱码一区二区三区_亚洲精品在线免费观看视频_欧美日韩亚洲国产综合_久久久久久久久久久成人_在线区

首頁 > 編程 > Perl > 正文

使用perl腳本調用socat監控haproxy狀態

2019-11-06 06:37:15
字體：大 中 小
來源：轉載
供稿：網友

舉個栗子

my @items;my @item;my $stat_file = "/×××××/haperl的一些實用寫法格式化打印（以下表示格式化打印數組item中的前四項元素）：my @item = ("a", "b", "c", "d");my $state_format = " %-20s %-40s %-40s %-40s/n";printf($state_format, @item[0], @item[1], @item[2], @item[3]);替換字符串中的某個字符（以下表示替換標量key中一個或多個“-”號為一個空格，且“-”號不位于開頭或末尾）：$key =~ s/(?<=.)-+(?=.)/ /g;判斷字符串中是否含有某個字符或字符串（以下表示判斷數組item中第一個元素中是否含有“# ”這個字符串）：if (@item[0] =~ /# /){ ***;}在perl中執行shell命令（以下表示將shell命令下的echo “hello”結果存儲到標量items中；”ls”等命令的結果需要用到數組來存儲）：$items = `echo "hello"`;遍歷數組時，使用默認變量代替當前遍歷值（以下表示使用“$_”代替了每次遍歷的數組items中的元素）：foreach (@items){ $_ .= "/n";}根據特定字符分隔字符串（以下表示將標量string以空格分隔，分隔的結果存儲在數組first_line中，此時first_line的內容為(“a”, “b”, “c”, “d”)，再將first_line的最后一個元素賦值給數組item的第一個元素）：my $string = "a b c d";my @first_line = split(" ", $string);@item[0] = @first_line[-1];

備份地址

使用perl腳本調用socat監控haproxy狀態

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板： 久草视频在线资源 | 免费的黄色大片 | 黄色在线免费观看 | 欧美成人激情视频 | 欧美亚洲视频在线观看 | 狠狠久久 | 日日草天天干 | 在线观看亚洲免费 | 亚洲国产精品视频 | 国产精品极品美女在线观看免费 | 国产在线观看一区二区三区 | 久久久免费观看视频 | 在线国产视频 | av水蜜桃| 日韩欧美视频一区二区三区 | 性电影网站 | 久久久久国产 | 日韩成人免费在线 | 国产一区二区三区久久久 | 久久午夜精品福利一区二区 | 成人黄色小视频 | 国产亚洲成av人片在线观看桃 | 成人国产精品一区二区毛片在线 | 国产精品系列在线播放 | 国产精品视频久久久久 | 色玖玖| 成人aaaa| 亚洲色图偷拍视频 | 国产成人精品一区二 | 色99在线| 国产综合av | 色网址在线 | 欧美日韩成人在线播放 | 69久久99精品久久久久婷婷 | 国产欧美在线观看 | 久久韩日| 中文字幕 国产精品 | 一本色道精品久久一区二区三区 | 久久亚洲国产精品 | 国产精品中文字幕一区二区 | 成人看片网 |