国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > 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狀態

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

圖片精選

主站蜘蛛池模板： 眉山市| 达孜县| 鹤岗市| 中牟县| 西藏| 蒲城县| 双峰县| 安塞县| 科尔| 临颍县| 嘉黎县| 凤冈县| 元谋县| 民和| 乐陵市| 太康县| 大冶市| 隆回县| 鱼台县| 石狮市| 洪洞县| 太白县| 清苑县| 内乡县| 云阳县| 左权县| 荣成市| 顺昌县| 遵义县| 永顺县| 淮南市| 贵溪市| 五寨县| 刚察县| 平乐县| 桦南县| 成都市| 平远县| 车险| 新昌县| 剑阁县|