in reply to Devel::Declare vs LISP like macros...
in thread Is Devel::Declare really so much less evil than source filters?

for those interested here is the script I used to transform the CB-log saved from http://pthbb.org/cb/last.cgi into a readable post.

open $cb,"<","/tmp/cb.txt"; #- whole conversation into one string my $slurp=do {local $/,<$cb>};<P> #- split into single chats my @chatters=split /^\s*$/m, $slurp; for my $chat (reverse @chatters) { my (undef,$head,@text)=split /\n/m, $chat; #- print head my ($date,$time,$author)=split /\s+/,$head; print "<tt>", "[[$author]] $time", "</tt><br>\n"; #- /me text to italic if ($text[0]=~s/^\/me/[$author]/){ unshift @text,'<i>'; push @text,'</i>'; } #- named links for (@text){ s# (\w+) \( (http://.*?) \) #[$2|$1]#xg } #- print text print join "\n",@text; #- print separator print "\n<p>\n\n"; }

Cheers Rolf