Perl Dancer 是一个让你轻松写web application 的框架，据说是模仿Ruby的Sinatra。 下面是我今天的学习记录： (一) 安装： 实用ActivePerl的PPM安装失败，提示打不开链接，于是谷歌了下怎么手段安装。 从官网下载http://www.perldancer.org/安装包，解压。命令行进入目录，然后执行下面四个命令： PPM install
原创
2021-05-01 00:26:36
479阅读
之前就看过perl的dancer框架，但是一直没有真正用过。这次部门里面有需求，就自己试着做来玩玩。这次的作业的内容是change requesrts的管理。（做之前感觉很简单，但是做的时候还是碰到了许多问题。）现在也大概完成了，传上来分享一下，顺便留个档。附件改名，解压之后，导入mysql。执行bin/app.pl之后，你就可以通过localhost:3000访问了。
原创
2013-06-03 23:51:36
712阅读
最近一直在看dancer,发现真心好用,之前在看mojo,搞了好久没有搞懂.只能怪自己太挫了.作为练手就写了一套简易的监控系统,主要是利用net::ssh2模块监控AIX服务器的CPU,IO负载,还有磁盘空间.当然如果你是linux/unix作为监控服务器简易使用net::ssh:perl 或者使用SNMP来获取服务器信息.在lib下添加login.pmpackage&
原创
2014-06-04 16:44:34
1679阅读
package Dancer::Config;
use strict;
use warnings;
use base 'Exporter';
use vars '@EXPORT_OK';
use Dancer::Config::Object 'hashref_to_object';
use Dancer::Deprecation;
use Dancer::Template
转载
精选
2012-07-17 00:00:59
483阅读
毁坏一个会话
When you're done with your session, you can destroy it:
session->destroy
Sessions and logging in ------->会话和登
原创
2012-07-18 23:20:11
470阅读
前过滤声明的代码在请求被传递到合适的路径之前进行过滤。
hook 'before' => sub {
var note => 'Hi there';
request->path('/foo/ove
原创
2012-07-18 23:19:03
489阅读
Dancer::Cookbook - a quick-start guide to the Dancer web framework
DESCRIPTION
A quick-start guide with examples to get
原创
2012-07-18 23:17:52
508阅读
THen in your layout, modify your css inclusion as follows:
<link rel="stylesheet" href="<% uri_base %>/css/s
原创
2012-07-18 23:21:25
358阅读
config->{environment}='production'. Of course, this value does not get written in any file; it only lives in memory&n
原创
2012-07-18 23:22:16
370阅读
Dancer::Introduction - A gentle introduction to Dancer
DESCRIPTION--->简介
Dancer is a free and open source micro web ap
原创
2012-07-15 14:18:47
572阅读
每个路由处理可以有一个定义前缀，如：
prefix '/home';
From here, any route handler is defined to /home/*
从这里开始，每个路由处理被定义到处理/home/下的内容。
get '/page1' =>&
原创
2012-07-15 14:20:42
338阅读
Then in App/User/Routes.pm:
导入了上面的模块
use Dancer ':syntax';
get '/user/view/:id' => sub {
...
};
LOGGING----->
原创
2012-07-15 14:21:52
810阅读
STATIC FILE FROM A ROUTE HANDLER----->路由处理中的静态文件
It's possible for a route handler to send a static file, as
原创
2012-07-15 14:23:09
517阅读
一、system perl也可以用system调用shell的命令,它和awk的system一样,返回值也是它调用的命令的退出状态. [root@AX3sp2 ~]# cat aa.pl #! /usr/bin/perl -w $file = "wt.pl"; system("ls -l wt.pl ...
转载
2021-07-16 10:05:00
1360阅读
2评论
今天学习了perl的哈希 哈希符号%%#!/usr/bin/perl perl头，如果不能运行则需要换成 #!/usr/bin/perl -wmy %ss = ('a' => 1,'b' => 2,'c' => 3,'d' => 4); 哈希数a对应1、b对应2、c对应3、d对应4 也可写成my %ss = ('a',1,'b',2,'c',3,'d',4);
原创
2014-01-20 19:50:47
1082阅读
my @ss = ("a","b","c","d");print $ss[1] 显示为aprint @ss[1,3] 显示为a c@ss的标量为4if (@ss < 5){command}else{command}if($date == $today){command;}elseif($date == $christmas){command;}else{command;}prin
原创
2014-01-20 19:52:01
661阅读
[oracle@jhoa 2]$ cat a2.pl foreach $key (keys %main::) {print "\$$key => $main::{$key}\n";}[oracle@jhoa 2]...
转载
2014-12-25 21:02:00
194阅读
2评论
1,一个相当常见的全局替换是缩减空白，也就是将任何连续的空白转换成单一空格：
s/\s+ //g;
2,将开头的空白替换成空字符串
s /^\s+//;
3,讲结尾的空白替换成空字符串
s /\s+$//
4,去除开头和结尾的空白符
s/^\s+|\s+$//g
原创
2013-02-20 16:00:07
636阅读
AAA
原创
2015-03-06 16:47:21
648阅读
perl 常用法
常用正则表达式
匹配中文字符的正则表达式： [\u4e00-\u9fa5]
评注：匹配中文还真是个头疼的事，有了这个表达式就好办了
匹配双字节字符(包括汉字在内)：[^\x00-\xff]
评注：可以用来计算字符串的长度（一个双字节字符长度计2，ASCII字符计1）
匹配空
转载
2024-04-20 10:19:18
208阅读
