所以我正在编写一个快速的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>