perl命令行參數

❶ perl 學習 關於文本存放位置的問題

my$in=$ARGV[0];這個地方應該是錯的

我個人感覺你的文件讀取操作是錯的,建議學會使用下面書寫句柄操作方式。句柄的各項操作最好在代碼的前面就書寫完畢，不然你的代碼實在是太亂了。

給你我寫過的例子，我一般下面這樣寫

命令參數為：perlget_pcr.pl路徑samfile路徑outfile

#!/usr/bin/perl
#
#2013-09-27

usestrict;
usewarnings;

@ARGV==2ordie"usage:<sam><out>";
my($samFile,$outFile)=@ARGV;

openmy$sam,'<',$samFileordie"erroropenfile:$samFile";
openmy$out,'>',$outFileordie"erroropenfile:$outFile";

while（<$sam>）
{
}
close$sam；
close$out；

❷ 如何利用perl命令行， 來執行正則表達式，尋找匹配的行

樓上的是找出其中之一呀，樓主要的是同時包含兩個句子。
可以這樣
perl -n -e 'print if ($_ =~/Barney/ && $_ =~ /Fred/)' test.txt >new.txt

其實這樣的實現用awk命令這些很好用。樓主可以學習學習awk sed grep 等命令。
我補充個實例吧。
awk '{if (/Barney/ && /Fred/) print }' test.txt > new.txt
more test.txt | grep Barney | grep Fred >new.txt (這個管道用著很有意思)
都測試了一下，可行

❸ 用ultraedit配置perl來做perl的IDE，運行perl時需要參數時如何傳！

你用的是菜單高級\工具配置里頭的嗎？
命令行里用：perl %f -m201002
工作目錄用%d，應該可以。

❹ 求教，怎樣用perl 讀命令行傳進來的參數，

最簡單的是用@ARGV獲得命令後面的參數表
如執行「perl ppp.pl 1 2 3 4 5」
ppp.pl後面跟著5個參數，在程序中可以直接通過調用$ARGV[0],$ARGV[1],$ARGV[2],$ARGV[3],$ARGV[4]來分別調取。

❺ perl腳本中$ARGV[0]是什麼意思

$ARGV[0]是從命令行來的，$ARGV[0]是程序名，$ARGV[1]是第一個參數，一次類推。

例如執行下面的命令：
test.pl abc .def
或者：
perl test.pl abc def

那麼:
$ARGV[0]=='test.pl'
$ARGV[1]='abc'
$ARGV[2]='def'

❻ win10用notepad++運行Perl提示無效參數

1,用Notepad++打開.pl文件，

2, F5或者Run->Run,打開運行窗口，在下面的框框里輸入：Perl -w "$(FULL_CURRENT_PATH)"，
然後Save，保存成一個命令就行，名字比如叫Run_Perl,快捷鍵我選的F9.然後按F9就可以運行了

3,不過你只能看到命令行窗口一閃而過，要讓他停住需要加一行代碼：my $waiting=<STDIN>;

實例代碼如下：
#!usr/bin/perl
use strict;
use warnings;

my $config_file = "game_config.text";
my $config_data_file = "congif.dat";

print ( "Press Enter to quit" );
my $waiting=<STDIN>;

加入以上代碼以後，按F9就能保留命令行窗口看到輸出結果。

4,如果需要調試，同樣的新建運行命令，不過參數改成：Perl -d "$(FULL_CURRENT_PATH)"就行了，怎麼調試到時候會有提示的

5,如果需要修改調試命令的快捷鍵：Settings->Shortcut Mapper->Run Commands,拖到最下面就能看到我們剛才保存的命令了，編輯就行了

6,注意：如果你就這樣通過Notepad++運行Perl腳本，默認的目錄是Notepad++的安裝目錄，而非Perl腳本所在的目錄，
需要在Notepad++上Plugins->Plugins Manager裡面安裝NppExec plugin，然後勾選NppExec --> Follow $(CURRENT_DIRECTORY)， 這樣以後運行Perl腳本默認目錄就是當前目錄了。

❼ Perl語言裡面「」$.」代表什麼意思

