{var%20f='http://v.t.sina.com.cn/share/share.php?appkey=1515056452',u=z||d.location,p=['&url=',e(u),'&title=',e(t||d.title),'&source=',e(r),'&sourceUrl=',e(l),'&content=',c||'gb2312','&pic=',e(p||'')].join('');function%20a(){if(!window.open([f,p].join(''),'mb',['toolbar=0,status=0,resizable=1,width=440,height=430,left=',(s.width-440)/2,',top=',(s.height-430)/2].join('')))u.href=[f,p].join('');};if(/Firefox/.test(navigator.userAgent))setTimeout(a,0);else%20a();})(screen,document,encodeURIComponent,'','','https://www.manongdao.com/data/attach/logo/logo.png', '推荐 孤傲高冷的网名 的问题《How do I linkify text in Perl?》','https://www.manongdao.com/q-1059854.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
I have some text I want to linkify, which I can reasonably do with a regex (search for http/https or www) but I'm worried about XSS complications. What's a safe way to do this in Perl?
相关问题
- React Native Inline style for multiple Text in sin
- $ENV{$variable} in perl
- Set BaseUrl of an existing Pdf Document
- UrlEncodeUnicode and browser navigation errors
- Improve converting string to readable urls
相关文章
- How to get rid of border around and image used as
- Running a perl script on windows without extension
- Comparing speed of non-matching regexp
- Removing the href attribute
- Can NOT List directory including space using Perl
- Extracting columns from text file using Perl one-l
- Lazy (ungreedy) matching multiple groups using reg
- How do I tell DBD::mysql where mysql.sock is?
I can't speak to the XSS issue, but URI::Find will let you find all URIs in text and transform them into whatever you like.
Exactly what do you mean by XSS complications? Are you only concerned with JavaScript or do URLs of the form http://example.com/command?type=delete;who=sam etc concern you as well?
As for linkifying URLs, there will always be edge cases, but Text::Markdown worked pretty well on a variety of inputs when I tried it. You can use the urls method to preprocess the links.
See also Regexp::Common.