草庐IT

mod-perl2

全部标签

javascript - 我怎样才能轻松地一起使用 Ajax、perl 和 JSON?

我正在尝试使用Ajax制作网页。例子:我创建了一个触发简单帖子的Perl/CGU文件;文件:..test.cgi?name=Thomas回短信:你叫托马斯!我创建了一个可以使用帖子的html文件,但是页面必须重新加载。我使用文本输入和按钮。如何轻松地结合使用Ajax、Perl和JSON?这是它应该如何协同工作,但如何协同工作?Html+Ajax/JavaScriptCALLPerl+"JSON-perl-string"RETURN-TOAjaxCONVERT-JSON->Html 最佳答案 对于JSON,请尝试CPANJSONmod

html - 如何使用 Perl 正则表达式删除未使用的嵌套 HTML span 标记?

我正在尝试从HTML文件中删除未使用的跨度(即没有属性的跨度),已经用其他正则表达式清除了我不需要的所有属性。我的正则表达式没有选择要删除的正确的开始和结束标记对时出现问题。my$a='abcde';$a=~s/(.*?)/$1/g;print"$a\返回abcde但我希望它返回abcde感谢帮助。 最佳答案 尝试HTML::Parser:#!/usr/bin/perlusestrict;usewarnings;useHTML::Parser;my@print_span;my$p=HTML::Parser->new(start_h=

html - Notepad++ 和嵌入式 Perl - 特定标记内的语法突出显示

为了制作Notepad++将嵌入的Perl模板突出显示为HTML我添加了.ep样式配置器中的文件扩展名。然而,在这些.ep中包含大块纯Perl代码是很常见的。标有的文件标签。有没有办法制作Notepad++解释之间的所有内容和%>作为Perl代码并将其突出显示为Perl,而这些标签之外的所有内容都应视为HTML? 最佳答案 模板引擎,例如TemplateToolkit具有在分隔符内使用的特定语法然后在模板执行期间(就在渲染之前)转换为Perl并作为Perl执行,所以即使您可以有perlish模板指令block中的语法突出显示不是10

.net - 是否有与 Perl 的 LWP/WWW::Mechanize 等效的 .NET?

在使用.NET的HttpWebRequest/Response对象后,我宁愿自杀也不愿用它来爬取网站。我正在寻找一个现有的.NET库,它可以获取URL,并使您能够跟踪链接、提取/填写/提交页面上的表单等。Perl的LWP和WWW::Mechanize模块在这方面做得很好,但我正在处理一个.NET项目。我遇到了HTMLAgilityPack,看起来很棒,但它不能模拟链接/表单。这样的工具是否已经存在? 最佳答案 有人构建了一些代码作为HTMLAgilityPack(我也很喜欢)的插件运行,它允许您进行一些表单修补:http://app

php - 带有尾部斜杠的 mod_rewrite 会破坏 CSS/IMG/SCRIPTS 路径

我正在尝试使mod_rewrite来自url的第一个子目录字符串,以便在类/数据库中创建与“jsfiddle.net保存的url”类似的功能。该脚本运行良好并进行了重写。例如网址http://jsfiddle.net/RyEue/这工作正常(加载所有css、脚本等):http://www.domain.com/787HHJ2这就是我过去使用的方法。问题是当URL以最后一个斜杠、脚本、css和其他松散路径结束时。http://www.domain.com/787HHJ2/重写脚本:DirectoryIndexindex.phpindex.htmlOptions+FollowSymlink

使用Perl脚本更改大写量

我的文件具有大写字,我需要将它们更改为通过文件降低案例。我已经使用以下代码来更改它们,但是只有第一个字符才会更改。我想更改标签SC(全球)中可用的整个内容。$xtx1=~s/(.*?)/\l$1/g;看答案尝试下一个filePath='sample.txt';#GolinebylineandchangetolowercasetmpPath=mkstemp()withopen(tmpPath,'w')asnewFile:withopen(filePath)asoldFile:forlineinoldFile:#Applypatterntmp=re.sub('^(.*?)\.*',lambdam:

javascript - 如果客户端使用的是移动浏览器,如何在 perl 中检测?

我正在使用CGI脚本生成动态网页。我希望页面根据用户是使用手机(例如黑莓手机)访问网站还是使用普通浏览器来加载不同的元素。有没有我可以捕获的环境细节来做出这个决定?执行此操作的最佳方法是什么(即使它使用的是javascript而不是CGI。) 最佳答案 使用Perl变量$ENV{'HTTP_USER_AGENT'}和HTTP::BrowserDetect模块。一旦您确定了客户端使用的浏览器(例如它是移动浏览器)-然后您可以决定将什么发送回客户端(移动版或桌面版等) 关于javascrip

html - 如果我知道其中的标签,如何使用 Perl 的 HTML 模块找到 div 的内容?

自从我问了如何用正则表达式解析html并受到了一些抨击(理所当然),我一直在研究HTML::TreeBuilder,HTML::Parser,HTML::TokeParser,和HTML::ElementsPerl模块。我有这样的HTML:.45(2006)我想解析出/45/subtitles-67624.asp,但更重要的是我想知道如何解析出div的内容。我在上一个问题中得到了这个例子:while(my$anchor=$parser->get_tag('a')){if(my$href=$anchor->get_attr('href')){#http://subscene.com/en

html - 使我的文件可读为 Perl 或 HTML

本着“PerlPreamble”的精神,脚本无论是由shell脚本解释器还是Perl解释器执行都能正常工作...我有一个Perl脚本,其中包含一个嵌入式HTML文档(作为“heredoc”),即:#!/usr/bin/perl...somePerlcode...my$html=...moreHTML...END...Perlcodethatprocesses$html...我希望能够处理Perl脚本中的HTML,并使用Web浏览器检查它,并且只在HTML符合我的要求时才运行脚本。为此,我需要该文件既可以作为HTML文件也可以作为Perl脚本打开。我已经尝试过各种Perl注释和HTML注

html - 使用 perl 去除 HTML 标签

在perl中去除HTML标签的最简单方法是什么。我正在使用正则表达式从URL解析HTML,效果很好,但我如何去除HTML标签?这是我拉取HTML的方式#!/usr/bin/perl-wusestrict;usewarnings;useLWP::Simple;my$now_string=localtime;my$html=get("http://www.spc.noaa.gov/climo/reports/last3hours.html")ordie"CouldnotfetchNWSpage.";$html=~s//sg;$html=~s///sg;$html=~m{(HailRepor