返回列表 发帖
523066680

Rank: 7Rank: 7Rank: 7

帖子
3167 
积分
6481 
技术
320  
捐助
70  
注册时间
2008-8-3 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2017-5-9 08:45 | 只看该作者

[技术讨论] 代码高亮 以及 Markdown 风格转 BBCode

语法高亮按标题级别缩进

Perl 转换代码（然并卵)
配合 Highlight Code Converter : our $highlight = 'D:/Lib/highlight-3.36-x64/highlight.exe';
Markdown 稿件
转换效果：[连载]Perl 一句话代码示例 翻译+整理 - Chapter 2. 换行和间隔符

      		=info
      		    Markdown 部分格式转 BBCode + 代码块着色
      		    523066680@163.com / Code-By.Org
      		    2017-05
      		 
      		    V2.0 更新循环方案
      		=cut
      		 
      		use strict;
      		use Encode;
      		use IO::Handle(1);
      		STDOUT->autoflush(1);
      		 
      		our $highlight = 'D:/Lib/highlight-3.36-x64/highlight.exe';
      		my $file = encode('gbk', decode('utf8', "D:/Sync/Perl/教学翻译、整理/Perl One-Liners.md"));
      		#my $file = encode('gbk', decode('utf8', "sample.md"));
      		 
      		my @arr;
      		load($file, \@arr);
      		 
      		our @sizes = ( 2,3,4,5,6,7,8 );   #标题字体大小
      		reset_sizes( \@sizes, \@arr );   #根据实际层级重设列表
      		format_bbcode(\@arr);            #转论坛格式
      		 
      		my $all = join("\n", @arr);
      		our $table = '[list][table=60%, #f8f8f8][tr][td][font=consolas][size=2]';
      		our $table_tail = '[/size][/font][/b][/td][/tr][/table][/list]';
      		format_codeblock(\$all);
      		 
      		format_inline(\$all);
      		 
      		#bathome 的缩进不够明显，加倍
      		$all=~s/(\[list\])/$1$1/g;
      		$all=~s/(\[\/list\])/$1$1/g;
      		 
      		# table 后面不需要再换行
      		$all=~s{(\Q[/table]\E.*?\n)\n}{$1}sgi;
      		 
      		print encode('gbk', decode("utf8", $all));
      		 
      		sub format_bbcode
      		{
      		    my $arr = shift;
      		    my $prev;
      		    my $curv;
      		    my $crlf;
      		    my $size;
      		 
      		    for my $i ( 0 .. $#$arr )
      		    {
      		        $arr->[$i] =~s/(\r?\n)$//;
      		        $crlf = $1;
      		        if ( $arr->[$i]=~s/^(#+)// )
      		        {
      		            $curv = length($1);
      		            $size = $sizes[$curv-1]; #下标从 0 开始
      		            $arr->[$i] = "[size=$size][b]" .$arr->[$i] ."[/b][/size]";
      		            $arr->[$i] .= "[list]";
      		 
      		            if ( $prev )
      		            {
      		                if ( $curv <= $prev )
      		                {
      		                    $arr->[$i] = "[/list]"x($prev - $curv + 1) .$arr->[$i];
      		                }
      		                elsif ( $curv > $prev ) { }
      		            }
      		 
      		            $prev = $curv;
      		        }
      		 
      		        #遇到下一个标题时添加换行
      		        if ( $i < $#$arr 
      		            and $arr->[$i+1]=~/^\#/ 
      		            and ($arr->[$i] ne "") )
      		        {
      		            $arr->[$i] .= "\n";
      		        }
      		 
      		        #单行代码和代码块前面补充空行
      		        if ( ($i > 0)
      		            and ($arr->[$i] =~/^\s*`/)
      		            and ($arr->[$i-1] ne "")
      		            and (not $arr->[$i-1]=~/\n$/) 
      		            and (not $arr->[$i-1]=~/\[list\]/) 
      		            )
      		        {
      		            $arr->[$i-1] .= "\n";
      		        }
      		 
      		        format_inline( \$arr->[$i] );
      		        format_else(\$arr->[$i]);
      		    }
      		 
      		    #缩进结束
      		    $arr->[-1] .= '[/list]'x$prev if ( $prev > 0 );
      		}
      		 
      		sub format_codeblock
      		{
      		    our $highlight;
      		    my $all = shift;
      		    my $bbcode;
      		 
      		    while ($$all =~/```(\w+)?\r?\n(.*?)\r?\n```/s)
      		    {
      		        writeFile( "temp.txt", \$2 );
      		        if (defined $1)
      		        { `$highlight -K3 -S$1 -OBBCode --no-trailing-nl -ssourceforge ./temp.txt -o bbcode.txt`; }
      		        else
      		        { `$highlight -K3 -OBBCode --no-trailing-nl -ssourceforge ./temp.txt -o bbcode.txt`; }
      		        read_slurp( "bbcode.txt", \$bbcode );
      		 
      		        $bbcode = $table .'[font=consolas]' .$bbcode .'[/font]' .$table_tail;
      		        $$all =~s/```(\w+)?\r?\n(.*?)```/$bbcode/s;
      		    }
      		}
      		 
      		sub format_inline
      		{
      		    our $highlight;
      		    my $line = shift;
      		    my ($head, $tail ) = ('[font=consolas][b]', '[/b][/font]');
      		    my $inline_code;
      		 
      		    if ($$line=~/^\s*`[^"]+("|')(.+)("|')/)
      		    {
      		        writeFile( "temp.txt", \$2 );
      		        `$highlight -K3 -Sperl -OBBCode --no-trailing-nl -ssourceforge ./temp.txt -o bbcode.txt`;
      		        read_slurp( "bbcode.txt", \$inline_code );
      		        $$line=~s/^\s*`([^"]+)("|')(.+)("|')(.*)`/$head$1$2${inline_code}$4$5${tail}/;
      		    }
      		}
      		 
      		sub format_else
      		{
      		    my $line = shift;
      		 
      		    #粗体
      		    $$line=~s/\*{2}(.*?)\*{2}/\[b\]$1\[\/b\]/g;
      		    #斜体
      		    $$line=~s/\*(.*?)\*/\[i\]$1\[\/i\]/g;
      		    #链接
      		    $$line=~s/\[([^\]]+)\]\((.*?)\)/\[url=$2\]$1\[\/url\]/g;
      		 
      		}
      		 
      		sub reset_sizes
      		{
      		    my ($sizes, $arr) = @_;
      		    my $max = 0;
      		    grep { /^(#+)/; $max = length($1) if (length($1) > $max) } @$arr;
      		    @$sizes = reverse @{$sizes}[ 0 .. $max-1 ];
      		}
      		 
      		sub writeFile
      		{
      		    my ($f, $ref) = @_;
      		    open WRT, ">:raw", $f or warn "$!";
      		    print WRT $$ref;
      		    close WRT;
      		}
      		 
      		sub read_slurp
      		{
      		    my ($f, $ref) = @_;
      		    local $/ = undef;
      		    open READ,"<:raw:crlf", $f or warn "$!";
      		    $$ref = <READ>;
      		    close READ;
      		}
      		 
      		sub load
      		{
      		    my ($f, $ref) = @_;
      		    open READ,"<:raw", $f or warn "$!";
      		    @$ref = <READ>;
      		    close READ;
      		}COPY
收藏 分享
[url=][/url]

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
2楼
发表于 2017-5-9 09:50 | 只看该作者
本帖最后由 CrLf 于 2017-5-9 10:58 编辑

为了能显示 tab 字符，之前已经把 code 部分改用 <pre> 标签了，所以高亮插件未必能用诶
当我没说
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

codegay

Rank: 6Rank: 6

帖子
1266 
积分
1775 
技术
162  
捐助
0  
注册时间
2015-12-12 
3楼
发表于 2017-5-9 18:08 | 只看该作者
回复 2# CrLf


   其它网站也是用的pre的。应该是可以的。
去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

TOP

codegay

Rank: 6Rank: 6

帖子
1266 
积分
1775 
技术
162  
捐助
0  
注册时间
2015-12-12 
4楼
发表于 2017-5-9 18:10 | 只看该作者
我只需要支持markdown。
高亮可以没有。
去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

TOP

523066680

Rank: 7Rank: 7Rank: 7

帖子
3167 
积分
6481 
技术
320  
捐助
70  
注册时间
2008-8-3 
5楼
发表于 2017-5-9 22:36 | 只看该作者
本帖最后由 523066680 于 2017-5-9 22:52 编辑

发现 有个 perltidy工具可以直接将代码转换为语法高亮的HTML，再写个脚本转BBCODE，效果不错，但 perltidy 只适合 Perl：

use v5.5;
# & test <> " ?
sub binary
{
    my $n = shift;
    return $n if $n == 0 || $n == 1;
    my $k = int($n / 2);
    my $b = $n % 2;
    my $E = binary($k);
    return $E . $b;
}
print binary(5);
[Finished in 0.3s]
[url=][/url]

TOP

老刘1号

Rank: 8Rank: 8

帖子
1000 
积分
1791 
技术
205  
捐助
50  
注册时间
2016-4-17 
6楼
发表于 2017-5-10 13:07 | 只看该作者
test

@echo off
echo Hollo,world
Pause >NUL

TOP

523066680

Rank: 7Rank: 7Rank: 7

帖子
3167 
积分
6481 
技术
320  
捐助
70  
注册时间
2008-8-3 
7楼
发表于 2017-5-10 14:52 | 只看该作者

Highlight Code Converter 使用示例

本帖最后由 523066680 于 2017-5-12 10:55 编辑

部分参数
-I, --include-style      在HTML文件中保留CSS样式表（不生成CSS文件）
-k, --font=<font>        设置字体
-K, --font-size=<num?>   设置字号
-l, --line-numbers       带行号
-m, --line-number-start=<cnt>   行号起始值
-s, --style=<style>       指定字体
-t, --replace-tabs=<num>  将 tab 替换为指定数量的空格
-u, --encoding=<enc>      指定输入输出的编码类型
--inline-css              将 css style 属性嵌入 <span> 标签，而不是独立列出COPY
示例：
highlight -K2 -Sperl -OBBCode -ssourceforge ./temp.pl -o BBCode.txtCOPY

use IO::Handle;
STDOUT->autoflush(1);

my @order = func( 1 );
permute([qw/a b c d e f/], \@order);

sub func
{
    my $n = shift;
    my $div = 1;
    my @odo;
    while ( $n != 0 )
    {
        $mod = $n % $div;
        $n = int($n/$div);
        unshift @odo, $mod;
        $div++;
    }
    return @odo;
}

sub permute
{
    my ($ele, $ord) = @_;
    my $get;
    my @result;
   
    for my $idx ( @$ord )
    {
        $get = splice( @$ele, $idx, 1 );
        push @result, $get;
    }

    while ( @$ele )
    {
        push @result, shift @$ele;
    }

    print @result;
}
[url=][/url]

TOP

523066680

Rank: 7Rank: 7Rank: 7

帖子
3167 
积分
6481 
技术
320  
捐助
70  
注册时间
2008-8-3 
8楼
发表于 2017-5-12 09:08 | 只看该作者

根据 title 级别生成不同层次的缩进（markdown 中的title）

根据 title 级别生成不同层次的缩进（markdown 中的title）
#T1
abc
##T20
abc
##T21
def
###T3
abc
abc
#T1
test
##T2
abc
#T1
abc



T1

      abc

      T20

          abc

      T21

          def

          T3

              abc
              abc

T1

      test

      T2

          abc

T1

      abc
[Finished in 0.1s]

[attach]10623[/attach]
[attach]10624[/attach]
1

评分人数

[url=][/url]

TOP

codegay

Rank: 6Rank: 6

帖子
1266 
积分
1775 
技术
162  
捐助
0  
注册时间
2015-12-12 
9楼
发表于 2017-5-12 09:17 | 只看该作者
看不懂看不懂。再见。
去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

TOP

523066680

Rank: 7Rank: 7Rank: 7

帖子
3167 
积分
6481 
技术
320  
捐助
70  
注册时间
2008-8-3 
10楼
发表于 2017-5-12 10:09 | 只看该作者
回复 9# codegay


    Posting Topics That Nobody Else Can Read.
[url=][/url]

TOP

老刘1号

Rank: 8Rank: 8

帖子
1000 
积分
1791 
技术
205  
捐助
50  
注册时间
2016-4-17 
11楼
发表于 2017-6-1 12:54 | 只看该作者
本帖最后由 老刘1号 于 2017-6-1 19:41 编辑

自己写了个小工具，效果不怎么样……
测试（蜜汁高亮）：http://www.bathome.net/thread-43845-1-1.html
感觉应该限定单词边界……现在是直接关键字套标签.
BUG多多……

TOP

523066680

Rank: 7Rank: 7Rank: 7

帖子
3167 
积分
6481 
技术
320  
捐助
70  
注册时间
2008-8-3 
12楼
发表于 2017-6-5 20:18 | 只看该作者
回复 11# 老刘1号


    应设置等宽字体
 [font=consolas][/font]COPY
[url=][/url]

TOP

老刘1号

Rank: 8Rank: 8

帖子
1000 
积分
1791 
技术
205  
捐助
50  
注册时间
2016-4-17 
13楼
发表于 2017-6-5 22:58 | 只看该作者
回复 12# 523066680


    加上感觉怪怪的

TOP

返回列表