Perl
_Black铁木真
闻道有先后术业有专攻如是而已
展开
-
Perl 语言简介
1. Perl 像C一样强大,像awk, sed一样方便2. Practical extraction and report language, 特别适合web编程和系统管理3. 内部集成了正则表达式和代码库CPAN4. 变量定义:$, 数组定义:@,散列定义:%5. 它可以很容易操作数字,文本,文件和目录,计算机和网络,特别是程序的语言(简单化)优点Perl追原创 2013-09-16 14:11:21 · 945 阅读 · 0 评论 -
diamond operator in Perl
while ( chomp; print "it was $_ that i saw";}原创 2013-12-02 17:51:44 · 784 阅读 · 0 评论 -
List and Array in Perl
scalar ----singularlist && array ------plural1. A list is an ordered collection of scalars, and the list is the data. Using (1, 2, 3)2. An array is a variable that contians a list, a原创 2013-12-02 16:17:35 · 690 阅读 · 0 评论 -
scalar and list context in Perl
example:@people = qw( fred barney betty);@sorted = sort @people; #list context: barney, betty, fred$number = 42 + @people; # scalar context :45@list = @people; # a list of 3 people$n = @pe原创 2013-12-02 16:43:14 · 621 阅读 · 0 评论 -
strict pragma in Perl
use strict; # Enforce some good programming rules原创 2013-12-02 17:20:21 · 472 阅读 · 0 评论 -
subroutine has the same name with build_in functions
If you create a subroutine that has a name same with the build_in functions in Perl, you should add "&" when you invoke this subroutine:for example:sub chomp { print "hello";}&chomp;原创 2013-12-02 17:38:57 · 563 阅读 · 0 评论 -
Perl和Python的比较
关门与Perl和Python的起源:Perl 是 Practical Extraction and Report Language 的简称,由 1987 年 Larry Wall 创建,最初的目的是为了在 UNIX 上方便处理报表,经过长期的发展已经成为一种全功能的程序设计语言,当前最新的版本为 Perl5.14.1,Perl 作为一种自由而强大的编程语言,其中心思想是: There's转载 2013-12-06 15:43:09 · 2588 阅读 · 0 评论 -
在shell中创建带空格的路径
在shell中创建带空格的路径,并且进去这个路径:具体情况下:mkdir "te st"cd te\ st/变量情况下:dir="te st"mkdir "$dir"dir1=$(echo "$dir" | sed 's/ /\\ /g'') #此处不可用单反斜杠替代cd $dir1原创 2013-12-19 09:41:49 · 3351 阅读 · 0 评论 -
perl字符串如何提取数字
$test="fsfsfs fsfsf 212 fsfs";$test =~ /(\d+)/;print "$1\n";原创 2014-01-13 19:06:16 · 8128 阅读 · 0 评论 -
arguments for subroutine in Perl
Perl automatically stores the paremeter list in the special array variable named @_ for the duration of the subroutine. The subroutines can get the number of arguments and the value of those arguments原创 2013-12-02 17:15:36 · 492 阅读 · 0 评论 -
The undef values in Perl
Varibels have the special undef value before they are first assigned, which is Perl's way of saying " nothing here to look at -- move alog, move alog."If you use this "nothing" as a "numric somethin原创 2013-12-02 15:24:31 · 509 阅读 · 0 评论 -
Example of hash in Perl
#!/usr/bin/perl -wuse strict;use warnings;my %name=("fred"=>"flintstone","barney"=>"rubble", "wilma"=>"flintstone", );my $length=keys %name;# Count the number of hashprint "$length\n";while(原创 2013-09-17 10:53:22 · 587 阅读 · 0 评论 -
Subroutine in Perl
子函数子函数的定义sub 子函数明{ #statement }, 子函数名如果重名,则后定义的覆盖前定义的,如果与系统函数名字则必须在子函数明前加&来显示的调用。子函数的调用一般在子函数名前加&调用,如果调用时,子函数已经在前面定义过则&可以省略。调用的时候函数参数没有限制。子函数的参数子函数通过数组@_来传递参数,参数也可以通过$_[0],$_[1]方式进行单个的引用原创 2013-09-17 13:47:18 · 618 阅读 · 0 评论 -
Usage of hash in Perl
基本用法#初始化%h为空数组 %h={};#用数组初始化%h为a=>1,b=>2 %h=('a',1,'b',2);#意义同上,只是另一种更形象化的写法。%h=('a'=>1,'b'=>2);#如果key是字符串,可以省略引号。下面这行和上面那行是一样的%h=(a=>1,b=>2);#用{}来访问print “$h{a}\n”;#打印 $h{b}='2b'; prin原创 2013-09-17 10:42:29 · 834 阅读 · 0 评论 -
Usage of Array in Perl
一、列表列表是包含在括号里的一序列的值,可以为任何数值,也可为空,如:(1, 5.3 , "hello" , 2),空列表:()。注:只含有一个数值的列表(如:(43.2) )与该数值本身(即:43.2 )是不同的,但它们可以互相转化或赋值。列表例:(17, $var, "a string")(17, 26 (17, $var1 + $var2)($value, "Th原创 2013-09-17 11:27:49 · 859 阅读 · 0 评论 -
perl 里的<>和<STDIN>
首先介绍一下@ARGV:当perl脚本运行时,从命令行上传递给它的参数存储在内建数组@ARGV中,@ARGV是PERL默认用来接收参数的数组,可以有多个参数,$ARGV[0]是表示接收到的第一个参数,$ARGV[1]表示第二个。如果表为空,则使用标准输入流;否则,使用其找到的相应文件。也就是,在启动程序后,使用@ARGV = qw# larry mor curly #; #强制转载 2013-09-18 13:58:05 · 3945 阅读 · 0 评论 -
scalar and list context
1. qw(): The 'quote word' function qw() is used to generate a list of words. qw is also used to be delimiter to tell the interpretor where is the begin and end of context follow qw. my $n原创 2013-09-17 16:44:37 · 904 阅读 · 0 评论 -
Perl 语言中的运算符
一、算术运算符 :+(加)、-(减)、*(乘)、/(除)、**(乘幂)、%(取余)、-(单目负) (1)乘幂的基数不能为负,如 (-5) ** 2.5 # error; (2)乘幂结果不能超出计算机表示的限制,如10 ** 999999 # error (3)取余的操作数如不是整数,四舍五入成整数后运算;运算符右侧不能为零 (4)单目负可用于变量: - $y ; # 等转载 2013-10-10 08:55:54 · 7497 阅读 · 1 评论 -
if中嵌入逻辑表达in Perl
if(($node_type eq $flag_backend) or ($node_type eq $flag_compact)){ exit 99;}原创 2013-11-21 13:46:22 · 966 阅读 · 0 评论 -
perl open函数的使用
本文和大家重点讨论一下如何读写Perl文件,主要包括打开、关闭Perl文件,读写Perl文件,Perl文件的状态,命令行参数和打开管道六部分内容,希望通过本文的学习你对读写Perl文件有深刻的认识。读写Perl文件一、打开、关闭Perl文件语法为open(filevar,filename),其中filevar为Perl文件句柄,或者说是程序中用来代表某Perl文件的代号,filenam转载 2017-10-13 09:33:55 · 10680 阅读 · 0 评论