[PerlWikiBot] SF.net SVN: perlwikibot:[81] trunk/no-interwiki/prepare_noiw_list.pl

[<am...@us...>]

Revision: 81
          http://perlwikibot.svn.sourceforge.net/perlwikibot/?rev=81&view=rev
Author:   amire80
Date:     2009-09-27 00:44:08 +0000 (Sun, 27 Sep 2009)

Log Message:
-----------
Multilinks cleanup.

Modified Paths:
--------------
    trunk/no-interwiki/prepare_noiw_list.pl

Modified: trunk/no-interwiki/prepare_noiw_list.pl
===================================================================
--- trunk/no-interwiki/prepare_noiw_list.pl	2009-09-26 23:43:11 UTC (rev 80)
+++ trunk/no-interwiki/prepare_noiw_list.pl	2009-09-27 00:44:08 UTC (rev 81)
@@ -409,10 +409,10 @@
 
 my $begin_multi_links_time = time;
 
-say 'listing multi links by language';
+say "\nlisting multi links by language";
 print_multi_links_by_foreign();
 
-say 'listing multi links by local articles';
+say "\nlisting multi links by local articles";
 print_multi_links_by_local();
 
 my $total_multi_links_time = time - $begin_multi_links_time;
@@ -1252,12 +1252,16 @@
     return $string;
 }
 
+sub format_link_table {    ## no critic (RequireArgUnpacking)
+    return sprintf '%-15s %8d', @_;
+}
+
 sub print_multi_links_by_foreign {
     LANG_CODE:
     foreach my $lang_code (sort keys %found_links) {
         my $filename         = "$MULTI_DIR/$lang_code.$WIKITEXT_EXT";
         my @foreign_articles = sort keys %{ $found_links{$lang_code} };
-        say "$lang_code ", scalar @foreign_articles;
+        say format_link_table($lang_code, scalar @foreign_articles);
 
         FOREIGN_ARTICLE:
         foreach my $foreign_article (@foreign_articles) {
@@ -1284,7 +1288,7 @@
     LANG_CODE:
     foreach my $lang_code (sort keys %found_links) {
         my @foreign_articles = sort keys %{ $found_links{$lang_code} };
-        say "$lang_code ", scalar @foreign_articles;
+        say format_link_table($lang_code, scalar @foreign_articles);
 
         FOREIGN_ARTICLE:
         foreach my $foreign_article (@foreign_articles) {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.