请问:如何用perl提取网址?

KornLee

见下面链接,
http://www.linuxsir.cn/bbs/showthread.php?threadid=88256
用shell很简单,不知道用perl何如? ;)

libinary

我只是学了一点perl，水平不行，要写一个通用的程序是不行，每次都是针对具体情况写一个小脚本用用，这个是我以前写的一个，本来是用来获取某网页上的jpg文件的地址的，我把jpg改成rar了。

1. 
   
2. #! /usr/bin/perl -w
   
3. 
   
4. use LWP::Simple;
   
5. 
   
6. die "usage: URL\n" unless @ARGV;
   
7. $doc = get($ARGV[0]);
   
8. foreach (split(/\s+/, $doc)){
   
9.   if(/"(.*rar)"/i){
   
10.     print $1, "\n";
    
11.   }
    
12. }
    

复制代码

可以用xxx http://www.linuxsir.cn/bbs/showthread.php?threadid=88256 试试

libinary

象他那个文件可以用

1. 
   
2. #! /usr/bin/perl -w
   
3. 
   
4. while(<>){
   
5.   if(/<(.*rar)>/i){
   
6.     print $1, "\n";
   
7.   }
   
8. }
   

复制代码

KornLee

我也来一个!

2. #!perl
3. #
4. print "perl version is:$]\n";
5. foreach (`cat wwwfile`) {
6.         if (/http.*rar/) {
7.                 print "$&\n";
8.         }
9. }

复制代码

请devel指教 ;)

LYOO

最初由 javalee 发表
我也来一个!

1. 
   
2. #!perl
   
3. #
   
4. print "perl version is:$]\n";
   
5. foreach (`cat wwwfile`) {
   
6.         if (/http.*rar/) {
   
7.                 print "$&\n";
   
8.         }
   
9. }
   

复制代码

请devel指教 ;)

javalee的代码真是披着perl皮的shell:p

devel

汗~~~~:rolleyes: 不懂了。。

最多在正则那里改成这样：
$input =~ /[ "http" "ftp" ]*rar/m
按javalee的完全用perl就这样：

1. 
   
2. #!/usr/bin/perl -w
   
3. open(FH,"filename") or die "could not open filename:：$! " ;
   
4. foreach (<FH>) {
   
5.   if( $_ =~ /["http" "ftp"]*rar/m  ) {
   
6.        print "$&\n";
   
7.   }
   
8. }
   
9. close (FH);
   

复制代码

但匹配的都答应出rar
print "$&\n";:rolleyes: 这里请斑竹指教/

KornLee

最初由 LYOO 发表
javalee的代码真是披着perl皮的shell:p

,是有shell的痕迹~,也许和我看的教材有关吧~ ;)
TO:devel
记住:perl的哲学是无限制的,一个问题有N种解决方法.
$&变量拥有所有匹配的模式,见:
http://www.linuxsir.cn/bbs/showthread.php?threadid=76477