zoukankan      html  css  js  c++  java
  • perl 入门介绍(2)

    前面一节介绍了Perl中的基本数据类型及其使用方式,本节介绍一下分支循环控制及IO。

    Perl中的分支循环在语法上和C家庭语言的语法很相似,关键字包括: If / else, for ,while 。前面已经讲过,Perl中代码块用大括号{}围起来,表达式以分号结尾,这些都和C相似,但在Perl中,使用if for while时,大括号是强制要求的,这点与c不一样。细心的人可能会发现前一节讲数据类型的时候,并没有涉及到整形,浮点,bool什么的,只说到了一个标量,事实上在Perl里,这些基本数据类型并不严格区分,都可以归到Scalar里头去,这也大概算是脚本语言的一个通用做法, 弱化了基本类型。

    其它先不提,分支循环在很多语言里有一个很关键数据:bool。控制分支走向需要一个判断点,真要怎样做,假要怎样做,但在Perl里,没有一个具体的true,false类型,所以在做真假判断时,遵循以下原则:

    •      如果是数据类型,0则为假,
    •      如果是字符串,空字符串为假。
    •      如果是集合,空集合为假。

    这些都比较好理解。

    (一) if / else

         Perl中的if/else语法上和c语言一致,除了要求一定要有大括号。

         逻辑判断操作: 与(&&), 或(||),非(!) 语法上也很和C是一致的。

         $str = "abc";

         @arr = (2,3,4);

         if( $str && @arr == 3)

            {

            }

          else

            {

             }

          上面的例子是一种比较传统老式的写法,前面我说if / else 和C中的语法一致,其实也不大准确。

          Perl自己还提供了一套与C不大一样的写法,风格上更像是自然语言一样。

           

          $var = 2;

          Print " hello world" if ($var > 0); #注意这行,等价于:   if ($var > 0) { print "hello world";}

          这种写法就像是自然语言里的倒序了。

          像上面这种写法,还有另外一个关键字也是同样适用的: unless

          Print " hello world" unless ($var > 0);

    (二) 循环: for / while / foreach    

               for ($i=0; $i<100; $i++)

           { 
              print "hello $i \n";
           }

             

                while( $i < 100 )

                 {

                       print "hello $i \n";

                        $i++;

                  }

                上面两字例子演示了 for / while的写法,可见是和C 在语法上是一样的。

                除了for / while ,Perl还提供了一个 foreach 专门用来处理数组。

                @arr = (1,2,3,4,5);

                foreach $item (@arr)

                {

                    print "item: $item\n";

               }

               注意foreach 那一行中的小括号是不能省的。

    (三) I/O

             Perl中进行I/O操作延用了unix中的IO概念,一切都抽象成文件。

             所以,I/O操作都是对一个文件句柄(file handle)进行操作,包括标准输入标准输出。

             

             (1) 标准输入,标准输出。

                前面示例代码中多次用到了print,在之前的写法这是标准输出,但它的功能却不仅限于标准输出,事实上它的准确原型是:

                print <file handle> "hello world\n";

                如果省略了 file handle,默认情况下就是标准输出,标准输出的句柄 <STDOUT>

                所以前面的print语句,事实上等价于:

                print STDOUT "hello world\n";

                对应的标准输入是STDIN, 这个两个变量是Perl预定义的。

                可以看成是一个关键字一样,也不需要在这些变量前面加$,@这类的符号 。

                前面一直只示例了标准输出,没有提过标准输入。

                标准输入语法上,也很简洁:

                $line = <STDIN>; #read 

                用尖括号把文件句柄括起来,就相当于从里面读数据。

             (2) 文件I/O

                 获取及关闭文件要用Open()/Close()函数。

                 $succ=  open(fh,“~/myfile.log”);

                  if($succ)

                    {

                        $line = <fh>;#read one line.

                        @all = <fh>;  #read the whole file.

                        print "@line \n";

                        close(fh);

                     }

             值得注意的是,文件句柄的声明是可以不用加$这种符号,直接写一个名字就够了,当然,你如果喜欢加上$,也是没问题的。

             前面的示例演示了读入时的最基本的做法,Perl还提供了和C语言里类似的文件操作函数:seek, tell,

             用来定位到文件的相应位置进行读写。

             它们的用法和c语言很相似,具体使用方式,有兴趣的读者可以自己去查阅一下官方文档

             前面的open()函数示例了文件打开的最基本形式,事实上,这个函数l还支持设置访问模式。

             文件访问模式:

             访问模式                         例子                                                  说明

             读(Read)                        open(FH,"< FileName");                从文件中读取

             写(Write)                        open(FH,"> FileName");                向文件中写入,覆盖旧文件中的内容

             追加(Append)                 open(FH,">> FileName");              向现有文件的尾部追加数据

             读写(Read and Write)     open(FH,"+< FileName");               读取和写入现有文件

             写入程序                        open(PIPEOUT,"| pipeout");            打开程序管道

             读取程序                        open(PIPEIN,"pipein |");                  从程序或命令的输出中取得数据

            

            如果打开的文件支持写操作,我们就可以用Print 函数往文件里写东西:

            if(open(fh,">~/file.log"))

             {

                    print fh "hello file\n";

                    close(fh);

             }   

              

  • 相关阅读:
    图数据库的选择与对比(Neo4j)
    pip install ahocorasick报错以及Requirement already satisfied问题
    从知识图谱到认知图谱: 历史、发展与展望
    kafka(一)—— kafka安装简单使用
    python管理docker
    Javaweb前后端分离项目docker部署
    django + uwsgi + nginx部署(前后端不分离)
    坑(八)—— LayUI框架中append新的元素的问题
    docker(三)—— 避免一直输入sudo
    坑(七)—— 表单提交方式
  • 原文地址:https://www.cnblogs.com/catch/p/3099448.html
Copyright © 2011-2022 走看看