GVKun编程网logo

php,Perl 正则表达式 递归匹配(php简单正则匹配类)

1

在本文中,我们将详细介绍php,Perl正则表达式递归匹配的各个方面,并为您提供关于php简单正则匹配类的相关解答,同时,我们也将为您带来关于.netc#正则表达式平衡组/递归匹配、linux–Per

在本文中,我们将详细介绍php,Perl 正则表达式 递归匹配的各个方面,并为您提供关于php简单正则匹配类的相关解答,同时,我们也将为您带来关于.net c# 正则表达式 平衡组/递归匹配、linux – Perl:libapt-pkg-perl AptPkg :: Cache->精确的新奇怪行为、Perl 5 + Perl 6 = Perl 11、Perl facebook图表给出无法获取访问令牌:/usr/local/share/perl/5.10.1/Facebook/Graph/AccessToken/Response.pm中的错误请求的有用知识。

本文目录一览:

php,Perl 正则表达式 递归匹配(php简单正则匹配类)

php,Perl 正则表达式 递归匹配(php简单正则匹配类)

##1. 表达式的递归匹配## 有时分,人们须要用正则表达式来剖析一个盘算式中的括号配对情况。好比, 使用表达式 "( [^)]* )" 或者 "( .? )" 可以匹配一对大括号。但是如因括号 内借嵌有一层括号的话 ,如 "( ( ) )",则这种写法将不可以匹配准确,失掉的成果是 "( ( )" 。类似情况的借有 HTML 中收持嵌套的标签如 "<font> </font>" 等。本节将要议论的是,念措施把有嵌套的的成对括号或者成对标签匹配进去。 匹配未知层次的嵌套: 有的反则表达式引擎,特地针对这类嵌套降求了收持。并且在栈空间容许的情形上,可以支撑恣意已知层主的嵌套:好比 Perl,PHP,GRETA 等。在 PHP 和 GRETA 中,表达式中使用 "(?R)" 来表现嵌套部门。 匹配嵌套了已知层主的 "大括号对" 的表达式写法如上:"( ([^()] | (?R)) )"。 [Perl 和 PHP 的示例代码] 匹配有限层次的嵌套: 关于不支撑嵌套的正则表达式引擎,只能通功必定的措施来匹配有限层次的嵌套。思绪如下: 第一步,写一个没有能支撑嵌套的表达式:"( [^()]* )","<font>((?!</?font>).)</font>"。 这两个表达式在匹配有嵌套的白原时,只匹配最外层。 第两步,写一个可匹配嵌套一层的表达式:"( ([^()] | ( [^()] ))* )"。这个表达式在匹配嵌套层数大于一时,只能匹配最外面的两层,同时,这个表达式也能匹配出有嵌套的文本或许嵌套的最外层。 匹 配嵌套一层的 "<font>" 标签,表达式为:"<font>((?!</?font>).|(<font>((?!</? font>).)</font>))</font>"。这个表达式在匹配 "<font>" 嵌套层数大于一的文本时,只匹配最外面的两层。 第三步,觅到匹配嵌套(n)层的表达式与 嵌套(n-1)层的表达式之间的关解。比如,可以匹配嵌套(n)层的表达式为: [标志头] ( [匹配 [本忘头]和 [本忘头] 之外的表达式] | [匹配 n-1 层的表达式] )* [标志头] 归头来望后面编写的“可匹配嵌套一层”的表达式: ( ( [^()] | (([^()])) ) ) <font> ( (?!</?font>). | (<font>((?!</?font>).)</font>) ) </font> PHP 和 GRETA 的烦琐之处在于,匹配嵌套(n-1)层的表达式用 (?R) 表现: ( ( [^()] | (?R) )* ) 第四步,依此类推,否以编写出匹配有限(n)层的表达式。这类方法写进去的表达式,固然望下去很少,但是这种表达式经由编译先,匹配效力仍旧是很下的。

.net c# 正则表达式 平衡组/递归匹配

.net c# 正则表达式 平衡组/递归匹配

.net c# 正则表达式 平衡组/递归匹配 

平衡组/递归匹配 

这里介绍的平衡组语法是由.net framework支持的;其它语言/库不一定支持这种功能,或者支持此功能但需要使用不同的语法。 

