command line

shihyu

1. #! /usr/bin/perl
   
2. 
   
3. use strict;
   
4. 
   
5. # 使用 IO::Socket 模組
   
6. use IO::Socket;
   
7. 
   
8. # 取得命令列中的網頁位址，放入 $url 中
   
9. my $url=shift || die "您沒有輸入 url 網址!\n";
   
10. 
    
11. # 比對網頁位址是否合乎格式？
    
12. my ($host, $file) = $url =~ m!http://([^/]+)(/[^\#]*)!;  #(註1)
    
13. 
    
14. # 若比對正確，才抓取
    
15. if ($host) {
    
16. 
    
17.         # 產生一個 IO::Socket::INET 物件
    
18.         my $socket = IO::Socket::INET->new(
    
19.                 PeerAddr => $host,                        # 指定主機位址
    
20.                 PeerPort => 'http(80)'                # 指定 port 號
    
21.         );
    
22. 
    
23.         # 針對 $socket 寫入，此動作形同對 $host 主機提出網頁檔 $file 的要求
    
24.         print $socket "GET $file HTTP/1.0\n\n";
    
25. 
    
26.         # 只要由 $socket 讀到一列資料，就處理之
    
27.         while(my $line=<$socket>) {
    
28. 
    
29.                 # 把 CR (^M) 換掉
    
30.                 $line =~ s/\r//g;
    
31. 
    
32.                 # 顯示該列內容 (註2)
    
33.                 print $line;
    
34. 
    
35.         }
    
36. 
    
37. }

复制代码

使用法：

1. 存成 wget.pl

2. chmod +x wget.pl

3. ./wget.pl http://linux.tnc.edu.tw/techdoc/FSF.htm > FSF.htm




# 取得命令列中的網頁位址，放入 $url 中
my $url=shift || die "您沒有輸入 url 網址!\n";  #為什麼這樣就可以從command line 取得網址??


不需要使用@ARGV???

[ 本帖最后由 shihyu 于 2006-10-6 16:32 编辑 ]

兰花仙子

原帖由 shihyu 于 2006-10-6 16:25 发表
[code]#! /usr/bin/perl

use strict;

# 使用 IO::Socket 模組
use IO::Socket;

# 取得命令列中的網頁位址，放入 $url 中
my $url=shift || die "您沒有輸入 url 網址!\n";

# 比對網頁位址 ...

shift 既可以从@_里取数据，也可从@ARGV里取数据。
please see: perldoc -f shift