Mike Rhodes mikerhodes

## gist:8436475
#!/usr/bin/env perl -w

my $file = $ARGV[0];
my $bad = 0;

open(my $FH, "<", $file);

while(<$FH>) {
    if ((length) > 50) {
        print("line $. too long\n");

## gist:5628378

      
        
          
            
              
              1 file
            
          
          
            
              
              0 forks
            
          
          
            
              
              0 comments
            
          
          
            
              
              0 stars
            
          
        
        
          
              
          
          
            
                mikerhodes
                / gist:5628378
            
            
              Created
              May 22, 2013 15:14
                — forked from fdmanana/gist:832610
            
          
        
      
        
  
      
    1. Introduction to the replicator database

A database where you PUT/POST documents to trigger replications and you DELETE to cancel ongoing replications. These documents have exactly the same content as the JSON objects we used to POST to /_replicate/  (fields "source", "target", "create_target", "continuous", "doc_ids", "filter", "query_params".
Replication documents can have a user defined "_id". Design documents (and _local documents) added to the replicator database are ignored.
The default name of this database is _replicator. The name can be changed in the .ini configuration, section [replicator], parameter db.
2. Basics
	#!/usr/bin/env perl -w

	my $file = $ARGV[0];
	my $bad = 0;

	open(my $FH, "<", $file);

	while(<$FH>) {
	if ((length) > 50) {
	print("line $. too long\n");