jackyyang8
- 浏览: 12995 次
-
最新评论
文章列表
perl 匹配中文和中文转码问题
- 博客分类：
- Perl
记录一下，搞了好几天，呵呵
$str =~ s/([\x80-\xFF][\x80-\xFF])/sprintf("&#x%X;", ord decode("GBK", $1))/ego;
Prob related to obove
The start mode for the Net.Tcp Port Sharing service must be set to Automatic before Setup can continue.
解决：在服务中启动"Net.Tcp Port Sharing Service"服务即可，或者"sc config NetTcpPortSharing start= auto"命令行启动
DTP协商模式下，在缺省情况下，如果双方都支持ISL，ISL将成为首选，要使用802.1Q，需要进行手工设置
reference:
通过\获得一个引用，通过$\@\%访问相应引用，对引用的修改会反应到原值上，就像指针
\('a', 'b')这种形式只能得到最后一个元素的引用, 通过@$访问会抱怨不是数组。创建匿名数组应该使用[], 这样会创建一个初始化过的数组并返回该数组指针
匿名散列用{}
perl解析表达式：
1. 键值和索引定位放在最后
2. 离变量名最近的前缀最先编译
->访问单键值索引，不支持分段存储。
一个枚举或逗号分隔的列表，在标量上下文中只返回最后一个元素
数组或hash默认只能包含标量，可通过引用方式包含其他数组或hash，因为引用值是标量
ref函数用来判断一个标量变量 ...
watir获取modal_dialog
- 博客分类：
- Ruby
搞了半天，记录一下。
环境需求：
ruby v1.8.7
watir 2.0.4
ffi 1.0.11
开始试了好久不行，最后发现是版本问题。
注意点：
require 'win32ole'要写成require 'watir/win32ole'，否则报错：
in `locate': undefined method `connect_unknown' for WIN32OLE:Class (NoMethodError)
watir 2.0.4自代ffi版本为ffi-1.0.10-x86-mingw32，需要重新安装成1.0.11，否则报错：
`gem_original_require': n ...
转载：EJB中的三种Bean类型
- 博客分类：
- EJB
【摘自Head First EJB】
实体bean（entity bean）
实体bean用来表示持久存储库里的一个东西。这通常就是指数据库里的一个东西，实体bean的一个实例就表示数据库表中的一行（不过，如果数据库得到了规范化，bean也有可能从多个表的数据行提取信息，也就是说，可能对应到多个表中的多个数据行）。实体bean的一个典型例子就是Customer（顾客），一个Customer实体bean可能表示Bo Olean（ID#343），另一个Customer实体bean可能表示的是Trixia Lin（ID#870）。
消息驱动bean（message-driven bean）
只 ...
Perl 入门读书笔记 - 异常捕捉
- 博客分类：
- Perl
eval 捕获异常并存储在$@里
eval捕获运行期所有异常，如有嵌套，最内层的先捕获
eval无法捕获的错误：
1. 解释器严重错误
2. eval块的语法错误会在编译器抛出
3. exit语句会造成程序立即退出而无法捕获
4. 由perl -w或use warnings抛出的警告
grep 代码块grep {} <FILE>可简写成grep //, <FILE>
map和grep相似，都是返回列表
裸词hash键可省略引号
如果被赋值列表含有undef，则忽略源列表相应数据，避免垃圾变量
列表切片必须由一对圆括号括起来，后面跟[数组下标]，下标从0开始
数组切片不用 ...
Perl入门读书笔记 - 字符串
- 博客分类：
- Perl
index 字符出现的位置，0开始
rindex 字符最后出现的位置
以a < b -> -1, a == b -> 0, a > b -> 1向sort返回需要排序位置
<=> 比较数值, cmp 用于比较字符串
~~根据变量类型自动比较
given when等效于switch
进程句柄：
open 命令前面或后面加|
$? 最近一个进程返回值
kill 发送信号到其他进程
%SIG 特殊hash, 设置信号处理程序
Perl入门读书笔记 - 文件
- 博客分类：
- Perl
-r/w/x/o 目前有效用户对文件或目录执行权限, o为拥有者，有效用户指负责运行这个程序的用户
-R/W/X/O 实际用户权限
-e exist
-z 文件存在并为空(对目录永远为假)
-s 文件或目录存在且没有内容，返回值为字节为单位的文件大小
-f 是普通文件
-d 是目录
-l 是符号链接
-S socket文件
-p 命名管道，fifo
-b 块设备
-c 字符设备
-u/g/k setuid/setgid/sticky
-t 文件句柄是tty设备，不能作用于文件
-T 看起来像是文件
-B 看起来像是二进制文件
-M/A/C 最后一次修改/访问/inode变更至今的天数
_ 虚拟文 ...
Perl入门读书笔记
- 博客分类：
- Perl
unless 除非条件为真，否则都执行以下代码。条件为真时执行else代码
until 条件为假时执行
裸块可为临时变量圈定使用范围。
for和foreach可以互换
last相当于break，用于跳出循环块(for, foreach, while, until, 裸块)
next相当于continue
redo重复刚才的最内层循环
||可作为短路操作符提供默认值
//定义否操作符，在左边表达式返回undef时才启用
Perl 入门读书笔记 Expression
- 博客分类：
- Perl
m// 匹配模式
/i case insensitive
/x ignore pattern white space
/s 输入视为单行
/g 全局匹配所有
/o 对pattern为变量替换的只赋值一次
/m 所有行里逐行匹配
/e 替换块视为perl代码而非字符串
\b word border
\B non word border
\d [0-9]
\D [^0-9]
\w [A-Za-z0-9]单个字符
\W [^_A-Za-z0-9]
\s [ \r\n\t\f]空白\f换页符
\S [^ \r\n\t\f]任意非空白
=~ match the left string, not $_
...
Perl语言入门读书笔记
- 博客分类：
- Perl
die默认输出出错文件名以及行号，如想忽略结尾加\n。$!存储系统服务请求失败信息。
$| = 1立即清空缓存区。
%访问整个hash
reverse hash会让键值对互换。
keys values对hash键值分别根据上下文取值。
while和each配合遍历hash。
foreach遍历ha ...
ERROR [org.apache.catalina.core.ContainerBase.[jboss.web Servlet.service() for servlet TestService threw exception
org.jboss.ws.WSException: Cannot obtain endpoint for: jboss.ws:context=Test,endpoint=TestService
at org.jboss.ws.core.server.AbstractServiceEndpointServlet.initServiceEndpoint(Abstr ...