Perl语言入门(第五版) 读书笔记（五）---其他控制结构、Perl模块

第十章   其他控制结构
1. unless类似if，但是在条件为假时执行
 unless( $fred =~ /^[A-Z_]/im) { print "ok \n;"} else {}
2. until类似while，但只要在条件为假时循环
 until($j > 200 ) { $j *= 2;}
3. 条件修饰符
 print "$n is a negative number.\n" if $n < 0;
 $i *= 2 until $i > $j;
 print " ",($n += 2) while $n < 10;
 &greet($_) foreach @person ;
4. if () {} elsif() {} else {}
5. for ( ; ; ) {}
   for (1..20) {print "$_\n";} #和foreach一样
6. 循环控制
 last 和C语言break一样;
 next 和C语言的continue一样；
 redo 无条件跳到本次循环开始处，重新执行本次循环;
 while(<STDIN>){
  # redo会跳到这里
  if (/__END__/) {
   last;
  }elsif(/^$/) {
   $n++;
   next;
  }else {
   redo;
  }
 }
7. 三目运算符 ?:
8. 逻辑运算符(&& 、||)与短路操作符
 $last_name = $last_name{$someone} || '(No last name)';
 ($m > 10) || print "why is it not greater?\n";

第十一章  Perl模块
1. 查看帮助文档
 perldoc DBI
2. 在线安装模块
 cpan Text::CSV
3. 引入模块
 use DBI;
 use File::Basename;
 $name = "/usr/local/bin/perl"; 
 $basename = basename $name;
4. 引入模块中的部分函数
 use File::Basename qw/ basename /;
5. 完全不引入函数,就可以使用自己的同名函数
 use File::Basename qw//;
 use File::Basename qw();