User:Iriman/Convert Perso-Arabic digits to Western-Arabic

راهنمای استفاده (ویندوز)

1. Perl را نصب کنید.
2. فایل‌های GPX خود را در پوشه‌ای با نام input قرار دهید و فایل حاوی کد زیر را کنار پوشه قرار دهید (p2w.pl).
3. فایل را اجرا کنید.
4. فایل‌های GPX اصلاح‌شده در پوشه‌ای با نام output قرار می‌گیرند.

↓↓↓ p2w.pl ↓↓↓

#!/usr/bin/perl
# USAGE GUIDE: put your files in 'input' folder and run this script. Then check the output folder.
use warnings;
use strict;
use utf8;

my $dir1 = "input";
opendir(my $dh, $dir1) or die "$!";

my @files = glob "$dir1/*.gpx";
closedir $dh;

my $dir2 = "output";
unless(-e $dir2 or mkdir $dir2) {
        die "Unable to create $dir2 directory.";
    }
opendir(my $dh2, $dir2) or die "$!";

for my $file (@files) {
    my @newf_name = split('/',$file);
    open (my $fh, "<:encoding(UTF-8)", "$file") or die "$!";
    open (my $fh2, ">:encoding(UTF-8)", "$dir2/$newf_name[1]") or die "$!";
    while( <$fh> ) {
        $_ =~ tr/۰-۹/0-9/; # replace digits
        print $fh2 $_;
    }
    print "($file)\n";
}
print "\n\nPress Enter to exit...";
<>;