perl 学习笔记(3)

741057228我QQ

　　其他函数和运算符
　　在本章中学习：(1)如何对标量进行简单的字符串搜索 (2)如何进行字符替换 (3)如何使用print函数 (4)如何将数组用作堆栈和队列
　　一、搜索标量
　　用index进行搜索
　　index string, substring
　　index("Pocket full of posies", "ket")            # return 3
　　$a="Ashes, ashes, we all fall down";
　　index($a,"she");                                          #return 1
　　index($a,"they")                                         #return -l    (not found)
　　可以给index函数规定一个字符串中开始进行搜索的起始位置，如下例子
　　$reindeer="dasher dancer prancer vixen";
　　index($reindeer, "da")                #return 0
　　index($reindeer,"da",1)                #return  7
　　===============================================
　　二、功能更强的print函数
　　printf  formatstring, list
　　print  filehandle  formatstring, list
　　printf函数的部分域说明：c  代表字符    s 代表字符串    d  代表十进制整数   f  代表浮点数
　　域说明符的格式是% -w.dx
　　w是域需要的总宽度  x表示输出的是数据类型。其中%和x是不可少的
　　d代表保留小数点的位数。
　　printf("%20s", "Jack")        #  print "                      Jack"
　　printf("%-20s", "Jill")         # print "Jill                         "
　　$amt=7.12;
　　printf("%6.2f", $amt)            #print "    7.12"
　　$amt=7.127;
　　printf("%6.2f", $amt)            #print "       7.13"
　　$amt=5.6;
　　printf("%6.2f", $amt)              #print "         5.60";
　　printf("%6d", $amt)               #print "       5"
　　#! /usr/bin/perl
　　use warnings;
　　use strict;
　　my @arr;
　　while() {
　　chomp;
　　@arr=split;
　　printf "%-50s%-20s\n",$arr[0],$arr[1];
　　print "===============================\n";
　　}
　　__DATA__
　　PRODUCT:NLSRTL VERSION:19.2.0.1
　　PRODUCT:PL/SQL VERSION:10.2.3.1
　　~