fts bbcodexhtml

por **Flavio315** Qui Jun 20, 2013 12:56 am

bom galera pequeno conversor de bbcode para html, ele nao ta 100% mais da para quebrar um galho

Código:: #!/usr/bin/perl #by hacker fts315 #sintaxe: script.pl arquivo_bbcode.txt arquivo_html.html #configuraçao $textarea_rows = 10; $textarea_cols = 60; print "======================================================\n". " FTS BBCODExHTML\n" . "======================================================\n\n"; #codigo $arq = "<" . $ARGV[0]; $arq_s = ">" . $ARGV[1]; open(ARQ,$arq) or die("arquivo nao pode ser aberto"); @fts = <ARQ>; close(ARQ); open(ARQ_S,$arq_s) or die("arquivo nao pode ser salvo"); $cont = 0; foreach(@fts) { #muda [b] por <b> $fts[$cont] =~ s/\[b\]/<b>/g; $fts[$cont] =~ s/\[\/b\]/<\/b>/g; #muda [i] por <i> $fts[$cont] =~ s/\[i\]/<i>/g; $fts[$cont] =~ s/\[\/i\]/<\/i>/g; #muda [u] por <u> $fts[$cont] =~ s/\[u\]/<u>/g; $fts[$cont] =~ s/\[\/u\]/<\/u>/g; #muda [strike] por <strike> $fts[$cont] =~ s/\[strike\]/<strike>/g; $fts[$cont] =~ s/\[\/strike\]/<\/strike>/g; #muda [left] por <left> $fts[$cont] =~ s/\[left\]/<left>/g; $fts[$cont] =~ s/\[\/left\]/<\/left>/g; #muda [right] por <right> $fts[$cont] =~ s/\[right\]/<right>/g; $fts[$cont] =~ s/\[\/right\]/<\/right>/g; #muda [center] por <center> $fts[$cont] =~ s/\[center\]/<center>/g; $fts[$cont] =~ s/\[\/center\]/<\/center>/g; #muda [justify] por <justify> $fts[$cont] =~ s/\[justify\]/<justify>/g; $fts[$cont] =~ s/\[\/justify\]/<\/justify>/g; #muda [quote] por <blockquote> $fts[$cont] =~ s/\[quote\]/<blockquote>/g; $fts[$cont] =~ s/\[\/quote\]/<\/blockquote>/g; #muda [ code] por <textarea> $fts[$cont] =~ s/\[code\]/<textarea rows=$textarea_rows cols=$textarea_cols>/g; $fts[$cont] =~ s/\[\/code\]/<\/textarea>/g; #muda [color] por <font> $fts[$cont] =~ s/\[color=/<font color=/g; $fts[$cont] =~ s/\[\/color\]/<\/font>/g; #muda [img] por <img> $fts[$cont] =~ s/\[img\]/<img src="/g; $fts[$cont] =~ s/\[\/img\]/">/g; #muda [url] por <a> $fts[$cont] =~ s/\[url=/<a href="/g; $fts[$cont] =~ s/\[\/url\]/<\/a>/g; #muda ] por > $fts[$cont] =~ s/\]/>/g; $cont++; print ARQ_S $_ . "<br>"; } close(ARQ_S); print "\n";