Memoize

BasicWerk   EC Support   Technique   Facebook  

20141128212809_Perl_URI_grep_regexp_common

Perl_URI_grep_regexp_common

 

 

 
#! /usr/bin/perl
use warnings;
use strict;
use Regexp::Common qw(URI);
 
# Warning:
#	入力ソースがデカいと強烈に遅い
while (<>) {
    # 入力中の URI を出力
    # 1行に複数の URI が含まれていることもあるので
    # while + g フラグの組み合わせで検索
    while (m/($RE{URI}{HTTP})/g) {
        print "$1\n";
    }
}
 

 


© Shin Nakamura/BasicWerk 2014