有时我们需要匹配像( 100 * ( 50 + 15 ) )这样的可嵌套的层次性结构,这时简单地使用\(.+\)则只会匹配到最左边的左括号和最右边的右括号之间的内容(这里我们讨论的是贪婪模式,懒惰模式也有下面的问题)。假如原来的字符串里的左括号和右括号出现的次数不相等,比如( 5 / ( 3 + 2 ) ) ),那我们的匹配结果里两者的个数也不会相等。有没有办法在这样的字符串里匹配到最长的,配对的括号之间的内容呢? 

为了避免(和\(把你的大脑彻底搞糊涂,我们还是用尖括号代替圆括号吧。现在我们的问题变成了如何把xx aa> yy这样的字符串里,最长的配对的尖括号内的内容捕获出来? 

这里需要用到以下的语法构造: 

(?''group'') 把捕获的内容命名为group,并压入堆栈(stack) 
(?''-group'') 从堆栈上弹出最后压入堆栈的名为group的捕获内容,如果堆栈本来为空,则本分组的匹配失败 
(?(group)yes|no) 如果堆栈上存在以名为group的捕获内容的话,继续匹配yes部分的表达式,否则继续匹配no部分 
(?!) 零宽负向先行断言,由于没有后缀表达式,试图匹配总是失败 
如果你不是一个程序员(或者你自称程序员但是不知道堆栈是什么东西),你就这样理解上面的三种语法吧:第一个就 是在黑板上写一个"group",第二个就是从黑板上擦掉一个"group",第三个就是看黑板上写的还有没有"group",如果有就继续匹配yes部 分,否则就匹配no部分。 

我们需要做的是每碰到了左括号,就在压入一个"open",每碰到一个右括号,就弹出一个,到了最后就看看堆栈是否为空--如果不为空那就证明左括号比右括号多,那匹配就应该失败。正则表达式引擎会进行回溯(放弃最前面或最后面的一些字符),尽量使整个表达式得到匹配。 



复制代码 
    [^]*                #最外层的左括号后面的不是括号的内容 
    ( 
        ( 
            (?''open''            [^]*       #匹配左括号后面的不是括号的内容 
        )+ 
        ( 
            (?''-open''>)   #碰到了右括号,擦掉一个"open" 
            [^]*        #匹配右括号后面不是括号的内容 
        )+ 
    )* 
    (?(open)(?!))         #在遇到最外层的右括号前面,判断黑板上还有没有没擦掉的"open";如果还有,则匹配失败 

>                         #最外层的右括号 
复制代码 


平衡组的一个最常见的应用就是匹配html,下面这个例子可以匹配嵌套的

标签: 



]*>[^]*(((?''open''
]*>)[^]*)+((?''-open''
)[^]*)+)*(?(open)(?!))

linux – Perl:libapt-pkg-perl AptPkg :: Cache->精确的新奇怪行为

linux – Perl:libapt-pkg-perl AptPkg :: Cache->精确的新奇怪行为

在libapt-pkg-perl(v.0.1.25)的精确包中,我对AptPkg :: Cache对象的构造函数有一个非常奇怪的问题.

perl脚本旨在为三种不同的体系结构(i386,armel,armhf)下载debian软件包.对于每个架构,我执行以下操作:

>使用正确的参数和所需体系结构的包列表配置AptPkg :: Config’$_config’.
>使用AptPkg :: Cache-> new创建缓存对象.
>调用方法AptPkg :: Cache->策略以创建AptPkg :: Policy对象.
>调用方法AptPkg :: Policy-> candidate(“program-name”).
>下载所选架构的软件包.

这对Ubuntu Lucid很有效,但是使用Ubuntu Precise,我只能下载定义的第一个架构的软件包.对于其他两个体系结构,将没有安装候选者(方法AptPkg :: Policy-> candidate(“Package-Name”)不返回对象).

我尝试构建一个解决方法,我找到了一个解决方案,该脚本如何适用于所有三种体系结构,没有问题,精确:

如果我连续两次创建缓存对象(使用AptPkg :: Cache-> new),它就可以运行,脚本会为所有三种体系结构下载debian软件包:

my $cache = AptPkg::Cache->new;
$cache = AptPkg::Cache->new;

我确定问题与方法AptPkg :: Cache-> new有关,因为我检查了其他所有内容,可能导致问题的原因,两次.所有配置变量都设置正确,我甚至为每个架构获得了一个不同的Hash for AptPkg :: Cache-> new,但似乎我忽略了一些重要的东西.

我对perl不太熟悉,所以我问你们有没有人可以解释为什么脚本与变通方法一起工作但不是没有它.如果在脚本中有两次相同的代码行,那么看起来很奇怪.

解决方法

也许你遇到了这个错误 – https://bugs.launchpad.net/ubuntu/+source/libapt-pkg-perl/+bug/994509

有一个脚本可以测试你是否受到影响.如果是其他问题,请考虑提交错误报告.

编辑:刚看到这是11个月大:/

Perl 5 + Perl 6 = Perl 11

Perl 5 + Perl 6 = Perl 11

Perl 11 是为了让 Perl 5 具有可插入式特性,包括:

  • 运行时虚拟机
  • 编译单元格式 / AST
  • 源码语法 / 编译器

这将为很多语言和技术体验打开了一扇新的门,无需对已有的 Perl 5/CPAN 代码库进行破坏。

或许这样就可以在 JVM 和 .NET 环境中运行 Perl 5 和 Perl 6 代码。 5 + 6 = 11

更多关于 Perl 11 的详情请看

http://perl11.org/

Perl facebook图表给出无法获取访问令牌:/usr/local/share/perl/5.10.1/Facebook/Graph/AccessToken/Response.pm中的错误请求

Perl facebook图表给出无法获取访问令牌:/usr/local/share/perl/5.10.1/Facebook/Graph/AccessToken/Response.pm中的错误请求

我试图获取访问令牌,但得到错误

/usr/local/share/perl/5.10.1/Facebook/Graph/Accesstoken/Response.pm第26行的错误请求

以下是代码

use Facebook::Graph                                     ;

 my $fb = Facebook::Graph->new(
     app_id          => $facebook_app_id,secret          => $facebook_app_secret,postback        => $postback_url,);

 my $uri = $fb
    ->authorize
    ->extend_permissions(qw(offline_access publish_stream))
    ->uri_as_string;

它成功地重定向到回发网址,我从get paramater获取代码

我的代码在回发网址/页面

use Facebook::Graph                                     ;

my $fb = Facebook::Graph->new(
     app_id          => $facebook_app_id,);

当我在做$fb-> request_access_token($code);

我收到错误,因为无法获取访问令牌:/usr/local/share/perl/5.10.1/Facebook/Graph/Accesstoken/Response.pm第26行的错误请求

请帮忙
提前致谢.

解决方法

我使用您的第一个代码段使用我自己的应用程序生成代码.

手动获取代码后:

#!/usr/bin/perl
use strict;
use warnings;
my $facebook_app_id =     'MYAPP';
my $facebook_app_secret = 'SECRET'
my $postback_url =        'http://localhost:8321/';
my $code =                '...';

use Facebook::Graph;
use Data::Dumper;

my $fb = Facebook::Graph->new(
   app_id          => $facebook_app_id,);
print Dumper $fb->request_access_token($code);

这用’token’=>抛弃了预期的json repsonse. ‘… … tokenval’

我能够通过将回发修改为除创建代码时使用的任何值以外的任何值来重新创建您发布的错误.这包括添加或删除尾部斜杠.因此,请确保您的回发网址匹配!

Could not fetch access token: Bad Request at
/Users/andrew/perl5/lib/perl5/Facebook/Graph/Accesstoken/Response.pm
line 26.

同样,如果你持有太久的$代码,它将会过期.然后你必须创建一个新的.您可以保存/缓存request_access_token返回的access_token.它们不会持续很长时间,但你可以通过最近的facebook api更改请求更长寿的.

今天关于php,Perl 正则表达式 递归匹配php简单正则匹配类的介绍到此结束,谢谢您的阅读,有关.net c# 正则表达式 平衡组/递归匹配、linux – Perl:libapt-pkg-perl AptPkg :: Cache->精确的新奇怪行为、Perl 5 + Perl 6 = Perl 11、Perl facebook图表给出无法获取访问令牌:/usr/local/share/perl/5.10.1/Facebook/Graph/AccessToken/Response.pm中的错误请求等更多相关知识的信息可以在本站进行查询。

本文标签: