PERL:


PERL: - . 59


sub dequote {

local $_ = shift;

my ($white, $leader); # ,

if (/"\s*C:(["\w\s]+)(\s*).An)('?-\s\1\2''.An)+$/) < (Swhite, $leader) = ($2, quotemeta($1));

} else {

($white, $leader_ = (/"(\s+)/, '');

}

s/"\s*'?$leader(?:$white)V/gm,

return $_; }

, /:

if (m{

#

\s * # 0 -

(?: #

( $1

[~\w\s] # -

+ # 1

) # $1

( \s* ) # 0 $2

. * \ #

) #

(?: #

\s # 0 -

\1 # , $1

\2 ? # , $2,

.* \ #

) + # 1

$


1.12. ⠠ 51

}

(Swhite, Sleader) = ($2, quotemeta($1));
} else {

($white, Sleader) = (/~(\s+)/, ");
}
s{

# (- /m)

\s * #

9 #

$leader #

(7 #

$white #

) ? #
}{}xgm;

? , . ­ , . , .

> ---------------------------------------------------------------------------------------------

Scalar Value Constructors perldata(l); s/// perlre( 1) perlop( 1).