Cygal.net.pl

Systemy, Sieci i takie tam :)

PERL – Zamiana Polskich znaków diakrytycznych na ich odpowiedniki




Poniżej został przedstawiony prosty skrypt napisany w perlu, który zamienia wszystkie Polskie znaki diakrytyczne (ąćęłńóśźżĄĆĘŁŃÓŚŹŻ) występujące w pliku na ich odpowiedniki takie jak (acelnoszzACELNOSZZ). Skrypt ten może się przydać w wielu przypadkach. Jak wiadomo często zdarza się że komputery nie przepadają za krzaczkami 🙂
Skrypt składa się z kilku linijek więc nie umieszczałem w nim komentarzy.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#!/usr/bin/perl

$nr_arg =$#ARGV +1 ;

if ($nr_arg != 1) {
print „Skrypt zamienia wszystkie Polskie znaki diakrytycznen”;
print „———————————————————————– n”;
print „USAGE: ./zamianaPL.pl nazwa_pliku n”;
print „n”;
exit ;
}

$plik=$ARGV[0];

open (FILE,<",$plik ) or die
"
Plik $plik nie istnieje lub nie mozna go otworzyc" ;

@lines=<FILE>;

foreach $linia (@lines) {
$linia =~ tr/261353346352263361363266277274/aacelnoszz/;
$linia =~ tr/241317306312243321323246257254/AACELNOSZZ/;
$linia =~ tr/Âą/a/;
$linia =~ tr/ÂĄ/A/;
print $linia ;
}

close (FILE);

Dodaj komentarz

Twój adres email nie zostanie opublikowany. Pola, których wypełnienie jest wymagane, są oznaczone symbolem *


Time limit is exhausted. Please reload CAPTCHA.