view release on metacpan or  search on metacpan

scripts/read.tiddlers.pl  view on Meta::CPAN

#!/usr/bin/env perl

use 5.36.0;

use Data::Dumper::Concise; # For Dumper().

use CPAN::MetaCurator::Import;

# ---------------------------------

say "read.tiddlers.pl - Read tiddlers file and report some statistics\n";

binmode STDOUT, ':encoding(UTF-8)';

my($log_level)	= 'debug';
my($importer)	= CPAN::MetaCurator::Import -> new(home_path => '.', log_level => $log_level);
my($data)		= $importer -> read_tiddlers_file;
my($count)		= 0;

my($text, $title);

for my $index (0 .. $#$data)
{
	# Node keys: created modified text title.
	# Node keys: created modified text title.

	$text	= $$data[$index]{text};
	$title	= $$data[$index]{title};

	next if ($title =~ /ChangeLog|MainMenu/); # Special case para names.

	$count++;

	say "Record: $count. Missing prefix", next if ($text !~ m/^\"\"\"\no (.+)$/s);
#	say "$$data[$index]{title}: $$data[$index]{text}";
	say $$data[$index]{title};
}