论坛徽章:: 1

电梯直达

1楼 [收藏(0)] [报告]

发表于 2003-05-26 12:35 |只看该作者 |倒序浏览

if(gethtml($oddhtmurl,$user,$pass)) {
$html_all .= $html ; #这里的.作什么用?

for(1..10) {
   if($html =~ /<a href=([^ ]+)[^<>;]+?>;下一页<\/a>;/ ) {
#这里的<a href=([^]+)[^<>;]+?>;下一页<\/a>;/)又如何理解?
      $oddhtmurl = "$baseurl$1" ;
      if(gethtml($oddhtmurl,$user,$pass)) {
      $html_all .= $html ;
      }
   }else{
      last ;
   }
}

$html = $html_all ;
$html =~ s/^.+?<html>;/<html>;/s ;这里的/^.+?<html>;/<html>;又如何理解?

文库|博客

apile

富足长乐

论坛徽章:: 1

2楼 [报告]

发表于 2003-05-26 13:44 |只看该作者

下面代码什么意思?

if(gethtml($oddhtmurl,$user,$pass)) {
$html_all .= $html ; #这里的.作什么用?
====
$html_all = $html_all.$html;

for(1..10) {
if($html =~ /<a href=([^ ]+)[^<>;]+?>;下一页<\/a>;/ ) {
#这里的<a href=([^]+)[^<>;]+?>;下一页<\/a>;/)又如何理解?
===================================
[^ ] 表示除了空白以外的所有字元...
[^<>;] 表示除了< >; 以外的所有字元
+ :一個以上
? :任何一個字元
===================================
$oddhtmurl = "$baseurl$1" ;
if(gethtml($oddhtmurl,$user,$pass)) {
$html_all .= $html ;
}
}else{
last ;
}
}

$html = $html_all ;
$html =~ s/^.+?<html>;/<html>;/s ;
==============
=~s/$string1/$string2/s;
將$string1視為一行，且整個$string1替換成$string2
所以上面的意思就是把<html>;之前的任何東西都替換
成<html>;
如果不懂..先看一下CGI..的header部份與HTML語法
自然就會了解他在幹麼.....

==============
这里的/^.+?<html>;/<html>;又如何理解?

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

deathcult

家境小康

论坛徽章:: 0

3楼 [报告]

发表于 2003-05-26 15:25 |只看该作者

下面代码什么意思?

点是连接字符串。

$x =~ s/a/b/
是将$x中的a替换为b。

：）

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

返回列表

Chinaunix › 论坛 › 程序设计 › Perl › 下面代码什么意思?

下面代码什么意思? [复制链接]

下面代码什么意思?

下面代码什么意思?