查看完整版本: PERL 系統管理

論壇 › Linux › PERL 系統管理

awp69413 發表於 2014-4-13 07:33 AM

PERL 系統管理

本帖最後由 awp69413 於 2014-4-13 07:35 AM 編輯



在linux下 perl是很常用的語言，使用perl 來做系統管理，可以達事半攻倍的效果。

<div></div>

luckjimmy829 發表於 2016-10-11 10:15 PM

perl 的 one liner 還蠻好用的. 有些事 可以一行解決

chefchandanny 發表於 2016-11-3 01:35 PM

perl 配合 regex 可以在大量的資訊里找你想要的。又何以格式output。
就像這樣：
tmsh -q -c "list sys global-settings; cd /; show ltm virtual recursive" | grep "Ltm::Virtual Server: \| Availability\|Destination\|host" | perl -ne '
                                                                        if(/hostname (+)\./){ $host = $1; $host = uc $host; }
                                                                        elsif(/Ltm::Virtual Server: (.+)/){ $vip = $1; $vip =~ s/\s//g; print $host . "\t" . $vip . "\t"; }
                                                                        elsif(/Availability     : (.+)/){ $statu = $1; print $statu . "\t"; }
                                                                        elsif(/Destination      : (.+)/){ $ip = $1; print $1 . "\n"; }
‘...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div>