- 浏览: 578059 次
- 性别:
- 来自: 深圳
最新评论
-
springmvc-freemarker:
可以参考最新的文档:如何在eclipse jee中检出项目并转 ...
eclipse 配置maven web项目 -
zk1878:
huzhenyu 写道楼主很用心,讲得十分清楚,非常实用!呵呵 ...
eclipse 配置maven web项目 -
huzhenyu:
楼主很用心,讲得十分清楚,非常实用!
eclipse 配置maven web项目 -
宋建勇:
不错,对CountDownLatch了解加深了!
java 多线程 CountDownLatch用法 -
zk1878:
必须的。。。。
perl下载图片
文章列表
perl xml json
- 博客分类:
- perl
use XML::XML2JSON;
my $XML = '<test><element foo="bar"/></test>';
my $XML2JSON = XML::XML2JSON->new();
my $JSON = $XML2JSON->convert($XML);
print $JSON;
my $RestoredXML = $XML2JSON->json2xml($JSON);
$str = '中国';
chdir 'E:\job';
mkdir $str;
print $str;
上面一段程序,保存为a.pl,文件编码为unicode或是utf-8,运行后,则创建
一个目录,该目录为乱码, 打印出来为乱码。
解决办法:
将文件编码设置为ANSI即可。
注:不同的编辑器,默认编码是不同的,写代码时这点需注意
perl解析html, 比较常用的模块是 HTML::TreeBuilder,该模块将html字符转化dom树,方便操作
一个dom元素对应 一个HTML::Element对象,dom的
属性方法都定义在该类中,以下是代码
# 一个dom元素,比较重要的属性,方法
# attr: $e->attr('id') 返回标签的某个属性值
# text: $e->as_text 返回标签包裹的内容,如<a>click me</a> 返回的是 click me
# html: $e- ...
以下例子,在主进程生成3个子进程,然后再收割每个子进程,防止子进程成为僵尸进程
for(1..3){
$pid = fork;
if($pid == 0){//子进程
print $$,"\n";
sleep (3+int(rand(10)));
exit 0;
}
}
print "waitting --------\n";
print "process$p has exist\n" while(($p=wait)!=-1)
一段实用的perl脚本
- 博客分类:
- perl
下面的脚本实现了在命令行直接执行perl语句或是执行操作系统命令的功能。
虽然perl的命令行选项 -e可以,但不好用。
操作说明:
在终端执行 perl shell.pl(保存为shell.pl)
有2种模式
1 perl解释器模式
在控制台输入非os:开头的字符串,则该行字符串被当作perl脚本执行,如
$i=3; $j=5; print $i+$5; #按回车后,控制台输出为8
2. 操作系统命令模式
在控制台中输入os:开头,则此模式打开,在此模式下,输入的字符串被当成
操作系统命令执行 ...
perl 发送http 非常之简单,发送get请求 只一行代码
use LWP::Simple;
$content = get('http://localhost:8080/webtest/a.jsp');
发送post,或者要发送请求头,cookie,则为以下代码,也不多
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new('POST' => 'http://localhost:8080/webtest/a.jsp');
$re ...
mysql数据库乱码的一些解决之道
- 博客分类:
- mysql
这里只针对使用jdbc保存到数据库中的情况
假设要存入的数据在内存中是某种编码,比如utf-8
则需要设置2个地方
1. 数据库连接方式字符集
jdbc:mysql://127.0.0.1:3306/mydb?useUnicode=true&characterEncoding=utf-8
2. 数据库的字符集
这里设置为utf-8
这样保存到数据库中就不会出现乱码,至于怎么知道数据在内存中的编码 ,老实说我也不懂。。
只要在内存中不是乱码, 设置数据库连接使用的字符集和数据库字符集一致,一般都不会出现问题
原文:http://www.cnblogs.com/lipan/archive/2010/12/09/1892516.html
一、定义变量
use DBI;
@driver_names = DBI->available_drivers;
#%drivers = DBI->installed_drivers;
print "@driver_names\n";
# print "%drivers";
$username = "root";
$password = "123";
$data_source = "dbi:mysql:mytest"; # 格式 dbi:$dri ...
1 groups
列出当前用户所属的所有组
2. newgrp groupname
切换当前用户的有效用户组为groupname。一个用户可以属于多个组,但只有一个
有效用户组,当其新建一个文件时,该文件属于有效用户组。
3.useradd [-d home] [-s shell] [-c comment] [-m [-k template]] [-f inactive] [-e
ex
pire ] [-p
passwd
]
uname
新建一个用户,用户名为uname
4. passwd [us ...
原文:http://www.ibm.com/developerworks/cn/linux/l-cn-perl-thread/index.html?ca=drs-cn-0302
线程概述
线程是一个单一的执行流程,它是所有程序执行过程中最小的控制单位,即能被 CPU
所调度的最小任务单元。线程与进程之间既有联系,又完全不同。简单地说,一个线程必然属于某一个进程,而一个进程包含至少一个或者多个线程。早期的计算机
系统一次只能运行一个程序,因此,当有多个程序需要执行的时候,唯一的办法就是让它们排成队,按顺序串行执行。进程的出现打破了这种格局,CPU
资源按时间片被分割开来,分配 ...
java中使用BigDecimal可以实现四舍五入,以下是例子
BigDecimal b1=new BigDecimal("1.3345");
BigDecimal b2= b1.setScale(3, RoundingMode.HALF_UP);
System.out.println("case 1: b1 origianl:1.3345");
System.out.println("b1:"+b1);
System.out.println(&quo ...
1.外盘与内盘:
主动去适应卖方的价格而成交的,就是红色,叫外盘;主动迎合买方的价格而成交的,就是绿色,叫内盘。
2.现手
股市最小交易量是1手.为100股,对于一只股票最近的一笔成交量叫现手
3. 每股收益
每股收益(Earning Per Share,简称EPS) ,又称每股税后利润、每股盈余,指税后利润与股本总数的比率。它是测定
股票投资价值的重要指标之一,是分析每股价值的一个基础性指标,是综合反映公司获利能力的重要指标,它是公司某一时
期净收益与股份数的比率。
4.蓝筹股
蓝筹股是指稳定的现金股利政策对公司现金流管理有较高的要求,通 ...
前段时间用dom4j解析xml时碰到了个异常 content is not allowed in prolog,估计是编码问题,后来在网上找到了答案,具体看以下的代码就知道咋回事了
import java.io.*;
import java.nio.charset.Charset;
import javax.xml.parsers.*;
import org.xml.sax.SAXException;
import org.xml.sax.helpers.DefaultHandler;
public class ContentNotAllowedInP ...
原文:http://blog.chinaunix.net/uid-21505614-id-289463.html
use Net::SMTP;
my $mailhost = "smtp.126.com"; # the smtp host
my $mailfrom = 'my@126.com'; # your email address
my @mailto = ('my@163.com'); # the recipient list
my $subject = "标题";
my $text = "正文\n第二行位于此。&qu ...