#! /usr/bin/perl -w use strict; use FileHandle; my %langcode = ( 'English' => 'en', 'Japanese' => 'ja', ); die if @ARGV != 3; my $lang = $ARGV[0]; my $src = $ARGV[1]; my $dest = "$ARGV[2]"; my $langnav = `cat lang-navigator.$lang`; my $content = `cat $src`; $langnav =~ s/"\@FILENAME\@">(.+)"${dest}.$langcode{$1}">$1; $content =~ s/^(