- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
#!/usr/bin/perl5.18
$file = $ARGV[0];
if (!$file) {
print "Введите имя файла: ";
$file = <STDIN>;
chomp $file;
}
$direction = $ARGV[1];
if (!$direction) {
print "Введите направление: ";
$direction = <STDIN>;
chomp $direction;
}
if ($direction ne '866toKOI8' && $direction ne 'KOI8to866') {
die "Invalid param";
}
open (IN_FILE, "<$file") or die "Cannot open file";
open (OUT_FILE, ">out$file") or die "Cannot open file";
$text = '';
while (my $row = <IN_FILE>) {
if ($direction eq '866toKOI8') {
$row =~ tr/\x80\x81\x82\x83\x84\x85\xF0\x86\x87\x88\x89\x8A\x8B\x8C\x8D\x8E\x8F\x90\x91\x92\x93\x94\x95\x96\x97\x98\x99\x9A\x9B\x9C\x9D\x9E\x9F\xA0\xA1\xA2\xA3\xA4\xA5\xF1\xA6\xA7\xA8\xA9\xAA\xAB\xAC\xAD\xAE\xAF\xE0\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF/\xE1\xE2\xF7\xE7\xE4\xE5\xB3\xF6\xFA\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF2\xF3\xF4\xF5\xE6\xE8\xE3\xFE\xFB\xFD\xFF\xF9\xF8\xFC\xE0\xF1\xC1\xC2\xD7\xC7\xC4\xC5\xA3\xD6\xDA\xC9\xCA\xCB\xCC\xCD\xCE\xCF\xD0\xD2\xD3\xD4\xD5\xC6\xC8\xC3\xDE\xDB\xDD\xDF\xD9\xD8\xDC\xC0\xD1/;
} else {
$row =~ tr/\xE1\xE2\xF7\xE7\xE4\xE5\xB3\xF6\xFA\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF2\xF3\xF4\xF5\xE6\xE8\xE3\xFE\xFB\xFD\xFF\xF9\xF8\xFC\xE0\xF1\xC1\xC2\xD7\xC7\xC4\xC5\xA3\xD6\xDA\xC9\xCA\xCB\xCC\xCD\xCE\xCF\xD0\xD2\xD3\xD4\xD5\xC6\xC8\xC3\xDE\xDB\xDD\xDF\xD9\xD8\xDC\xC0\xD1/\x80\x81\x82\x83\x84\x85\xF0\x86\x87\x88\x89\x8A\x8B\x8C\x8D\x8E\x8F\x90\x91\x92\x93\x94\x95\x96\x97\x98\x99\x9A\x9B\x9C\x9D\x9E\x9F\xA0\xA1\xA2\xA3\xA4\xA5\xF1\xA6\xA7\xA8\xA9\xAA\xAB\xAC\xAD\xAE\xAF\xE0\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF/;
}
print OUT_FILE $row;
}
close (IN_FILE);
close (OUT_FILE);
Смена кодировки из cp866 в KOI8 и обратно. Шел 2016й год.....................
gost 04.04.2016 17:23 # +14
PS, ждём подобное для UTF-8 - UCS-2.
Elvenfighter 04.04.2016 17:47 # +16
ufufney 04.04.2016 21:59 # +16
guest 05.04.2016 00:35 # +16
и откуда 866 на линуксе, когда там везде уже UTF-8? Или это винда? тогда откуда там koi?
и где мой " use Text::Iconv;"? и почему вообще это всё не в utf-8 в 2016м году?
блядь
запахло рашен апаче и вебразработкой образца 1999го года
tucvbif 05.04.2016 01:34 # +15
LispGovno 05.04.2016 09:28 # +14
3_14dar 06.04.2016 09:35 # +11
nihau 05.04.2016 09:31 # +15
Vasiliy 05.04.2016 14:07 # +17
guest 05.04.2016 17:14 # +15
лол, мои сайты такие люди даже не откроют
потому что у меня шифры TLSовские такие, что они их не поймут
gost 06.04.2016 08:05 # +14
gh0stwizard 13.04.2016 21:38 # +13