使用Perl将CSS样式属性转换为HTML属性

真实快速背景:

到目前为止,我的尝试揭示了我对反向引用以及如何在Perl正则表达式期间正确利用它们的有限理解。我可以获取一个输入文件并将其转换为输出文件,但它每行只捕获一个“样式”,并且只替换该css中的一个名称/值对。

我可能用了错误的方法来实现这一点,但我无法找到一种更快或更智能的方法在Perl中实现这一点。任何帮助都将不胜感激!

注意:我试图为这个特定脚本更改的唯一属性是“高度”、“宽度”和“边框”,因为我们的客户机使用了一个工具,可以自动将样式应用于元素,这些元素通过WYSIWYG样式编辑器拖动。显然,使用正则表达式从很多地方去除这些属性效果相当好,因为您只需根据其内容调整表格单元格的大小,这看起来还可以,但我认为解决此问题的更快方法是将这三个属性替换为“宽度”、“高度”和“边框”属性,它们的行为与css的对应项基本相同(除了css允许您实际自定义边框的宽度、颜色和样式,但它们所使用的都是实心1px,因此我可以添加一个条件,将“实心1px”替换为“border=1”。我意识到这些并不完全等效,但对于这个应用程序来说,这将是一个步骤)。

以下是到目前为止我得到的信息:

#!/usr/bin/perl
if (!@ARGV[0] || !@ARGV[1])
{
  print "Usage: converter.pl [input file] [output file] \n";
  exit;
}
open FILE, "<", @ARGV[0] or die $!;
open OUTFILE, ">", @ARGV[1] or die $!;
my $line;
my $guts;
while ( <FILE> ) {
  $line = $_ ;
  $line =~ /style=\"(.+)\"/;
  $guts = $1;
  $guts =~ /([a-zA-Z]+)\:([a-zA-Z0-9]+)\;/;
  $name = $1;
  $value = $2;
  $guts = $name."=".$value;
  $line =~ s/style=\"(.+)\"/$guts/g;
  print OUTFILE $line ;
}

exit;

注意:这不是家庭作业,不,我不是要求你为我做我的工作,这最终将成为一个内部工具,它只是加快了格式化传入html的过程,以便在我们拥有的pdf转换器中正常工作。

使现代化

#!/usr/bin/perl

## NOTES ##
# This script was made to simply replace style attributes with their name/value pair equivalents as attributes.
# It was designed to replace width and height attributes on a metric buttload of table elements from client data we got.
# As such, it's not really designed to handle more than that, and only strips the unit "PX" from the values. 
# All of these can be modified in the second foreach loop, which checks for height and width. 

if (!@ARGV[0] || !@ARGV[1])
{
  print "Usage: quickvert.pl [input file] [output file] \n";
  exit;
}
open FILE, "<", @ARGV[0] or die $!;
open OUTFILE, ">", @ARGV[1] or die $!;
my $line;
my $guts;
my $count = 1;
while ( <FILE> ) {
  $line = $_ ;
  my (@match) = $line =~ /style=\"(.+?)\"/g;
  my $guts;
  my $newguts;
  foreach (@match) {
    #print $_ ."\n";
    $guts = $_;
    $guts =~ /([a-zA-Z]+)\:([a-zA-Z0-9]+)\;/;
    $newguts = "";
    foreach my $style (split(/;/,$guts)) {
      my ($name, $value) = split(/:/,$style);
      $value =~ s/px//g;
      if ( $name =~ m/height/g || $name =~ m/width/g ) {
      $newguts .= "$name='$value' ";
      } else {
      $newguts .= "";
      }
    }
    #print "replacing $guts with $newguts on line $count \n";
  $line =~ s/style=\"$guts\"/$newguts/i;
  }

  #print $newguts;



  print OUTFILE $line ;
  $count++;
}

exit;