perl学习笔记

一.正则表达式

匹配一个文件中的某个单词，并打印出来

#!/usr/bin/perl

use strict;
use warnings;
use v5.14;

open(FILE, "< temp.pl");
while(<FILE>){
    #print if /data/;
    #next  if ~ /^#/;
    print if (/is/ && /SINK/) ;
}

close(FILE);