所以我正在编写一个快速的 Perl 脚本,它清理一些 HTML 代码并通过 html -> pdf 程序运行它。我希望丢失尽可能少的信息,因此我想扩展文本区域以适应其中当前的所有文本。在我的例子中,这意味着根据文本框中字符串的值将行数设置为计算值。
这是我目前正在使用的正则表达式
$file=~s/<textarea rows="(.+?)"(.*?)>(.*?)<\/textarea>/<textarea rows="(?{ length($3)/80 })"$2>$3<\/textarea>/gis;
不幸的是,Perl 似乎无法识别我被告知的在搜索和替换正则表达式中嵌入 Perl 代码的语法
有 Perl 迷愿意告诉我我做错了什么吗?
问候,
扎克
The (?{...})
Pattern 是一个实验性功能,用于在比赛端执行代码,但您希望在比赛端执行代码替代品边。使用/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>
Output:
<textarea rows="1" bar="baz">howdy</textarea>
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)