$! 根據上下文內容返回錯誤號或者錯誤串
$」 列表分隔符
$# 列印數字時默認的數字輸出格式
$$ Perl解釋器的進程ID
$% 當前輸出通道的當前頁號
$& 與上個格式匹配的字元串
$( 當前進程的組ID$) 當前進程的有效組ID
$* 設置1表示處理多行格式.現在多以/s和/m修飾符取代之.
$, 當前輸出欄位分隔符
$. 上次閱讀的文件的當前輸入行號
$/ 當前輸入記錄分隔符,默認情況是新行
$: 字元設置,此後的字元串將被分開,以填充連續的欄位.
$; 在模擬多維數組時使用的分隔符.
$? 返回上一個外部命令的狀態
$@ Perl解釋器從eval語句返回的錯誤消息
$[ 數組中第一個元素的索引號
$\ 當前輸出記錄的分隔符
$] Perl解釋器的子版本號
$^ 當前通道最上面的頁面輸出格式名字
$^A 列印前用於保存格式化數據的變數
$^D 調試標志的值
$^E 在非UNIX環境中的操作系統擴展錯誤信息
$^F 最大的文件捆述符數值
$^H 由編譯器激活的語法檢查狀態
$^I 內置控制編輯器的值
$^L 發送到輸出通道的走紙換頁符
$^M 備用內存池的大小
$^O 操作系統名
$^P 指定當前調試值的內部變數
$^R 正則表達式塊的上次求值結果
$^S 當前解釋器狀態
$^T 從新世紀開始算起,腳步本以秒計算的開始運行的時間
$^W 警告開關的當前值
$^X Perl二進制可執行代碼的名字
$_ 默認的輸入/輸出和格式匹配空間
$| 控制對當前選擇的輸出文件句柄的緩沖
$~ 當前報告格式的名字
$` 在上個格式匹配信息前的字元串
$』 在上個格式匹配信息後的字元串
$+ 與上個正則表達式搜索格式匹配的最後一個括弧
$< 當前執行解釋器的用戶的真實ID
$ 含有與上個匹配正則表達式對應括弧結果
$= 當前頁面可列印行的數目
$> 當前進程的有效用戶ID包含正在執行的腳本的文件名
$ARGV 從默認的文件句柄中讀取時的當前文件名
%ENV 環境變數列表
%INC 通過do或require包含的文件列表
%SIG 信號列表及其處理方式
@_ 傳給子程序的參數列表
@ARGV 傳給腳本的命令行參數列表
@INC 在導入模塊時需要搜索的目錄列表
$-[0]和$+[0] 代表當前匹配的正則表達式在被匹配的字元串中的起始和終止的位置

❽ linux下的shell編程 如何替換文件中的內容

可以這樣做：

方法1：sed -i 's/被替換的內容/要替換成的內容/' file

方法2：sed 's/被替換的內容/要替換成的內容/g' file > file.out；mv file.out file。

(8)perl命令行參數擴展閱讀：

Shell編程的常用技巧：

一、自動補齊：在linux中對於命令或路徑，可以TAB鍵進行自動補全，以下事項需要注意：

1、只存在一個該輸入字元開頭的命令或路徑，此時自動補全；

2、存在多個該輸入字元開頭的命令或路徑，此時第一次點擊TAB鍵無效，此時再次點擊TAB會羅列出所有該字元開頭的命令或路徑，繼續輸入直到僅僅剩一個時自動補全；

3、如果命令已經是完整的，TAB鍵則是本來的移動功能；而路徑的話要看命令自身的行為決定後續動作。

二、歷史命令

1、history命令可以顯示歷史執行過的命令；

2、使用！+序號執行該序號對應的命令；

3、使用！+字元執行該字元開頭的最後一次執行的指令。

三、命令別名

1、實現別名：alias ddd="df -Th"；

2、刪除別名：unalias ddd；

3、顯示所有別名命令列表：alias；

4、存放位置：~/.bashrc (加入該文件後，重啟後不會消失)。

四、重定向

1、重定向標准輸入：< 命令接收輸入的途徑由鍵盤改為文件；

2、重定向標准輸出：> 將命令的執行結果輸出到指定文件，而不是直接顯示到屏幕；

3、重定向標准輸出：>> 將命令的執行結果追加輸出到指定文件；

4、重定向標准錯誤：2> 清除指定文件的內容，並把標准錯誤信息保存到指定文件；

5、重定向標准錯誤：2>> 標准錯誤信息追加到指定文件；

6、重定向標准輸出和標准錯誤：&> 將標准輸出、標准錯誤信息全部保存到指定文件，而不是直接顯示在屏幕上。

❾ perl中如何定義數組參數

PERL的參數可以使用數組，調用的時候要在%或者@前面加上\，否則就把數組的值傳遞給函數了，下面是調用的例子：
Run(\%o, $ch, $num);
這個函數Run使用三個參數，第一個是數組類型，函數定義就沒什麼特殊的：
sub Run {
my($o, $ch, $num) = @_;
my $th = IO::Socket::INET->new('PeerAddr' => $o->{'tohost'}, 'PeerPort' => $o->{'toport'});
my $read_counter=0;
}

補充：
你的問題我以為是問PERL函數的參數。

PERL使用下面的變數獲取命令行參數：$#ARGV表示參數的個數，$ARGV[0]、$ARGV[1]、$ARGV[2]……依次表示各個參數

❿ Perl入門教程

2樓真是的，人家還沒入門，你直接整個文件操作幹嘛？
什麼是Perl？

Perl 是一種最初開發用於文本操作的編程語言。現在它能應用於廣泛的任務，包括系統管理、 web 開發、 網路編程、 GUI 開發和更多的普通用途。

這個語言以實用性為目標（易用、高效、完整）寧願失去美麗（小巧、優雅、迷你）。它使用方便，且支持面向過程和面向對象編程，內置強大的文本處理支持，並有世界上最令人印象深刻的第三方模塊的集中營。
運行Perl程序

在Unix命令行運行Perl程序：

perl progname.pl

另一種方法是，把這個放到你的腳本第一行：

#!/usr/bin/env perl

然後用/path/to/script.pl運行。當然，首先得讓它能執行，你得chmod 755 script.pl（Unix下）。

（這里的第一行假設你有env程序。你也可以直接把你的perl解釋器的路徑直接放到第一行，比如#!/usr/bin/perl）
安全保障

默認情況下，Perl非常隨意。為了使它更強健建議每個程序由下列行開始：

1. #!/usr/bin/perl
2. use strict;
3. use warnings;

附加的兩行從perl中捕獲您的代碼中的各種常見的問題。它們檢查不同的事情，所以你需要兩個都加上。一個潛在的問題通過use strict;捕獲，一旦它捕獲到問題，會馬上讓你的程序停止運行。當然使用use warnings;時，僅僅出現警告（就好像命令行的-w選項）並不會停止程序。
基本語法概述

一個Perl腳本或程序包含一條或多條語句。這些語句只需直接寫在腳本中，而不需要像main()這樣的東西作為程序入口。

Perl語句以分別結束：

print "Hello, world";

以星號（#）開始的語句是注釋：

# This is a comment（這是一條注釋）

空白字元會被Perl忽略：

1. print
2. "Hello, world"
3. ;

……引號里的字元串除外：

1. # this would print with a linebreak in the middle
2. print "Hello
3. world";

字元串使用雙引號或單引號：

1. print "Hello, world";
2. print 'Hello, world';

然而，只有雙引號會「插入」變數值和像換行符（\n）這樣的特殊字元（轉義字元）：

1. print "Hello, $name\n"; # works fine
2. print 'Hello, $name\n'; # prints $name\n literally

數字不需要引號：

print 42;

你可以使用或省略括弧來傳遞函數的參數。它們只是在偶爾要改變或明確優先順序的時候必須使用。

1. print("Hello, world\n");
2. print "Hello, world\n";

Perl變數類型

Perl有3種主要的變數類型：標量（scalars）、數組（arrays）和哈希（hashes）。

* 標量（Scalars）

一個標量表示只有一個值：

1. my $animal = "camel";
2. my $answer = 42;

標量的值可以是字元串、整數或浮點數，並且Perl會在需要的時候自動轉換。你不需要預先聲明你的變數類型，但是你需要在第一次使用它們的時候，使用my來聲明它們。（這是use strict;所要求的）

標量可以用不用的方式使用：

1. print $animal;
2. print "The animal is $animal\n";
3. print "The square of $answer is ", $answer * $answer, "\n";

有大量的「魔法」標量的名稱看上去像標點或線路噪音。這些特殊的變數用於各種目的。現在你只要知道其中一個，這就是「默認變數」$_。它被許多Perl的函數用作默認的參數，並且它被隱式設置到某些循環結構中。

print; # prints contents of $_ by default（默認列印$_的內容）

* 數組（Arrays）

數組用於表示一些值的列表：

1. my @animals = ("camel", "llama", "owl");
2. my @numbers = (23, 42, 69);
3. my @mixed = ("camel", 42, 1.23);

特殊變數$#array將返回數組最後一個元素的索引：

print $mixed[$#mixed]; # last element, prints 1.23

你可能想使用$#array + 1來得到這個數組的元素個數。別急，這很容易。在Perl預想找到一個標量值的時候（「在標量上下文」），使用@array會得到數組的元素個數：（譯註：「上下文」是Perl很重要的特性之一，請查閱相關文檔或在無憂Perl搜索相關內容）

if (@animals < 5) { ... } #譯註：當@animals數組的元素個數少於5個的時候

當我們從數組獲得元素值的時候，需要使用$，因為我們只要獲取數組里的一個值；你請求一個標量，然後會獲得一個標量。

從數組里獲取多個值：

（譯註：獲取多個值，使用@，因為我們要獲取數組里的幾個值（列表）。）

1. @animals[0,1]; # gives ("camel", "llama");
2. @animals[0..2]; # gives ("camel", "llama", "owl");
3. @animals[1..$#animals]; # gives all except the first element

這叫「數組切片」。

你可以在列表裡幹些有意義的事情：

1. my @sorted = sort @animals;
2. my @backwards = reverse @numbers;

有兩個特殊的數組，一個是命令行傳到你腳本的參數@ARGV；另一個是傳遞給子程序的參數@_。
* 哈希

哈希用來表示鍵/值對：

1. my %fruit_color = ("apple", "red", "banana", "yellow");

你可以使用空白字元和=>操作符來美化上面的代碼：

1. my %fruit_color = (
2. apple => "red",
3. banana => "yellow",
4. );

獲取哈希元素：

1. $fruit_color{"apple"}; # gives "red"

你可以通過keys()和values()來獲取鍵列表和值列表。

1. my @fruits = keys %fruit_colors;
2. my @colors = values %fruit_colors;

哈希沒有特定的內部排序，然而你可以對鍵進行排序來遍歷它。

和特殊的標量、數組一樣，哈希也有特殊的。我們現在只要知道哈希%ENV包括所有環境變數

。

更復雜的數據類型可以使用引用來構造，允許你把列表和哈希放到另一個列表和哈希中。

引用是一個標量值，它可以引用任何其它的Perl數據類型。通過把引用存儲為數組或哈希的元素值，你可以輕松創建列表/哈希中的列表/哈希。

以下示例演示了使用匿名哈希引用實現的兩級哈希結構

1. my $variables = {
2. scalar => {
3. description => "single item",
4. sigil => '$',
5. },
6. array => {
7. description => "ordered list of items",
8. sigil => '@',
9. },
10. hash => {
11. description => "key/value pairs",
12. sigil => '%',
13. },
14. };
15.
16. print "Scalars begin with a $variables->{'scalar'}->{'sigil'}\n";

變數作用域

上面所有的例子都使用這種語法：

1. my $var = "value";

實際上，my不是必須的。你可以省略：（譯註：前提是，你沒有使用「use strict;」語句）

1. $var = "value";

但是，上面的用法將創建一個全局變數，這是一個很差的編程實踐。my創建一個詞法作用域變數，這個變數只在定義它們的語句塊中可見（比如一段包在大括弧里的語句）。

1. my $x = "foo";
2. my $some_condition = 1;
3. if ($some_condition) {
4. my $y = "bar";
5. print $x; # prints "foo"
6. print $y; # prints "bar"
7. }
8. print $x; # prints "foo"
9. print $y; # prints nothing; $y has fallen out of scope

結合使用my和在Perl腳本開頭使用use strict，解釋器將捕獲常見的編程錯誤。比如，在上面的例子中，最後的print $y將引發一個編譯時錯誤並阻止程序運行。強烈建議使用use strict語句！
條件和循環語句

Perl有許多常用的條件和循環語句。Perl 5.10甚至提供了分支語句（拼作given/when）。

條件可以是任何Perl表達式。比較和布爾條件語句中常用的邏輯運算符，請參閱有關信息的下一節中的運算符的列表。

* if

1. if ( condition ) {
2. ...
3. } elsif ( other condition ) {
4. ...
5. } else {
6. ...
7. }

還有否定版本的：

1. unless ( condition ) {
2. ...
3. }

這個否定版比if (!condition)更易讀。

注意，大括弧是必須的，即使代碼塊中只有一行。不過，這里有一個方法可以讓你通過類似英語的語法來實現單行條件語句：

1. # the traditional way
2. if ($zippy) {
3. print "Yow!";
4. }
5.
6. # the Perlish post-condition way
7. print "Yow!" if $zippy;
8. print "We have no bananas" unless $bananas;

* while

1. while ( condition ) {
2. ...
3. }

為了和unless同樣的理由，也有一個否定版本：

1. until ( condition ) {
2. ...
3. }

你也可以在後置條件里使用while：

print "LA LA LA\n" while 1; # loops forever

* for

跟C語言一樣：

1. for ($i = 0; $i <= $max; $i++) {
2. ...
3. }

自然Perl提供了更友好的列表遍歷循環foreach以後，C語言風格的for循環在Perl幾乎不需要了。
* foreach

1. foreach (@array) {
2. print "This element is $_\n";
3. }
4.
5. print $list[$_] foreach 0 .. $max;
6.
7. # you don't have to use the default $_ either...
8. foreach my $key (keys %hash) {
9. print "The value of $key is $hash{$key}\n";
10. }

內置操作符和函數

Perl 附帶了各種各樣的內置函數。我們已經看到的幾個，包括print，sort和reverse。

Perl常見操作符（運算符）

* 算術

1. + 加法
2. - 減法
3. * 乘法
4. / 除法

* 數字比較

1. == 等於
2. != 不等於
3. < 小於
4. > 大於
5. <= 小於等於
6. >= 大於等於

* 字元串比較

1. eq 等於
2. ne 不等於
3. lt 小於
4. gt 大於
5. le 小於等於
6. ge 大於等於

（為什麼數字和字元串的比較運算符不同？因為我們沒有不同的變數類型，並且Perl需要知道是以數字進行排序（99小於100）還是以字母進行排序（100在99前面））
* 邏輯

1. && and 和
2. || or 或
3. ! not 否

* 混合

1. = 賦值
2. . 字元串連接
3. x 字元串乘法
4. .. 范圍 (建立一個列表)

一些操作符可以和=結合，像這樣：

1. $a += 1; # same as $a = $a + 1
2. $a -= 1; # same as $a = $a - 1
3. $a .= "\n"; # same as $a = $a . "\n";

文件和I/O

你可以使用open()函數來打開一個文件，用於輸入或輸出：

1. open(my $in, "<", "input.txt") or die "Can't open input.txt: $!";
2. open(my $out, ">", "output.txt") or die "Can't open output.txt: $!";
3. open(my $log, ">>", "my.log") or die "Can't open my.log: $!";

你可以使用<>操作符從打開的文件句柄中讀數據。在標量上下文中，它從文件句柄中讀取一行；在列表上下文中，它讀取整個文件，並將每一行作為列表的元素。

1. my $line = <$in>;
2. my @lines = <$in>;

一次性把整個文件讀完，叫做「啜食（slurping）」。它能讓人滿意，但它可能是內存吞噬者。大多數文本文件處理可以通過Perl的循環結構，一行一行地完成。

<>操作符經常出現在while循環里：

1. while (<$in>) { # assigns each line in turn to $_
2. print "Just read in this line: $_";
3. }

我們已經看到了如何使用print()在標准輸出里列印。但是，print()還能通過第一個可選參數指定一個文件句柄來列印（譯註：將內容輸出到指定的文件句柄中，即寫入到文件句柄相關聯的文件中）

1. print STDERR "This is your final warning.\n";
2. print $out $record;
3. print $log $logmessage;

當你完成了對文件句柄的操作之後，你應該使用close()來關閉文件句柄。（老實說，如果你忘記關閉了，Perl會幫你處理。）

close $in or die "$in: $!";

正則表達式

Perl對正則表達式的支持寬廣而深入：

* 簡單匹配

1. if (/foo/) { ... } # true if $_ contains "foo"
2. if ($a =~ /foo/) { ... } # true if $a contains "foo"

//匹配操作符（譯注，完整的應該是：m//）默認操作$_，或者使用=~來綁定其它變數進行操作。
* 簡單置換

1. s/foo/bar/; # replaces foo with bar in $_
2. $a =~ s/foo/bar/; # replaces foo with bar in $a
3. $a =~ s/foo/bar/g; # replaces ALL INSTANCES of foo with bar in $a

* 更復雜的正則表達式

你不僅能匹配固定的字元串。其實，你可以匹配任何你能想到的復雜正則表達式。

1. . 單個任意字元（默認不包含\n）
2. \s 一個空白字元 (空格, tab, 換行, ...)
3. \S 一個非空白字元
4. \d 一個數字 (0-9)
5. \D 一個非數字
6. \w 一個能組成單詞的字元 (a-z, A-Z, 0-9, _)
7. \W 一個不能組成單詞的字元
8. [aeiou] 匹配中括弧內的任意一個字元
9. [^aeiou] 匹配除了中括弧內列出的字元之外的任意一個字元
10. (foo|bar|baz) 匹配foo或bar或baz
11.
12. ^ 匹配開頭
13. $ 匹配結尾

量詞可用來指定數量：

1. * 零個或任意多個
2. + 至少一個
3. ? 零個或一個
4. {3} 3個
5. {3,6} 3到6個
6. {3,} 至少3個

一些簡單的例子：

1. /^\d+/ 以一個或多個數字開頭
2. /^$/ 空的，沒有任何東西
3. /(\d\s){3}/ 3個帶空白字元的數字
4. (比如 "3 4 5 ")
5. /(a.)+/ 匹配最少一次，含有a和任意字元
6. (比如 "abacadaf")
7.
8. # 從STDIN循環讀入，並列印出非空白行:
9. while (<>) {
10. next if /^$/;
11. print;
12. }

* 圓括弧捕捉

括弧的另一個用法是分組。它可以用來捕捉最後使用的正則表達式匹配的結果。這些結果用$1、$2……表示。

1. # a cheap and nasty way to break an email address up into parts
2.
3. if ($email =~ /([^@]+)@(.+)/) {
4. print "Username is $1\n";
5. print "Hostname is $2\n";
6. }

子程序

寫一個子程序是很容易的：

1. sub logger {
2. my $logmessage = shift;
3. open my $logfile, ">>", "my.log" or die "Could not open my.log: $!";
4. print $logfile $logmessage;
5. }

現在我們可以像使用其它內置函數一樣，使用該子程序了：

1. logger("We have a logger subroutine!");

什麼是shift？傳遞給子程序的參數保存在@_數組中。shift函數的默認參數是@_。所以my $logmessage = shift;去掉第一個參數，並將其賦值給$logmessage。

可以通過別的方法操作@_：

1. my ($logmessage, $priority) = @_; # common（通用）
2. my $logmessage = $_[0]; # uncommon, and ugly（不通過，並且很醜陋）

子程序可以返回值：

# sub square {
# my $num = shift;
# my $result = $num * $num;
# return $result;
# }

然後像這樣使用它：

1. $sq = square(8);

Perl面向對象

Perl面向對象相對比較簡單，這是實現使用引用什麼樣的對象知道自己是在Perl的概念為基礎的封裝。

剛開始進行Perl編程，你最常使用的Perl面向對象將是使用第三方模塊，參見下文。
使用Perl模塊

Perl 模塊提供了一系列的功能，可幫助您避免重復勞動，它們可以通過CPAN（www.cpan.org）下載。許多流行的模塊都已經包含在了Perl發行包中。

本文由無憂Perl（www.51perl.com）翻譯，轉載請註明本文鏈接：www.51perl.com/perl-brief-introction/

水平有限，錯誤難免，歡迎指正，並以原文為准。原文地址：http://perldoc.perl.org/perlintro.html

希望對你有用