- 博客(25)
- 资源 (11)
- 收藏
- 关注
RSS订阅原创 PERL LWP
#! /usr/bin/perl use LWP::Simple; use Encode; my $targetfile = "C:/Users/Administrator/Desktop/123.txt"; open(TARGETHANDLE, ">".$targetfile); my $url='http://www.baidu.com/s?wd=百度'
2013-05-08 15:48:14
813
原创 PERL - LWP::SIMPLE 使用
http://zhidao.baidu.com/question/530489692.html http://blog.chinaunix.net/uid/17135777/cid-1400-list-1.html
2013-04-02 14:54:56
1102
转载 perl写入文件时中文乱码终极解决方案
perl写入文件时中文乱码终极解决方案在用perl写爬虫时，网页内容如果是英文可以正常写入文件，一旦网页中包含中文，文件是全部是乱码。可以网页的meta信息明明写着charset='utf8'，并且我把网页内容直接输出到STDOUT也可以正常显示。尝试了很多方法都不行：open文件时指定utf8编码使用Encode::_to_utf8调用系统命令enca或iconv转码使用Un
2013-04-02 14:31:16
1796
原创 android插入联系人
private void insertContact(String serviceName, String serviceNumber) { //先插入空值得到rawContactId ，然后用于下面插值 ContentValues values = new ContentValues(); Uri rawContactUri = getContent
2013-03-19 15:02:21
858
原创 Android屏蔽home键
2.2版本 @Override public void onAttachedToWindow() { this.getWindow().setType(WindowManager.LayoutParams.TYPE_KEYGUARD_DIALOG); super.onAttachedToWindow(); } 4.0版本 publ
2013-03-12 10:26:37
1343
原创 perl把Excel一列复制
#!perl -wuse Win32::OLE qw(in with);my $file = "C:/Users/Administrator/Desktop/input.xls";my $fileOut = "C:/Users/Administrator/Desktop/output.xls";my $sheet = 1;#第几个页my $Row = 3;#你要取出的列
2013-02-28 14:27:31
1274
转载 perl连接SQLite
需要安装DBD::SQLite模块[root@localhost ~]# cat create_db.pl #!/usr/bin/perl -wuse strict;use DBI;my $db_file="data.db";#建立连接my $dbh = DBI->connect("dbi:SQLite:dbname=$db_file","","");
2012-11-29 12:20:57
1222
原创 perl分组捕获
问题如下 ：http://zhidao.baidu.com/question/501928970.html?push=keyword 解决如下：#! /usr/bin/perl -wuse strict;my $string = "abc r=3 def r=3 test r=3 over";print $string , "\n";$string =~ s
2012-11-27 15:49:00
2265
原创 Perl GUI （未完待续）
use Win32::GUI; use Win32::GUI qw(CW_USEDEFAULT); use Win32::GUI::DIBitmap; use Win32::GUI::DropFiles; my $size = 20; $W = new Win32::GUI::Window ( -title => "
2012-11-19 10:32:00
1177
原创 第一个perl程序
http://bbs.youkuaiyun.com/topics/390272012 帮完成了这个问题，收藏下use strict;use File::Find;use Getopt::Std;my @allcsvfile;my @targetfile;if($#ARGV == -1 ) { print "使用格式如下：perl list.pl 路径 关键字 >
2012-11-09 14:30:31
513
原创 perl基础-9 (Perl编程24学时教程)
#!usr/bin/perl -w$string = "one fish, two fish , three fish";$start = -1;while (($start = index($string, "fish",$start))!= -1){ print $start; print "\n"; $start++;}print rinde
2012-11-01 17:42:09
584
原创 perl基础-7 (Perl编程24学时教程)
#!usr/bin/perl -w#hash%hash1=("aaaa"=>1,"bbbb"=>2,"cccc"=>3,"dddd"=>4); foreach $key(sort keys %hash1) { print $key; print $hash1{$key}; print "\n"; } %hash2 = %hash1;
2012-11-01 17:38:07
618
原创 perl基础-4 (Perl编程24学时教程)
#!$s = 'test';@array1 = ("apple", "orange", 80, $s);@array2 = qw(apple orange 80 $s);print "@array1","\n";print @array1,"\n";print @array2,"\n";##################################
2012-10-29 19:53:21
677
原创 perl基础-2 (Perl编程24学时教程)
#!$radius =50;$area = 3.14*($radius**2);print $area ,"\n";##############################################if ('leon' =~ /\bleon\b/) {print ("I am leon!\n");}else {print ("who
2012-10-29 15:38:41
633
转载 perl正则表达式
perl正则表达式一、简介二、匹配操作符三、模式中的特殊字符1、字符2、字符 []和[^]3、字符 +，*和?4、转义字符5、匹配任意字母或数字6、锚模式7、模式中的变量替换8、字符范围转义前缀9、匹配任意字符10、匹配指定数目的字符11、指定选项12、模式的部分重用13、转义和特定字符的执行次序14、指定模式定界
2012-10-17 12:40:20
681
原创 JAVA学习正则表达式提取email
import java.io.BufferedReader;import java.io.FileNotFoundException;import java.io.FileReader;import java.io.IOException;import java.io.Reader;import java.util.regex.Matcher;import java.uti
2012-10-16 23:51:52
1081
原创 基础知识2
require 'win32ole'excel = WIN32OLE::new('excel.Application')workbook = excel.Workbooks.Open('H:\rb\123.xls')worksheet = workbook.Worksheets(1) #定位到第一个sheetworksheet.Selecttemp = worksh
2012-10-08 18:13:07
427
原创 基础知识1
puts "hello "\ "world" if falseclass Person @@count =0 def initialize (name , age=18) @name = name @age = age @motherland = "china" end def talk
2012-10-08 18:11:48
453
原创 android退出activity提示再按一次返回键
@Override public boolean onKeyDown(int keyCode, KeyEvent event)//主要是对这个函数的复写 { // TODO Auto-generated method stub if((keyCode == KeyEvent.KEYCODE_BACK)&&(event.getAction() == KeyEvent.AC
2012-08-17 22:05:49
3325
转载 OAUTH协议简介
摘要：OAUTH协议为用户资源的授权提供了一个安全的、开放而又简易的标准。与以往的授权方式不同之处是OAUTH的授权不会使第三方触及到用户的帐号信息（如用户名与密码），即第三方无需使用用户的用户名与密码就可以申请获得该用户资源的授权，因此OAUTH是安全的。同时，任何第三方都可以使用OAUTH认证服务，任何服务提供商都可以实现自身的OAUTH认证服务，因而OAUTH是开放的。业界提供了OAUTH的
2012-08-16 10:11:00
495
原创 Java中的IO-Mars老师学习视频笔记
Java中IO的分类第一种分类：1.输入流（以java程序为参照物） 2.输出流第二种分类：1.字节流（以字节byte读写为基础，使用同字符流如出一辙） Inputstream -->Fileinputstream Oupu
2012-08-09 22:42:07
861
TA创建的收藏夹 TA关注的收藏夹
TA关注的人