`
文章列表

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的命令行选项 -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 ...
这里只针对使用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 一、定义变量

perl 操作mysql

    博客分类:
  • perl
  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 ...

Perl 中的线程

    博客分类:
  • perl
原文:http://www.ibm.com/developerworks/cn/linux/l-cn-perl-thread/index.html?ca=drs-cn-0302 线程概述 线程是一个单一的执行流程,它是所有程序执行过程中最小的控制单位,即能被 CPU 所调度的最小任务单元。线程与进程之间既有联系,又完全不同。简单地说,一个线程必然属于某一个进程,而一个进程包含至少一个或者多个线程。早期的计算机 系统一次只能运行一个程序,因此,当有多个程序需要执行的时候,唯一的办法就是让它们排成队,按顺序串行执行。进程的出现打破了这种格局,CPU 资源按时间片被分割开来,分配 ...

java四舍五入

    博客分类:
  • java
       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 ...
Global site tag (gtag.js) - Google Analytics