国产探花免费观看_亚洲丰满少妇自慰呻吟_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狀態

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

圖片精選

主站蜘蛛池模板： 梧州市| 临澧县| 垣曲县| 青阳县| 萨嘎县| 荥阳市| 遵义县| 姚安县| 满洲里市| 青阳县| 阆中市| 双鸭山市| 手机| 华容县| 若尔盖县| 潞城市| 闽侯县| 沾化县| 荔波县| 阳朔县| 水城县| 鹤山市| 谢通门县| 灵丘县| 沁水县| 康定县| 双柏县| 桂平市| 黔东| 米易县| 扎兰屯市| 上高县| 枣庄市| 西贡区| 潍坊市| 许昌县| 泰州市| 台中市| 油尖旺区| 斗六市| 乌鲁木齐县|