perl
文章平均质量分 52
ifeixiang
这个作者很懒,什么都没留下…
展开
-
批处理获取目录下所有文件名
由于要处理一些文件,找了个这样的批处理: 输出目录及子目录下所有的jpg图片的文件名,不含扩展名 1 @echo off 2 cd.>List.txt 3 for /f "delims=" %%i in ('dir /s/a-d /b *.jpg') do >>List.txt echo %%~ni>>JustName.txt 4 start JustName.txt 5 6 p原创 2013-05-18 08:43:48 · 1180 阅读 · 0 评论 -
perl xml dom中文乱码问题解决
在linux服务器上,很容易出现中文乱码。 一般情况下,只要保持服务器环境是utf8,文件格式是utf8,用各种语言默认的读写文件方式通常不会出现乱码。 但是,在用perl xml dom写xml的时候就出现了这个问题。 perl xml dom默认应该是用ascii来读写文件,所以,对中文要先进行解码decode,再写入。 例如: 1 #更新显示的xml文件 2 sub wr原创 2013-05-18 08:47:33 · 779 阅读 · 0 评论 -
perl命令行批量修改文件内容
1 perl -p -i.bak -w -e 's/\.JPG/\.jpg/g' *.xml 这个是修改一个目录下的文件内容的,当然我们可以配合find命令来修改指定类型文件的内容,例如这里修改所以.plist文件的版本号(注意正则表达式需要转义): 1 find -name *.plist | xargs sed -i 's/2\.2\.0/3\.0\.0/'原创 2013-05-18 08:47:31 · 947 阅读 · 0 评论 -
perl文件名过滤工具
有时候客户给的文件文件名里面有很多空格,在网页解析的时候会把这些空格变成只保留一个,所以得去掉这些空格。通过重命名是一种方法。这里我是对文件名进行批量过滤。 1 #!/usr/bin/perl -w 2 use strict; 3 use warnings; 4 use File::Find (); 5 use File::Basename ; 6 7 #文件名过原创 2013-05-18 08:47:17 · 428 阅读 · 0 评论 -
perl传递数组的问题
在perl里面,传递多个数组是不可行的,因为所有参数都会被压到@_里面,取出来的时候,所以数组元素都会被放到第一个数组里面。 所以,用引用吧~~~ 1 use ... 2 sub array 3 { 4 my ($arr1,$arr2) = @_ ; 5 print "@$arr1 : @$arr2"; 6 } 7 sub main原创 2013-05-18 08:47:08 · 421 阅读 · 0 评论 -
Perl深拷贝
使用mkdir可以创建一个目录,但只能创建一个目录。 使用mkpath则可以创建连续的子目录。在linux下使用cp -p同样可以实现同样的功能。 再使用File::Copy来拷贝。 1 use File::Path; 2 use File::Copy; 3 sub writeSubFolder 4 { 5 my $root = 'E:/perl_wor原创 2013-05-18 08:47:06 · 614 阅读 · 0 评论 -
perl获取相同匹配字符长度
用perl来获取匹配字符串出现的次数的一个比较好的方法:通过/g进行全局匹配,返回数组中包含了所有已匹配的元素,再用上下文标量获得数组长度。代码如下: 1 main(); 2 sub main 3 { 4 my $str = "#####H1####" ; 5 my $divider = "#"; 6 print "length of原创 2013-05-18 08:46:48 · 637 阅读 · 0 评论 -
介绍一下Markdown语言
## 介绍一下Markdown语言,一种易读的标志语言 - 首先,行首#号的个数代表h1-h6 - \>是段落的前缀 - 空行或者` `代表段落 - 使用[link](www.baidu.com "百度")来表示超链接 - 使用![alt](../images/image.png "图片")来表示图片 - 使用_或*来表示加重文本 - 使用-,+,*(加减号,星号)来表示无序列表 - 使原创 2013-05-18 08:46:37 · 446 阅读 · 0 评论 -
修复Git打包的一个Bug
今天Gitweb打包时出现了点问题,按照之前的经验,查看apache的error_log日志,定位到错误是sh命令里有非法的“(” 这个非常明显是由于文件名里面有括号导致的错误,于是对括号进行转义。括号问题解决。 括号转义后又出现空格错误,于是再转义,问题解决! 怎么知道这些要转义呢?我们可以先用一个测试工程进行尝试,建立带空格以及带括号的文件。利用Git的tab提示,自动会出现这些文件名,原创 2013-05-18 08:46:35 · 407 阅读 · 0 评论 -
perl入门
学习了perl大概有3个月了,从开始的懵懂,到现在的逐渐清晰,少不了经典书籍的帮助。当然Google大神是必需的。 下面是几本比较好的书,大部分我都做了书签。做书签应该说是一个好习惯。(最近舍弃了金山快盘,因为它要登录才能下载!而百度网盘不用。) http://pan.baidu.com/share/link?shareid=106510&uk=3190391850 一开始看原创 2013-05-18 08:46:10 · 358 阅读 · 0 评论 -
Perl解析RC,RC2文件
我们正在开发的一个软件是国际化软件,所以需要翻译成其他国家的语言。但是对每一次更新实际上需要改动的语言只是一部分,其他一大部分是可重用的。 所以,为了避免代理商再次翻译,我们从原来的版本资源文件抽出了对应的字典文件,并进行替换,达到只翻译一部分改变了的字符串。 这其他还希望用到模糊匹配,但是效果似乎不大,不过还是很有必要的。关于模糊匹配,我看到了《编程之美》里面的一个题目:“判断字符串的相似度原创 2013-05-18 08:46:08 · 458 阅读 · 0 评论 -
Gitweb源码解析
最近在搭Git Server,Git提供了一个简单但强大的网页端Gitweb供用户浏览项目 因为需要添加一项小功能,所以把Gitweb的代码研究了一下,下面和大家一起分享一下... 这里,我们有一点前置知识: Perl : gitweb是用perl写的,所以,在看gitweb源代码前,请熟悉一下perl的语法... 对于这一点,请一定得做,因为,凭着以往的编程经验可以使你能看懂,但是会非常原创 2013-05-18 08:44:30 · 560 阅读 · 0 评论 -
Gitweb增加增量更新功能
很久以前开发的功能,在服务器上执行,因为Git对utf-8支持的问题,走了很多弯路,放出所有代码供大家参考: View Code 1 #fei add for dl_patch download 2 3 4 ############# some tools for pretty codes ######### 5 sub git_write_xm原创 2013-05-18 08:47:42 · 661 阅读 · 0 评论