加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 大数据 > 正文

在Perl正则表达式中嵌入评估

发布时间:2020-12-15 21:54:28 所属栏目:大数据 来源:网络整理
导读:所以我正在编写一个快速的perl脚本来清??理一些 HTML代码并通过html运行它 – pdf计划.我希望尽可能少地丢失信息,所以我想扩展我的textareas以适应当前所有的文本.这意味着,在我的情况下,根据文本框内的字符串值将行数设置为计算值. 这是我正在使用的正则表
所以我正在编写一个快速的perl脚本来清??理一些 HTML代码并通过html运行它 – > pdf计划.我希望尽可能少地丢失信息,所以我想扩展我的textareas以适应当前所有的文本.这意味着,在我的情况下,根据文本框内的字符串值将行数设置为计算值.

这是我正在使用的正则表达式

$file=~s/<textarea rows="(.+?)"(.*?)>(.*?)</textarea>/<textarea rows="(?{ length($3)/80 })"$2>$3</textarea>/gis;

不幸的是,Perl似乎没有意识到我被告知的是在搜索和替换正则表达式中嵌入Perl代码的语法
是否有任何Perl瘾君子愿意告诉我我做错了什么?
问候,
扎克

解决方法

(?{…})模式是在匹配方执行代码的实验性功能,但您希望在替换端执行代码.使用/ e正则表达式开关:
#! /usr/bin/perl

use warnings;
use strict;

use POSIX qw/ ceil /;

while (<DATA>) {
  s[<textarea rows="(.+?)"(.*?)>(.*?)</textarea>] {
    my $rows = ceil(length($3) / 80);
    qq[<textarea rows="$rows"$2>$3</textarea>];
  }egis;
  print;
}

__DATA__
<textarea rows="123" bar="baz">howdy</textarea>

输出:

<textarea rows="1" bar="baz">howdy</textarea>

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读