所以我正在写一个快速的perl脚本,它清理一些HTML代码并通过html-> pdf程序运行它。我想丢失的信息越少越好,所以我想扩展我的文本区域以适合它们中当前包含的所有文本。在我的情况下,这意味着根据文本框内字符串的值将行数设置为计算值。
这是我正在使用的正则表达式
$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>
输出:
关于regex - 在Perl正则表达式中嵌入评估,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3250942/