侯波林的blog » perl

perl 之reverse-sort

admin — Wed, 30 Dec 2009 07:26:49 +0000

今天碰到了两个perl的排序函数 ,reverse & sort

例如:

@array = 1..10; #@array=1,2,3,4,5,6,7,8,9,10
print @array;      # print out  1,2,3,4,5,6,7,8,9,10
@b = reverse(@array);
print @b; #print out 10,9,8.......1

@c = sort(@b);
print @c; # print out 1,10,2,3,4,5.....9 此排序顺序主要依照第一个字符,如1在2前面,1在10前面

perl 之子函数

admin — Mon, 07 Dec 2009 14:26:58 +0000

一、定义
子程序即执行一个特殊任务的一段分离的代码，它可以使减少重复代码且使程序易读。PERL中，子程序可以出现在程序的任何地方。定义方法为：
sub subroutine{
statements;
}
二调用
调用方法如下：
1、用&调用
&subname;
…
sub subname{
…
}
2、先定义后调用，可以省略&符号
sub subname{
…
}
…
subname;
3、前向引用，先定义子程序名，后面再定义子程序体
sub subname;
…
subname;
…
sub subname{
…
}
4、用do调用
do my_sub(1, 2, 3);等价于&my_sub(1, 2, 3);

例如,
1 先定义后调用


 
sub test
{
    print "hello perl\n";                                                       
}
test();

2 利用&调用 (后定义)


&test();
sub test
{
    print "hello perl\n";                                                       
}

3 do方法调用


do test();
sub test
{
    print "hello perl\n";                                                       
}

4 c语言声明


sub test;
test();
sub test
{
    print "hello perl\n";                                                       
}

perl之数组

admin — Sun, 06 Dec 2009 13:02:34 +0000

数组是perl里面一种非常有用的东西 ,比如我们可以采用以下的方式为 perl数组赋值.

@arr = ('hello','world','welcome come to perl word!');

也可以使用一下的方式为数组赋值:

@b=(1..10); # @b 元素为 1到20。

　　对于字母也一样哦 ,

@b=("a".."z");

@empty=();

　　恩,是不是觉得这样很爽呢？更爽的还在后面呢,perl当然也支持对特定元素的赋值喽～～～,像这rl样

$b[0]=100

恩，你一定注意到了 @ 变成了 $ ! ,哈哈, 这是因为在Perl中 $ 表示对特定元素的操作,而@则是对一组数据的操作
至于数组间的赋值嘛,这样搞就可以喽

@a=@b

追加元素？别着急, follow me


@c = ("Hello");
@c = (@c , "world\n");

同理于数组元素追加操作


@c = ("Hello");
@d = (" hi, " , " 我是 柏林 " ) ; 
@c = (@c , @d );
print @c; //THis will print Hello hi, 我是 柏林

另外与此操作相似的有个 push函数~ 比如,


push(@c,"hello"); 
push(@c,("hello","我是柏林"));
push(@c,@a);

有尾自然有头喽, unshift函数就是负责从数组开头开头加入元素,


unshift(@c,"hello"); 
unshift(@c,("hello","我是柏林"));
print @c;

好了 , 有了操作数组两端的函数那么一定也会有操作数组中间部分的函数，这个函数就是splice
splice 有三个功能
一: 向数组中间的一部分插入内容


@d=(1..9);                                                                      
my @e=("a".."d");
splice(@d,3,0,@e); 
print @d; //This will Print 123abcd456789

二删除指定元素


@d=(1..9);                                                                      
my @e=("a".."d");
splice(@d,3,6); 
print @d; // Print 1236789 , 从第3＋1个元素起,删除6个元素.

如果第三个元素不指定,默认将删除第二个参数之后的所有元素.
其他几个不常用的函数,
undef(); 的作用是把数组的内容清空。
chop(); 的作用是把数组内每个元素的末尾去一个字符。
chomp(); 的作用则是把数组内的每一个元素的末尾的换行符去掉。

我们还应该介绍一个函数就是scalar，这个函数取得数组的长度，不过在perl中,经常使用


my @a= (1,2,3,4);
print @a."\n"; //4