原创 CentOS 命令行通過命令獲取ipv4和ipv6地址
1. 方法一:dig $INTERNET_URL AAAA +short 2. 方法二:nslookup 點贊 收藏 分享 文章舉報 zy12805 發佈了66 篇原創文章
原创 shell中使用curl時,數據爲亂碼的解決方法,以及一些參數的解釋
在使用shell中的curl訪問baidu時,返回值爲亂碼,可通過|iconv -fgb2312 -t utf-8方式解決: eg : curl -v -m 10 -6 https://www.baidu.com|iconv -t gb2
原创 Perl中的alarm、eval、die的聯合使用
1. eval: eval是一個表達式,而不是if和while這樣的控制結構,eval塊發生嚴重錯誤時,eval塊會停止執行,但程序不會崩潰。所以在程序中執行有可能引起嚴重錯誤的代碼塊,但又不想影響後續程序的執行時,可以把這部分代碼塊放入
原创 在centos中用腳本給firefox導入certificate
在寫自動化測試腳本時,如果想給firefox導入certificate,可以使用certutil工具。具體介紹可以看https://developer.mozilla.org/en-US/docs/Mozilla/Projects/NSS
原创 quotemeta函數爲預定義的字符前加反斜槓
quotemeta函數爲預定義的字符前加反斜槓。 很多時候在定義一個好一個字符串後,想在模式匹配中也用這個字符串去匹配,但是又擔心裏面有預定義的字符,比如.等,可以用quotemeta這個函數。 eg:my $quote_ipv4 = q
原创 linux下批量殺死進程(使用了xargs)
ps -aux | grep ping6 | cut -c 9-15 | xargs kill -9這條命令用了管道的方式,|左邊的輸出作爲右邊的輸入。ps -aux 列出進程grep ping6是找出上一步輸出的進程中包含ping6的
原创 perl中的format(未完待續)
perl提供了一個簡單的機制幫助格式化輸出,產生簡單的格式化報表。 包括 1. 格式聲明format; 2. 執行write 格式聲明如下: format FormatName = Fied line
原创 ip -6 n之後 router FAILED的問題
今天遇到一個網絡問題,在centos的機器上給eth0配了靜態ipv6地址(在/etc/sysconfig/network-scripts/ifcfg-eth0),然後通過firmware想去訪問另一臺機器,但是一直ping不通另一臺機器
原创 perl中的引用
1. 創建引用: 1.1 用反斜槓操作符: $arr = \@ARGS; $arr = \$str; $hashref = \%hash; 1.2 匿名數據 1.2.1 匿名數組組合器: 用方括弧創建一個匿名數組的引用: $arra
原创 使用perl的Net::SMTP::SSL模塊發送smtps帶附件的郵件
use Net::SMTP::SSL; use MIME::Lite; my $mail_from = '[email protected]'; my $mail_to =
原创 perl grep and map
Perl中的grep可以從列表中取出某些需要的元素。grep 第一個參數是一個塊,其中$_依次爲列表中的每一個值,返回一個Boolean(true/false)值。剩下的參數是相應的列表。grep 會首先計算表達式的值,這和foreach
原创 perl中$/的作用
$/在perl中是輸入記錄分隔符,影響perl對"行"的理解。默認是換行符"\n".也可以定義爲其他的內容: 需要特別注意的是,$/的值是字符串,不是模式匹配。 1> 不修改$/的內容,默認爲"\n" eg: test.pl open W
原创 perl實現的一個模式替換題目
在網上看到一個perl模式匹配的題目,自己試了下結果,留個底:以下是一個文件的一部分:block1 LAYER1 a0=56, b0=147.345989944561, c0=11.0225098942223
原创 Setup smtps(包含ipv4和ipv6的DNS配置)
1. 配置DNS(ipv4或者ipv6)1> cd /etc2> vim named.confoptions { listen-on port 53 { any; }; listen-on-v6 port 5
原创 perl中模塊以及模塊中的函數的引入
在perl中提供了大量的模塊以及別人寫好的模塊,可以安裝使用。 1> 例如可以用use File::Basename,引入模塊,並且可以直接使用這個模塊裏面的全部函數。 use File::Basename; my $dir