原创 用perl來改寫shell
查看Web服務器的併發請求數及其TCP連接狀態的命令 netstat -n | awk '/^tcp/ {++S[$NF]} END {for(a in S) print a, S[a]}' 據說是從新浪互動社區事業部技術總監王老大那兒
2019-07-18 13:34:26
1
原创 Perl輕鬆分析數據兩例
某日在網上溜達，看見一網友博客（http://rainbird.blog.51cto.com/211214/165779）上的兩道題，作者說沒有兩年linux道行,很難做出其中三道。這裏我們看看這些題究竟有多難（僅針對腳本編程）。 第一道：
2019-07-18 13:34:26
2
原创 兩個文件拼一個
網上的題文件a.txtATCGTCGAGTCGA GTCGTAGCT CGATGCTAACTCAA CGATCGATCAGCAT文件 b.txt23 45 34 76 34 67 37 78請輸出文件ATCGTCGAGTCGA 23 45
2019-02-23 00:25:02
2
原创 perl的魅力
網上看到一道題，內容如下。 123456 23 1000 234567 34 1234 345678 21 1234 456789 45
2019-02-23 00:25:02
2
原创 nginx與tomcat結合，動靜分離
我們的網站是nginx+tomcat架構，前端用nginx來處理靜態內容，動態的全交給tomcat來處理。之前的SA配置太過於簡單，而且沒有仔細梳理網站的流程。nginx與tomcat的安裝就不說了，很easy,直接貼配置文件,作個筆記 n
2019-02-23 00:25:02
1
原创 perl面試題解析
數據分析檢測系統某一目錄下是否存在文件a.txt,有的話，則mv成新的文件，沒有，則創建它，並向文件中輸入以下數字：1 0 1 2 1 1 3 0 1 4
2019-02-23 00:25:02
44
原创 perl發郵件代碼（備份）
保存一下，在你的代碼中require它即可 =head need install module Net::SMTP_auth, you can type the following command at your shell pro
2019-02-23 00:25:00
1
原创 Perl結合飛信發送免費的天氣預報信息
每天在公司上班，打開QQ的同時，就順便看了一下今天的天氣情況。當時就在想，可不可以用perl來解析這個html頁面，抽取其中必要的elements，然後透過第三方的飛信將該消息發送給自己，不就可以了麼。說幹就幹，就寫了這麼一段代碼，算法不是
2019-02-23 00:25:00
3
原创 perl 引用備忘
//$ref是一個匿名數組引用，同時嵌套着匿名數組引用，匿名散列引用 my $ref = [1,2,3,['a','b','c'],{a=>1,b=>2,c=>3,},]; //訪問其中的一個元素1printf "%d\n",$ref->
2019-02-23 00:25:00
原创 續bind98-內網智能DNS之slave服務器構建
安裝的過程完全一樣，這裏主要是貼上從服務器的配置文件。 一、主配named.conf options { directory "/usr/local/named/etc"; dump-file "/var
2018-09-12 05:48:48
原创 centos 編譯內核至2.6.39.4
一、下載內核文件並解壓至相應目錄 # wget http://www.kernel.org/pub/linux/kernel/v2.6/linux-2.6.39.4.tar.bz2 # tar jxvf linux-2.6.39.4.tar
2018-09-12 05:48:48
2
原创 bind98-內網智能DNS之master服務器構建
公司有一測試環境，上面跑着線上的各個網站的線下版本（即上線之前在本地所做的測試）。起初，我們在配置該環境時，訪問每個網站均採用獨立IP的形式進行。這樣一來，僅僅就這一個服務器上就佔用了內網的10幾個IP，再加上辦公室同事的正常使用IP，IP
2018-09-12 05:48:48
原创 perl 求和
CU上一道題，利用perl求和 請問如何求和？ a 2 a 3 a 4 b 4 b 5 c 6 d 4 d 1 相同的字母求和。 直接上代碼哦， #!/bin/env perl use strict "subs"; use List::
2018-09-12 05:48:48