perl lwp get web ..help

eviltom

怎樣可得分開他...抓出來

#!/usr/bin/perl -w
use LWP::Simple;
$url = 'http://genware.com.tw/bbs/viewtopic.php?p=2399&sid=800638bd024f058a9fd8951c53c33cad';
my $info = get $url;
if ($info =~ /(_info.php.*flash=/s) {$out = $1 ;}
##^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

print "$out\n";






如output 是這樣.
_info.php?id=6889&flash=8" target="_blank">http://www.flurl.com/flvplayer2.s
wf?video=http://www.flurl.com/flash_player_info.php?id=6886&flash=8
_info.php?id=6889&flash=8" target="_blank">http://www.flurl.com/flvplayer2.s
wf?video=http://www.flurl.com/flash_player_info.php?id=6887&flash=8_info.php?id=6889&flash=8" target="_blank">http://www.flurl.com/flvplayer2.s
wf?video=http://www.flurl.com/flash_player_info.php?id=6899&flash=8_info.php?id=6889&flash=8" target="_blank">http://www.flurl.com/flvplayer2.s
wf?video=http://www.flurl.com/flash_player_info.php?id=6801&flash=8



但我怎樣可得分開他...抓出來
如這樣.

_info.php?id=6889

_info.php?id=6899

_info.php?id=6801

_info.php?id=6889

_info.php?id=6889

大大狗

只要这一部分吗

原帖由 eviltom 于 2007-2-5 19:28 发表
怎樣可得分開他...抓出來
_info.php?id=6889

_info.php?id=6899

_info.php?id=6801

_info.php?id=6889

_info.php?id=6889  

如果是
匹配我是这样写的

1. if ($info =~ /_info\.php\?id=[0-9]+/sg)

复制代码

eviltom

我把他改成這樣
print $info =~ /_info\.php\?id=[0-9]+/sg



但他只印一個出來
_info.php?id=209171_info.php?id=6889

可否把其他的也印出來?

大大狗

原帖由 eviltom 于 2007-2-5 23:01 发表
我把他改成這樣
print $info =~ /_info\.php\?id=[0-9]+/sg



但他只印一個出來
_info.php?id=209171_info.php?id=6889

可否把其他的也印出來?

这个$info =~ /_info\.php\?id=[0-9]+/sg  是放在 if 那里不是print 那里

ulmer

原帖由 eviltom 于 2007-2-5 19:28 发表
怎樣可得分開他...抓出來

#!/usr/bin/perl -w
use LWP::Simple;
...
if ($info =~ /(_info.php.*flash=/s) {
    $out = $1 ;
    #print "$out\n";
    if ($out =~ /info\.php\?id=\d+/sg) {
        print $out;
    }
}

--ulmer

eviltom

$src_url = 'http%3A%2F%2Fliveu-11.vo.llnwd.net%2Fflurl%2Fma71%2Fnew_media3%2F2007%2F1%2F30%2
F123.mpg'
$src_url =~ s/%3A/:/g;
$src_url =~ s/%2F/\//g;

output 是:
http://liveu-11.vo.llnwd.net/flu ... 3/2007/1/30/123.mpg

$src_url =~ s/%3A/:/g;
$src_url =~ s/%2F/\//g;

可否再精一點regxp ?.   ...............再謝^^

ulmer

原帖由 eviltom 于 2007-2-6 01:16 发表
$src_url = 'http%3A%2F%2Fliveu-11.vo.llnwd.net%2Fflurl%2Fma71%2Fnew_media3%2F2007%2F1%2F30%2
F123.mpg'
$src_url =~ s/%3A/:/g;
$src_url =~ s/%2F/\//g;

output 是:
[url]http://liveu-11.vo.llnwd ...

Hi,

Why don't use CPAN module URI::Escape?
For example to unescape your $src_url (encoded URI):

1. 
   
2.     use URI::Escape;
   
3.     $src_url = 'http%3A%2F%2Fliveu-11.vo.llnwd.net%2Fflurl%2Fma71%2Fnew_media3%2F2007%2F1%2F30%2
   
4. F123.mpg';
   
5.     $real_url = uri_unescape($src_url);
   
6.     print $real_url, "\n";
   
7. 
   
8.     # --- out ---
   
9.     # http://liveu-11.vo.llnwd.net/flurl/ma71/new_media3/2007/1/30/123.mpg
   
10. 
    

复制代码

-- ulmer

eviltom

why i not use cpan .....................
becasue i want get more in regxp XDDDDDDDDDDDDDDD