坏脾气的猪-CSDN博客

原创 Temp-4-save

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

2023-12-22 19:43:52 958

原创与工作无关

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

2014-03-05 12:44:52 570

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

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

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

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

2013-04-02 14:31:16 1701

原创 android插入联系人

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

2013-03-19 15:02:21 792

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

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

转载 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 1168

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

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

原创收藏个perl程序

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

2012-11-14 23:30:21 432

原创第一个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 472

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

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

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

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

转载 perl正则表达式

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

2012-10-17 12:40:20 641

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

原创基础知识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 395

原创基础知识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 433

原创 asynctask学习

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

2012-08-18 22:07:35 565

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

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

2012-08-16 10:11:00 461