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