分页: 1 / 1
[安利]语法高亮工具 在线+离线 Syntax Highlight 转 BBCode
发表于 : 2017年05月10日 15:37
由 523066680
离线的语法高亮HTML生成工具 - Highlight Code Converter
发表于 : 2017年05月10日 16:00
由 523066680
支持 HTML、XHTML、BBCODE、LaTeX、SVG、BBCode
支持多种高亮主题:
代码: 全选
acid aiseered andes anotherdark
autumn baycomb bclear biogoo
bipolar blacknblue bluegreen breeze
bright camo candy clarity
dante darkblue darkbone darkness
darkslategray darkspectrum denim dusk
earendel easter edit-anjuta edit-bbedit
edit-eclipse edit-emacs edit-fasm edit-flashdevelop
edit-gedit edit-godot edit-jedit edit-kwrite
edit-matlab edit-msvs2008 edit-nedit edit-purebasic
edit-vim-dark edit-vim edit-xcode ekvoli
fine_blue freya fruit github
golden greenlcd kellys leo
lucretia manxome maroloccio matrix
moe molokai moria navajo-night
navy neon night nightshimmer
nuvola olive orion oxygenated
pablo peaksea print rand01
rdark relaxedgreen rootwater seashell
solarized-dark solarized-light sourceforge tabula
tcsoft the vampire whitengrey
xoria256 zellner zenburn zmrok
自带 GUI 界面,支持命令行调用、提供常见编程语言的接口、支持代码风格修改。
Re: [安利]语法高亮工具 在线+离线
发表于 : 2017年05月10日 16:05
由 523066680
[console]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;
}[/console]
Re: [安利]语法高亮工具 在线+离线
发表于 : 2017年05月10日 19:26
由 523066680
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;
}