# Parse notes file { local $/ = "\n\n"; # Double-newline separates input records while (<>) { my $this_line = ""; # escape everything before @tags $this_line = HTML::Entities::encode("$1") . "$2" if /^([^@]*)(.*)/s; # url encode and html escape tags $this_line =~ s| \@( # capture to $1 [^\s@]+ # more flexible than \w+ )\b | push @{$lines{"$1"}}, \$this_line; # maybe rework following using URI my $oneEH = HTML::Entities::encode($1); my $oneE = CGI::escapeHTML(CGI::escape($1)); qq~<a href="$url$oneE">$oneEH</a>~; |gex; push @all_notes, $this_line; } }
In reply to Re: A Tagcloud For Cory Doctorow
by Anonymous Monk
in thread A Tagcloud For Cory Doctorow
by McD
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |