原创 winrar目錄穿越漏洞（更新經驗）
原文地址：http://www.cnblogs.com/dadawang/p/10426425.html 方法總結：1、用Winace建立壓縮包；2、修改exe路徑爲系統啓動目錄（C:\C:C:../AppData\Roaming\Micr
2019-02-26 12:50:38
原创 Perl Search::Elasticsearch模塊使用經驗總結
在搭建Elasticsearch數據庫的過程中，首先使用了其推薦的Logstash工具導入數據，但是用起來非常不順手，所以想用Perl擅長的正則表達式對數據進行過濾分類，然後導入Elasticsearch，於是搜索CPAN找到了Search
2019-02-22 23:53:40
1
原创 Perl 打印引用的哈希列表
for my $key (keys %{$href}) { print "$key =>; ${$href}{$key}\n"; }
2018-09-12 06:16:13
原创 Perl 讀取特定格式的文件名
在Perl語言編程一書中學習到了一種直接讀取特定格式文件的方法，非常簡潔，代碼如下：while (<*.pl>){ print $_." "; }
2018-09-12 06:16:13
原创 通過IP歸屬地過濾Linux服務器端口流量
一、IP歸屬地數據庫中導出需要的地址段列表，並用netmask工具轉換成掩碼格式use strict; my $arg; open INPUT,"ip.txt"; while (<INPUT>){ my $line=$_; chom
2018-09-12 06:16:13
原创 Perl 通過SMTP發送正文爲HTML格式的郵件
Perl雖然有Net::SMTP模塊可以發送郵件，但是似乎只能發送純文本的郵件，這次的需求是將一個HTML網頁直接顯示在郵件正文中，因此搜索到了MIME::Lite模塊來實現這個功能。use strict; use MIME::Lite;
2018-09-12 06:16:13
原创 elasticsearch 6.2.4運行問題處理記錄
問題一：max number of threads [2048] for user [work] likely too low, increase to at least [4096]解決方法：進入limits.d下的配置文件：vi /et
2018-09-12 06:16:13
1
原创 Perl POST請求發送
使用Perl進行POST訪問的經典方法。use strict; use LWP; my $browser = LWP::UserAgent->new(); my $response= $browser->post("http://loca
2018-09-12 06:16:13
原创 Perl UTF-8字符開關
use utf8; binmode(STDIN, ':encoding(utf8)'); binmode(STDOUT, ':encoding(utf8)'); binmode(STDERR, ':encoding(utf8)');
2018-09-12 06:15:59
原创 Perl讀取Excel文件並解決中文亂碼問題
使用CPAN中的Spreadsheet::ParseExcel模塊讀取Excel文件中的內容，當遇到中文亂碼問題時，使用Spreadsheet::ParseExcel::FmtUnicode模塊重新編碼，當將中文賦值給變量時，用Encode
2018-09-12 06:15:58
60