坏脾气的猪-CSDN博客

原创 Temp-4-save

///////////////file.te。

2023-12-22 19:43:52 1069

原创与工作无关

http://tieba.baidu.com/p/2900094330

2014-03-05 12:44:52 652

原创 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 862

原创 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 1214

转载 perl写入文件时中文乱码终极解决方案

perl写入文件时中文乱码终极解决方案在用perl写爬虫时，网页内容如果是英文可以正常写入文件，一旦网页中包含中文，文件是全部是乱码。可以网页的meta信息明明写着charset='utf8'，并且我把网页内容直接输出到STDOUT也可以正常显示。尝试了很多方法都不行： open文件时指定utf8编码使用Encode::_to_utf8调用系统命令enca或iconv转码使用Un

2013-04-02 14:31:16 1873

原创 android插入联系人

private void insertContact(String serviceName, String serviceNumber) { //先插入空值得到rawContactId ，然后用于下面插值 ContentValues values = new ContentValues(); Uri rawContactUri = getContent

2013-03-19 15:02:21 933

原创 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 1382

原创 perl把Excel一列复制

#!perl -w use 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 1332

转载 perl连接SQLite

需要安装DBD::SQLite模块 [root@localhost ~]# cat create_db.pl #!/usr/bin/perl -w use strict; use DBI; my $db_file="data.db"; #建立连接 my $dbh = DBI->connect("dbi:SQLite:dbname=$db_file","","");

2012-11-29 12:20:57 1274

原创 perl分组捕获

问题如下： http://zhidao.baidu.com/question/501928970.html?push=keyword 解决如下： #! /usr/bin/perl -w use strict; my $string = "abc r=3 def r=3 test r=3 over"; print $string , "\n"; $string =~ s

2012-11-27 15:49:00 2328

原创 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 1241

原创收藏个perl程序

http://zhidao.baidu.com/question/497767826.html?push=cookie

2012-11-14 23:30:21 499

原创第一个perl程序

http://bbs.csdn.net/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 555

原创 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 629

原创 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 651

原创 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 702

原创 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 672

转载 perl正则表达式

perl正则表达式一、简介二、匹配操作符三、模式中的特殊字符 1、字符 2、字符 []和[^] 3、字符 +，*和? 4、转义字符 5、匹配任意字母或数字 6、锚模式 7、模式中的变量替换 8、字符范围转义前缀 9、匹配任意字符 10、匹配指定数目的字符 11、指定选项 12、模式的部分重用 13、转义和特定字符的执行次序 14、指定模式定界

2012-10-17 12:40:20 718

原创 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 1135

原创基础知识2

require 'win32ole' excel = WIN32OLE::new('excel.Application') workbook = excel.Workbooks.Open('H:\rb\123.xls') worksheet = workbook.Worksheets(1) #定位到第一个sheet worksheet.Select temp = worksh

2012-10-08 18:13:07 458

原创基础知识1

puts "hello "\ "world" if false class Person @@count =0 def initialize (name , age=18) @name = name @age = age @motherland = "china" end def talk

2012-10-08 18:11:48 491

原创 asynctask学习

先给上一张（mars老师教学用）图：注意上面asynctask主要成员函数所在的线程。

2012-08-18 22:07:35 626

原创 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 3383

摘要：OAUTH协议为用户资源的授权提供了一个安全的、开放而又简易的标准。与以往的授权方式不同之处是OAUTH的授权不会使第三方触及到用户的帐号信息（如用户名与密码），即第三方无需使用用户的用户名与密码就可以申请获得该用户资源的授权，因此OAUTH是安全的。同时，任何第三方都可以使用OAUTH认证服务，任何服务提供商都可以实现自身的OAUTH认证服务，因而OAUTH是开放的。业界提供了OAUTH的

2012-08-16 10:11:00 523