perl学习笔记

一.正则表达式

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

#!/usr/bin/perl

use strict;
use warnings;
use v5.14;

open(FILE, "< temp.pl");
while(<FILE>){
    #print if /\bdata\b/;
    #next  if ~ /^#/;
    print if (/\bis\b/ && /\bSINK\b/) ;
}

close(FILE);