---------第十四章 字符串与排序------------------- index查找子字符串 my $stuff = "howdy world!"; my $where = index($stuff, "wor"); #6 #返回首个字符匹配的位置,字符串第一个位置为0,上例即wor匹配的w位置 #无法匹配返回-1 my $here = index($stuff,"w",2); #返回2(从2+1个字符开始) my $there = i
A. 手工安装 从CPAN下载了DBI模块1.13版的压缩文件DBI-1.13.tar.gz.假设放在/usr/local/src(一般需要编译安装的软件,都放在此目录下安装). # cd /usr/local/src # tar xvzf DBI-1.13.tar.gz (这时候会创建一个去掉tar.gz这部分的文件夹) # cd DBI-1.13 # perl Makefile.PL (生成makefile,无论什么包都是这个命令,什么包都会生成一个这个Makefile文件) #
37 print "\n----------------------------------_exercise_6_1--------------------------\n"; 38 my %bless_function = ( #hash may be a lexical variable 39 "constructors" => "default_values", 40 "error_ha
#! /usr/bin/perl use strict; use warnings; print "\n----------------------------------_substitutions_with_s///--------------------------\n";$_ = "He's out bowling with Barney tonight.";s/Barney/Fred/;print $_."\n";s/filehandl