analysis script for upcoming presentation

[scpubgit/stemmatology.git] / script / join_readings.pl

diff --git a/script/join_readings.pl b/script/join_readings.pl
index 0b803a8..31f780a 100755 (executable)
--- a/script/join_readings.pl
+++ b/script/join_readings.pl
@@ -5,9 +5,7 @@ use feature 'say';
 use strict;
 use warnings;
 use Getopt::Long;
-use Lingua::Features::Structure;
 use Text::Tradition::Directory;
-use XML::Easy::Syntax qw/ $xml10_name_rx $xml10_namestartchar_rx /;
 use TryCatch;
 
 binmode STDOUT, ':utf8';
@@ -34,8 +32,10 @@ my $dir = Text::Tradition::Directory->new( $dbopts );
 my $scope = $dir->new_scope();
 my $lookfor = $ARGV[0] || '';
 foreach my $tinfo ( $dir->traditionlist() ) {
+       next if $tinfo->{'name'} eq 'xxxxx';
        next unless $tinfo->{'name'} =~ /$lookfor/ || $tinfo->{'id'} eq $lookfor;
        my $tradition = $dir->lookup( $tinfo->{'id'} );
+       say "Looking at tradition " . $tradition->name;
        my $c = $tradition->collation;
 
        # Anywhere in the graph that there is a reading that joins only to a single