Select Code to Download

Select or download this

elt 0 0 is &#1081;
elt 0 1 is  
elt 0 2 is  
...
elt 0 8 is  
Can't use string ("&#1086;") as an ARRAY ref while "strict refs" in us
+e at template_stuff/utils1.pm line 61.
$

Select or download this

sub print_aoa_utf8 {
  use warnings;
  use 5.011;
...
  }
  return $a;
}

Select or download this

  print "Make rus captions(y/n)?: ";
  my $prompt1 = <STDIN>;
  chomp $prompt1;
...
    }
    my $ref_cap = make_russian_captions($rvars);
  }

Select or download this

Make rus captions(y/n)?: y
success deleting was 1
success deleting was 1
...
rus_munge is /home/bob/2.scripts/pages/7.cw/template_stuff/translation
+s/trans.07-01-2019-16-15-08.txt
rus_path is /home/bob/2.scripts/pages/7.cw/template_stuff/ruscaptions/
+a.txt
rus_path is /home/bob/2.scripts/pages/7.cw/template_stuff/ruscaptions/
+b.txt

Select or download this

sub make_russian_crossword {
  use 5.011;
  use warnings;
...
  # ->append_utf8(@data);
  return "nothing nyet"
}

Select or download this

  ##Let mother know that you created a file, *verb* a reference:
  $vars{log_file}=$in_path;
  $rvars = \%vars;   #does this line do anything for me?