#!/usr/bin/perl
#perl-grep2.pl
my $pattern = shift @ARGV;
my $regex = eval { qr/$pattern/ };
die "Check your pattern! $@" if $@;
while (<>)
{
print if m/$regex/;
}
let's find the repeated pattern from PERLDOC.
[root@blackhole:/tmp]$ perldoc -t perl | perl-grep2.pl "\b(\S)\S\1\b"
support online at <http://www.perl.org/>.
perluniprops Index of Unicode Version 5.2.0 properties in Perl
perl595delta Perl changes in version 5.9.5
perl594delta Perl changes in version 5.9.4
perl593delta Perl changes in version 5.9.3
perl592delta Perl changes in version 5.9.2
perl591delta Perl changes in version 5.9.1
perl590delta Perl changes in version 5.9.0
perl589delta Perl changes in version 5.8.9
perl588delta Perl changes in version 5.8.8
perl587delta Perl changes in version 5.8.7
perl586delta Perl changes in version 5.8.6
perl585delta Perl changes in version 5.8.5
perl584delta Perl changes in version 5.8.4
perl583delta Perl changes in version 5.8.3
perl582delta Perl changes in version 5.8.2
perl581delta Perl changes in version 5.8.1
perl58delta Perl changes in version 5.8.0
perl573delta Perl changes in version 5.7.3
perl572delta Perl changes in version 5.7.2
perl571delta Perl changes in version 5.7.1
perl570delta Perl changes in version 5.7.0
perl561delta Perl changes in version 5.6.1
http://www.perl.org/ the Perl homepage
http://www.perl.com/ Perl articles (O'Reilly)
http://www.cpan.org/ the Comprehensive Perl Archive
http://www.pm.org/ the Perl Mongers
'Perl' 카테고리의 다른 글
Search the repeated pattern and Show what were matched. (0) | 2011.04.20 |
---|---|
Simple Perl Code (Input REGEX, Search through files by that REGEX) (0) | 2011.04.20 |