CPAN-MetaCurator

 view release on metacpan or  search on metacpan

data/cpan.metacurator.tiddlers.json  view on Meta::CPAN

    },
    {
        "text": "\"\"\"\no See also:\n- EmailStuff\n- MailingLists\n- PacketCapture\n\no https://www.nntp.perl.org/group/perl.perl5.porters/\n",
        "title": "MailingLists",
        "modified": "20250528015509656",
        "created": "20210819045944904"
    },
    {
        "created": "20190630232743522",
        "text": "\"\"\"\n[[Acronyms]]\nAdventPlanet\nAiEngines\nAlgorithmicStuff\nAnimationStuff\nAntiVirusStuff\nApacheStuff\nAppleMac\nArchiveFiles\nArrayHandling\nAsciiCodes\n[[ASN]]\nAssemblerX86\nAudioVisual\n[[Authentication]]\nAutomatedBackups...
        "title": "MainMenu",
        "tags": "",
        "modified": "20250724003447254"
    },
    {
        "text": "\"\"\"\no https://blogs.perl.org/users/usna78/2024/05/mariadb-10-and-sqltranslatorproducer.html\n",
        "title": "MariaDB",
        "modified": "20240603065835223",
        "created": "20240603065827811"
    },
    {

data/cpan.metacurator.tiddlers.json  view on Meta::CPAN

        "title": "TestingHelp",
        "modified": "20250724003343836"
    },
    {
        "text": "\"\"\"\no Algorithm::Diff:\n- Compute differences between two files / lists\n- https://metacpan.org/pod/Algorithm::Diff\n\no App::PPI::Dumper:\n- Use the PPI to dump the structure of a Perl file\n- https://metacpan.org/dist/App-PPI-D...
        "title": "TextAnalysisAndFormatting",
        "modified": "20250520010036990",
        "created": "20230712061013469"
    },
    {
        "text": "\"\"\"\no See also:\n- https://daringfireball.net/projects/markdown/syntax - Syntax reference<pre>\n\no Escape character for '/' is '#&47;'. See also /''''/ and '////'. Click edit (pencil) to examine\n\no Care! TiddlyWikis contains e...
        "title": "TiddlyWikis",
        "modified": "20250717072158740",
        "created": "20231128215756635"
    },
    {
        "text": "\"\"\"\no POSIX::RT::Signal:\n- POSIX Real-time signal handling functions\n- https://metacpan.org/dist/POSIX-RT-Signal\n\no POSIX::RT::Timer:\n- POSIX real-time timers\n- https://metacpan.org/dist/POSIX-RT-Timer\n- Contains POSIX::RT...
        "title": "TimerWare",
        "modified": "20250513211326478",
        "created": "20250305002414317"
    },

data/cpan.metacurator.tiddlers.json  view on Meta::CPAN

        "created": "20190806211249203"
    },
    {
        "text": "\"\"\"\no See also:\n- CryptoStuff - UUID uses ChaCha20 which is in CryptX\n\no Data::GUID:\n- Globally unique identifiers\n- https://metacpan.org/pod/Data::GUID\n\no Data::ULID:\n- Universally Unique Lexicographically Sortable Ident...
        "title": "UUID",
        "modified": "20250717074204779",
        "created": "20231101070631052"
    },
    {
        "created": "20240717002307158",
        "text": "\"\"\"\no Author:\n- Ron Savage\n- Melbourne, Victoria, Australia\n- http://savage.net.au. Has links to various wikis\n- https://symboliciq.au\n- https://quantumiq.au\n- https://metacpan.org/author/RSAVAGE\n\no version:\n- Perl exten...
        "title": "VersionInfo",
        "modified": "20250724061120618"
    },
    {
        "text": "\"\"\"\no Net::Proxmox::VE:\n- Pure Perl API for Proxmox Virtual Environment\n- https://metacpan.org/pod/Net::Proxmox::VE\n",
        "title": "VirtualEnvironment",
        "modified": "20250502011449614",
        "created": "20250502011344592"
    },
    {

lib/CPAN/MetaCurator/Util/Import.pm  view on Meta::CPAN

	my($id);
	my($text, $title);

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

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

		next if ($title =~ /GettingStarted|MainMenu/); # TiddlyWiki special cases.

		$count++;

		$self -> logger -> info("Missing text @ line: $index. title: $title"), next if (! defined $text);
		$self -> logger -> info("Missing prefix @ line: $index. title: $title"), next if ($text !~ m/^\"\"\"\no (.+)$/s);

		$$record{parent_id}	= $root_id;
		$$record{title}		= $title;
		$text				= $1 if ($text =~ m/^\"\"\"\n(.+)$/s);
		$$record{text}		= $text;

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

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 =~ 'MainMenu'); # TiddlyWiki special case.

	$count++;

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

scripts/tiddly2text.pl  view on Meta::CPAN

		next if ( (! defined $title) || ($title =~ /(?:DefaultTiddlers|SiteTitle|SiteSubtitle)/) );

		$title{$title} = 1;

		for my $child ($div -> content_list)
		{
			@line = map{s/[\s]+/ /gs; s/ [oO] /\no /g; s/ - /\n\t-/g; $_} $child -> as_text;
		}

		if ($title eq 'MainMenu')
		{
			$count++;

			$main_menu = [grep{! /GettingStarted/} map{s/^\[\[//; s/]]$//; $_} split(/ /, $line[0])];
		}
		else
		{
			say OUT $title;
			say OUT @line;
			say OUT '';
		}
	}

	close OUT;

	@$main_menu = sort ('uaAD', @$main_menu);

	#say 'Main Menu:';
	#say map{"<$_>\n"} @$main_menu;
	#say '';

	for $title (@$main_menu)
	{
		if (! $title{$title})
		{
			say "In main menu, but no title: $title";
		}
	}