|
发表于 2004-4-17 16:06:24
|
显示全部楼层
應該快完成的, 但我可能到明晚才有時間繼續~~ :p
有興趣的兄弟看看有沒有幫助 :p
test2.html 是那些編排過的內文(table)
- #!/bin/perl
- open( INFILE, "test2.html" ) || die "Can not open file!\n";
- $line = <INFILE>;
- close( INFILE);
- $line =~ s/<table.*?>/<table>/g;
- $line =~ s/<td.*?>/<td>/g;
- $line =~ s/<br>/\n/g;
- @list=split/<table>/,$line;
- foreach $line2(@list)
- {
- $line2 =~ s/(<tr>|<\/td>|<\/tr>|<\/table>)//g;
- @line3 =split/<td>/,$line2;
- $i=0;
- foreach $line4(@line3)
- {
- $i++;
- @line5=split/\n/$line4
- }
- for ( j=1 to $i ) {
- print $line5{$j}
- }
- }
复制代码 |
|