Information Security & US & Life & Love & Fashion & Hacking & Passion

#!/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<<<

#!/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

#!/usr/bin/perl
#perl-grep.pl

my $regex = shift @ARGV;

print "Regex is [$regex]\n";

while ( <> )
        {
        print if m/$regex/;
        }

[root@"+":/tmp]$ perl perl-grep.pl new *.pl
Regex is [new]
my $new_name = "$dirname/$basename";
rename ($old_name, $new_name)
 or warn "Can't rename '$old_name' to '$new_name': $!";
[root@"+":/tmp]$