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