OpenForum RSS: �� : �� ...

�� Perl (regex perl) (Denis)

Tue, 02 Feb 2010 07:22:17 GMT

��... �� -��...

#!/usr/bin/perl

use strict;

my $cnt; my $s; my $stop;
$_ = shift;
print "$_ is OK\n" if
(m/^
(?: (?{ $cnt = 0; $stop = 0; $s = ""; })
(?> (?(?{ $stop })\G(?!))
([$\[\{]) (?{ ++$cnt; $s .= $1; })
|$ (?(?{ $cnt and (chop($s) eq "(") }) (?{ --$cnt; }) | (?{ ++$stop; })(?!))
|\] (?(?{ $cnt and (chop($s) eq "[") }) (?{ --$cnt; }) | (?{ ++$stop; })(?!))
|\} (?(?{ $cnt and (chop($s) eq "\{") }) (?{ --$cnt; }) | (?{ ++$stop; })(?!))
|(?> [^()\[\]\{\}] )
)*
)
(?(?{ $cnt }) (?!) )
$/x);

�� Perl (regex perl) (Denis)

Tue, 02 Feb 2010 07:15:29 GMT

�� , �� :

#!/usr/bin/perl

use strict;

my $cnt; my $s; my $stop;
$_ = shift;
print "$_ is OK" if
(m/^
(?: (?{ $cnt = 0; $stop = 0; $s = ""; })
(?> (?(?{ $stop })\G(?!))
([$\[\{]) (?{ ++$cnt; $s .= $1; print $s . "\n"; })
|$ (?(?{ $cnt and (chop($s) eq "(") }) (?{ --$cnt; }) | (?{ ++$stop; })(?!))
|\] (?(?{ $cnt and (chop($s) eq "[") }) (?{ --$cnt; }) | (?{ ++$stop; })(?!))
|\} (?(?{ $cnt and (chop($s) eq "\{") }) (?{ --$cnt; }) | (?{ ++$stop; })(?!))
|(?> [^()] )
)*
)
(?(?{ $cnt }) (?!) )
$/x);

OpenForum RSS: ������������ �������: �������� ������������������ ������ �� ...

�������� ������������������ ������ �� Perl (regex perl) (Denis)

�������� ������������������ ������ �� Perl (regex perl) (Denis)

OpenForum RSS: �� : �� ...

�� Perl (regex perl) (Denis)

�� Perl (regex perl) (Denis)