perl学习笔记

一.正则表达式

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

 #!/usr/bin/perl

 use strict;
 use warnings;
 use v5.;

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

 close(FILE);