Yet Another CPAN Grep

KinoSearch1 ( C/CR/CREAMYG/KinoSearch1-1.01.tar.gz, CREAMYG, 2010; MetaCPAN )

KinoSearch1/src/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Video-FFmpeg ( R/RA/RANDOMMAN/Video-FFmpeg-0.47.tar.gz, RANDOMMAN, 2010; MetaCPAN )

Video-FFmpeg/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Lingua-Concordance ( E/EM/EMORGAN/Lingua-Concordance-0.04.tar.gz, EMORGAN, 2010; MetaCPAN )

Lingua-Concordance/bin/concordance.pl ( view source; MetaCPAN )

>\n";
	exit;
	
}

# slurp
open INPUT, "$file" or die "Can't open input: $!\n";
my $text = do { local $/; <INPUT> };
close INPUT;

# configure
my $concordance = Lingua::Concordance->new;
$concordance->

Digest-XSAdler32 ( A/AD/ADITYA/Digest-XSAdler32-0.01.tar.gz, ADITYA, 2010; MetaCPAN )

Digest-XSAdler32/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

AI-Pathfinding-AStar-Rectangle ( G/GR/GRIAN/AI-Pathfinding-AStar-Rectangle-0.23.tar.gz, GRIAN, 2010; MetaCPAN )

AI-Pathfinding-AStar-Rectangle/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

HTTP-Response-Parser ( M/MA/MALA/HTTP-Response-Parser-0.03.tar.gz, MALA, 2010; MetaCPAN )

HTTP-Response-Parser/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Parse-ExuberantCTags ( S/SM/SMUELLER/Parse-ExuberantCTags-1.02.tar.gz, SMUELLER, 2010; MetaCPAN )

Parse-ExuberantCTags/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Data-AMF-XS ( T/TY/TYPESTER/Data-AMF-XS-0.01_02.tar.gz, TYPESTER, 2010; MetaCPAN )

Data-AMF-XS/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Apache2-ScoreBoardFile ( O/OP/OPI/Apache2-ScoreBoardFile-0.01.tar.gz, OPI, 2010; MetaCPAN )

Apache2-ScoreBoardFile/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Digest-FNV ( J/JW/JWEBSTER/Digest-FNV-2.00.tar.gz, JWEBSTER, 2010; MetaCPAN )

Digest-FNV/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

PPI-XS-Tokenizer ( S/SE/SEMUELF/PPI-XS-Tokenizer-0.03.tar.gz, SEMUELF, 2010; MetaCPAN )

PPI-XS-Tokenizer/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Net-LDAPxs ( P/PA/PANYU/Net-LDAPxs-1.31.tar.gz, PANYU, 2010; MetaCPAN )

Net-LDAPxs/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Bit-Grep ( S/SA/SALVA/Bit-Grep-0.01.tar.gz, SALVA, 2010; MetaCPAN )

Bit-Grep/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Goto-Cached ( C/CH/CHOCOLATE/Goto-Cached-0.22.tar.gz, CHOCOLATE, 2010; MetaCPAN )

Goto-Cached/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

DBM-Deep-Blue ( P/PR/PRBRENAN/DBM-Deep-Blue-1.02.tar.gz, PRBRENAN, 2010; MetaCPAN )

DBM-Deep-Blue/ppport.h ( view source; MetaCPAN )

 from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS

Lingua-EN-Bigram ( E/EM/EMORGAN/Lingua-EN-Bigram-0.03.tar.gz, EMORGAN, 2010; MetaCPAN )

Lingua-EN-Bigram/bin/ngrams.pl ( view source; MetaCPAN )

 <file>\n";
	exit;
	
}

# slurp
open F, $file or die "Can't open input: $!\n";
my $text = do { local $/; <F> };
close F;

# build n-grams
my $ngrams = Lingua::EN::Bigram->new;
$ngrams->text( $text );

Image-JpegTran ( M/MO/MONS/Image-JpegTran-0.02.tar.gz, MONS, 2010; MetaCPAN )

Image-JpegTran/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

OpenOffice-UNO ( M/MB/MBARBON/OpenOffice-UNO-0.07.tar.gz, MBARBON, 2010; MetaCPAN )

OpenOffice-UNO/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # temporarily remove C comment

Data-UUID-LibUUID ( N/NU/NUFFIN/Data-UUID-LibUUID-0.05.tar.gz, NUFFIN, 2010; MetaCPAN )

Data-UUID-LibUUID/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Sys-Mlockall ( C/CR/CRAKRJACK/Sys-Mlockall-0.01.tar.gz, CRAKRJACK, 2010; MetaCPAN )

Sys-Mlockall/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm