原创 我的友情鏈接

51CTO博客開發藍蜂丁胖胖的blog鄭偉的IT交流中心嶽雷的微軟網絡課堂王春海的博客李晨光賴永鋒sery宋楊-活動目錄、虛擬化和windows 7melvillo的技術空間ZPP葉俊堅boyhong51CTO下載管家一休Helpdesk

原创 《編程珠璣》中的排序問題

部分陳述: 有一個文件大約一千萬條,每條都是由7位不重複的數字組成,記錄之間不會重複。現要求在10秒之內把這些文件在1MB的內存佔用的情況下,完成排序(升序或者降序)。

原创 Perl中的$/

Perl中有很多種特殊變量,就像awk一樣,它們用於文本處理。像什麼記錄輸入/輸出分隔符之類的。在Perl中,$/意即輸入記錄分隔符,代表着一個記錄的結束和開始。 通常我們使用鑽石操作符<>來從文件句柄中讀取所需要的數據,默認它每次只讀取一

原创 Perl遞歸目錄

一行代碼搞定: perl -MFile::Find -E "find sub {say $File::Find::dir , '/', $_ }, qq(c:/windows/)"

原创 一文本處理問題

最近一直在學習PERL的文本處理,今天在CU上遇到一個問題,練習了一下,結果沒搞定... while(<DATA>){     if($.==1){         chomp;         %tab=();         @

原创 我的友情鏈接

51CTO博客開發藍蜂丁胖胖的blog鄭偉的IT交流中心嶽雷的微軟網絡課堂王春海的博客李晨光賴永鋒sery宋楊-活動目錄、虛擬化和windows 7melvillo的技術空間ZPP葉俊堅boyhong51CTO下載管家一休Helpdesk

原创 Perl grep

在Perl中,我們可以把很長的代碼縮寫成很小的片段,這就是Perl有時候看上去很複雜和簡潔的原因。以下是Perl的grep一個用法。大家都知道在Linux系統中,也有一個同名的grep命令,它是一個非常不錯的命令,同樣Perl 的grep也

原创 Perl不重複的文件行輸出

在日常的文本處理中,有時候要輸出唯一的行,這種工作有多種方法實現... 以下是一種: my %hash; while (<>) {     chomp;     if (defined $hash{$_}) {         $h

原创 Perl Telnet模塊詳解

 Telnet是一個古老而又不安全的協議,用來實現遠程登錄。這種服務可以和基於客戶機/服務器進行通信,也就是說把你的電腦虛擬成一個鍵盤(僞終端)來和遠程的服務進行通信,而服務器以爲輸入來自它本地的鍵盤,我們在本地所執行的命令會發送到遠程服務

原创 Perl Getopt::Long 多值命令行處理

學習新的技術:Node.js家園   一直想學習下Perl命令行選項的處理,今天花了點時間看了下,以下是多值命令選項的方法,使用了Getopt::Long模塊。 比如你的命令行選項像下面這樣,你將如何取得這些值呢? command -opt

原创 Perl打印文件中的某幾行

關注新的技術:Node.js家園   如何用Perl打印文件中的某幾行信息呢?假如你有一個文件,你只關心某一段文字,大概你會使用比較傳統的文件行記數法,然後再來判斷這個文件行的區間是否在我們預期的之內。其它這個工作,在Perl中是相當容易實

原创 Perl File::Basename

use warnings; use strict; use File::Basename; ######################################################################

原创 目前無法理解的命令行處理

#!/usr/bin/env perl use warnings; use strict; use Getopt::Long qw(:config gnu_getopt); my %options = (         'h

原创 我的Perl的認識

 我想要嘮叨一下Perl的事情。 Perl作爲一個腳本語言,它實在是太強大,出乎我的意料。雖然我和Perl之間相識才一個多月。 Perl的數據結構 程序的事情就是數據結構加算法,數據結構讓你描述自己的數據,算法作爲一個包裝讓這個“描述”更加

原创 Perl gethostbyname

 我們如何把域名翻譯成IP地址呢,這個功能可以通過Perl的 gethostbyname函數來完成,雖然我不知道是否其它的辦法,因爲我使用這個方法一下子就完成了我腦海中想要完成的操作。 比如,我有一個文本文件,裏面保存着一些網址,如下: