Chomp

删除Linux空目录

/t.txt";my@lines=;closeFH; my%t;for(@lines){my($k,$v)=split/->/,$_;$t{$k}=$v};while(<>){chomp
cdzwm·2014-04-03 11:00

利用tcpdump抓取mysql sql语句

thisscriptusedmontormysqlnetworktraffic.echosql tcpdump-ieth0-s0-l-w-dstport3306|strings|perl-e' while(<>){chomp
AloneSword·2014-03-17 15:00

Perl简单用法：命令行参数、连接数据库mysql、DNS查询、发送邮件

useGetopt::Long; useData::Dumper; usePod::Usage; my$Debug=1; subdprint(@) { returnunless$Debug; chomp
kanguolaikanguolaik·2014-02-24 22:00

Perl入门笔记——输入和输出

Learning Perl  第五章 输入和输出 读取标准输入，使用行操作符： $line = ; chomp($line); 如果读到文件结尾，行输入符就会返回undef. while (defined
lucifercn·2014-02-21 16:00

Perl入门学习笔记——子程序

Learning Perl  第四章 子程序 系统内置函数，chomp,reverse和print等。Perl也可以创建子程序，就是用户自定义函数。
lucifercn·2014-02-19 11:00

Perl DBI使用实例

/usr/bin/perl #setmodule useDBI; #scanfthemysqluser print"请输入mysql帐号:\n"; chomp($mysql_n=);
XiaoCon·2014-02-13 10:00

Perl单线程日志分析工具

/usr/bin/perl $i=0; while(<>){ #读取数据后去掉换行符 chomp; #把获得的一行数据进行切割 @log_grep=split(/"/,$_); #把切割后的数据交给后面的子程序进行处理
XiaoCon·2014-02-13 10:00

Perl笔记：Perl语言入门（第六版） - IO文件目录

输入与输出读取标准输入chomp($line=);#chomp截掉最后的换行符，STDIN标准输入。
u012740949·2014-01-27 14:00

Perl chomp使用

如果字符串结尾有换行符，chomp可以去掉它。这基本上就是它能完成的所有功能，如下例：$text=“alineoftext/n”;#也可以由输入chomp($text);#去掉换行符(/n)。
ljchlx·2014-01-15 17:00

Perl语言入门(第五版) 读书笔记（二）---输入与输出、文件读写

第五章 输入与输出1.标准输入chomp($line=);while(defined($line=)){}foreach(){print$_;}2.钻石操作符3.调用参数列表@ARGV4.printf(
wangwenwen·2013-12-13 15:00

Perl语言入门(第五版) 读书笔记（一）---列表、数组、子程序

 第二章标量数据（数字和字符串）1.点（.）字符串连接运算符，小写字母x为字符串重复运算符；2.hex()、oct()转换字符串；3.chomp()移除字符串行尾的换行符；第三章列表与数组1.数组和列表的定义方法
wangwenwen·2013-12-13 13:00

Ruby中gets和gets.chomp()的区别

gets和gets.chomp()都表示读入用户的输入并用于输出，但两者还是有所不同，其中gets是得到的内容后，在输出时后面接着换行；而gets.chmop()得到的内容输出时后面不带空格和换行。
ctest3004·2013-12-02 10:26

Chomp!博弈(巧克力游戏)

有一个n*m的棋盘，每次可以取走一个方格并拿掉它右边和上面的所有方格。拿到左下角的格子(1,1)者输，如下图是8*3的棋盘中拿掉(6,2)和(2,3)后的状态。结论：答案是除了1*1的棋盘，对于其他大小的棋盘，先手总能赢。分析：有一个很巧妙的证明可以保证先手存在必胜策略，可惜这个证明不是构造性的，也就是说没有给出先手怎么下才能赢。证明如下：如果后手能赢，也就是说后手有必胜策略，使得无论先手第一次取
ACdreamers·2013-11-29 11:00

Perl笔记2

21输入与输出(1)读取标准输入chomp($line=);while(defined($line=)){   print"Isaw$line\n";}注：如果读取到文件结尾，行输入操作符就会返回undef
jiangshouzhuang·2013-11-17 08:00

perl学习(5) 输入和输出

1.1.从标准输入设备输入行输入操作在到达文件的结尾时将返回undef，在while循环的条件中不能使用chomp： while(defined($line=)){      print“Isaw$line
jisuanji2121·2013-09-12 18:00

一个最简单的计算器

usestrict; usewarnings; my($i,@in,$sum,); for(1..1000) { chomp($i=<>); if($ieq"quit") { exit; } else
gaorongchao1990626·2013-08-24 09:00

perl对于encode的用法

本地实例：my$sql=;chomp$sql;   #$sql中含有中文乱码closeMF;$sql=encode("gb2312",decode("utf8",$sql));  #先将$sql解码decode
heshw·2013-08-07 19:54

awk中printf华丽输出

/usr/bin/perlusestrict;useShell;my@process=ps("-ef");for(@process){chomp;my($a,$b,$c,$d,$e,$
佼佼者·2013-08-02 14:38

chomp chomp! 以及所有类似函数用法及区别

ruby中带“!"和不带"!"的方法的最大的区别就是带”!"的会改变调用对象本身了。比方说str.gsub(/a/,'b')，不会改变str本身，只会返回一个新的str。而str.gsub!(/a/,'b')就会把str本身给改了。但是gsub和gsub!还有另外一个不同点就是，gsub不管怎么样都会返回一个新的字符串，而gsub!只有在有字符被替换的情况下才会返回一个新的字符串，假如说没有任何字
·2013-07-29 19:00

chomp chomp! 以及所有类似函数用法及区别

ruby中带“!"和不带"!"的方法的最大的区别就是带”!"的会改变调用对象本身了。比方说str.gsub(/a/,'b')，不会改变str本身，只会返回一个新的str。而str.gsub!(/a/,'b')就会把str本身给改了。但是gsub和gsub!还有另外一个不同点就是，gsub不管怎么样都会返回一个新的字符串，而gsub!只有在有字符被替换的情况下才会返回一个新的字符串，假如说没有任何字
liuxiaochen123·2013-07-28 23:00

12coin 题目

所以单纯的二分法无效usestrict; usewarnings; foreach(1..50) { print"Pleaseinputthe12coin'sweight\n"; my$array; chomp
gaorongchao1990626·2013-07-18 17:00

简单测试dns列表中的dns服务器是否可用

bin/perl-w usestrict; usewarnings; openFH,"list"ordie("can'tnotopenlist\n"); while(my$myline=){ chomp
zzz_781111·2013-07-02 19:00

Android UI开发第四篇——实现像handcent sms或者chomp sms那样的气泡短信样式

实现的是像handcentsms或者chompsms那样的气泡短信样式，也是iphone上的气泡聊天模式。实现这种效果的重点是ListView的divider和listSelector。先看一下效果图。(1)listview： (2)ListViewitem (3)JAVApublicclassHandcentListextendsActivity{ /**Calledwhentheac
assassin4824·2013-06-04 23:00

linux下修改并当前目录下图像文件并删除

changeimagesize usestrict; usewarnings; #getfilestobemodified print"ImageFormat(jpgorJPGorelse):"; chomp
_lhtk_·2013-05-26 17:00

《Perl语言入门》之四――输入与输出

while{ chomp; print"Isaw$_"; } foreach{ chomp; print; }看起来上例中的“while”循环和“foreach”的行为完全一样，其实是有些差别的
kunder·2013-05-21 06:51

Binary tree for perl

{ chomp; my$found=search($root,$_); if($found){print"Found
leiz_smile·2013-05-13 15:08

扫描 VNC 的脚本

/usr/bin/perl useIO::Socket; if($ARGV[0]) { open(IN,";close(IN); foreach$ip(@ips) { chomp
sincoder·2013-05-12 04:00

Perl中控制结构用法总结

if控制结构 chomp(my $a = ); 用户输入变量$a的值 if($a > 0){ 若$a大于0则执行命令         print "$a is larger than 
carllai·2013-04-25 10:44

perl中文件读取

;@filelist=;foreach $eachline (@filelist) {        chomp $eachline;}close FILE;@filelist=;当
xyqzki·2013-04-05 16:00

在perl中用foreach输出@array到文件

例子foreachmy$f(@allfiles){chomp$f;    printFOUT"$f\n";}
xyqzki·2013-04-02 21:00

Perl 的 chomp 命令用法

Perl的chomp命令用法  1       #!
everysmile·2013-03-21 15:00

perl实现的两个文件对比并对数据进行筛选的脚本代码

;while(){nextif/^#/;#if($_=~/^#/的简写chomp;my@information=split;#my@information=split/\s+/,$_;的简写nextif
·2013-03-20 23:21

利用tcpdump简易抓取MySQL Query Log

/bin/bashtcpdump-ieth0-s0-l-w–dstport3306|strings|perl-e‘while(<>){chomp;nextif/^[^]+[]*$/;if(/^(SELECT
ztz8652·2013-03-12 17:12

茴字的多种写法 -- 论神仙代码

但是Randal（Perlhacker，教育家）给出这个方法：perl-pe'chomp;$_.=<>'file这个实现得更巧妙（偶已解释过），且没有取余运算，效率会更高。后来JohnW.
kiwivip·2013-03-07 16:00

判断操作系统

/shadow else cat/etc/master.passwd fi perlunless(open(FH,"uname-s|")){ return-1; } my$OS=; closeFH; chomp
zzz_781111·2013-03-05 16:00

perl 指定长度并生成一个随机的DNA序列的脚本代码

perlusestrict;usewarnings;#进行定义my@dna;my$dna_length;my$newbase;my$i=0;print"pleaseinputtheDNAlength\n";chomp
·2013-03-01 11:07

linux进程间的通信(Perl)：FIFO应用示例

;my$uuid = `uuidgen`;      //生成不重名FIFO的名称chomp$uuid;system("mkfifo$uuid");    //创建FIFOmy$pid_ffmpeg =
fireroll·2013-02-25 06:00

Perl中chomp和chop的区别介绍

chomp是用来删除换行符.复制代码代码如下:#!
·2013-02-09 23:28

perl中chomp的使用介绍(chop和chomp函数区别)

$the_string=;print"Theresultis\n";print"$the_string"x"$the_numb";结果：Theresultismymymymymy这里的问题便是没有使用chomp
·2013-02-09 23:52

perl的格式化输出及chomp的重要性分析

\n";chomp(@s=);print"1234567890"x3."
·2013-02-09 22:53

Perl 字符串处理备忘录

1.chop和chomp函数两个函数都以字符串作为参数，并去除其末尾最后一个字符。
·2013-02-09 21:01

Perl从文件中读取字符串的两种实现方法

;@filelist=;foreach$eachline(@filelist){chomp$eachline;}closeFILE;@filelist=;当文件很大时，可能会出现"outofmemory
·2013-02-08 20:31

计算工程中总共有多少行代码

usestrict; useFile::Find; print"inputyourdirhere:\n"; chomp(my$dir=); print"counting,pleasewaiting...
lyx2007825·2013-01-04 10:00

计算指定文件夹下文件总数

usestrict; useFile::Find; print"输入你要计算文件数量所属目录的路径:\n"; chomp(my$dir=); print"正在计算，请稍后...
lyx2007825·2013-01-04 10:00

有些软件很卖钱：在Android交易市场上3周赚了75万美元

首先，移动通讯分析公司Distimo发现，大多数的付费软件的下载量都少有100次，几天后，移动搜索公司Chomp报告说，从他们那里去下载的Andriod软件97%都是免费的。
ldghd·2012-12-23 22:00

Perl 学习记录2 控制程序流

/usr/bin/perl-w$randNum=int(rand10);print"输入一个数字";$guess=;chomp$guess;if($guess>$randNum){ print"大了!
eryk86·2012-12-17 16:00

perl Net::FTP文件上传下载

localtime)[3..5];$mon=$mon+1;$year=$year+1900;$host_ip=`ifconfigeth0|grep"inetaddr"|cut-d:-f2|cut-d""-f1`;chomp
shuocaocao·2012-12-14 17:15

perl Net::FTP文件上传下载

localtime)[3..5];$mon=$mon+1;$year=$year+1900;$host_ip=`ifconfigeth0|grep"inetaddr"|cut-d:-f2|cut-d""-f1`;chomp
西索oO·2012-12-14 17:15

ruby on Httpwatch 脚本

www.httpwatch.com/rubywatir/site_spider.zip （这个例子官网可能更新）得到这个例子后做了一些中文注释，对一些代码进行了删减，主要修改内容如下：1、在url=gets.chomp
·2012-12-06 16:00

perl系列：正则表达式

m/模式/    if("abc"=~m/a/){print"t\n";}else{print"f\n";}   #查看"abc"中是否包含"a"   #注意使用的符号是"=~"，而不是"="    chomp
explore·2012-12-02 17:00
上一页 1 2 3 4 5 6 7 8 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他