Re: Скрипт не сложный

Spearance 30.10.2003 07:25

Он просто тупо заменяет символы русского языка на соответствующие в другой кодировке. Если поискать, его легко можно найти на любом сайте примеров Perl.
Запустить его не сложно:
http://www.parser.ru/docs/lang/filecgiexec.htm

Вот примерный код Perl скрипта, только этот заменяет из win в koi.
Досового примера под рукой к сожалению нет:

#!/usr/local/bin/perl
my $filename= $ENV{'CGI_PRICE_NAME'};
print "$filename\n";
if (!-f $filename){
    die "Usage: decode.pl <filename>";
}
sub wintokoi {
    my $pvdcoderwin=shift;
    $pvdcoderwin=~ tr/\xB8\xC0\xC1\xC2\xC3\xC4\xC5\xC6\xC7\xC8\xC9\xCA\xCB\xCC\xCD\xCE\xCF\xD0\xD1\xD2\xD3\xD4\xD5\xD6\xD7\xD8\xD9\xDA\xDB\xDC\xDD\xDE\xDF\xE0\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF1\xF2\xF3\xF4\xF5\xF6\xF7\xF8\xF9\xFA\xFB\xFC\xFD\xFE\xFF\x91\x92\x93\x94\x96\x97\x9B\x8B\xBB\xAB\xB9\xAD\xA7\xA0\x82\x84\x85/\ё\xE1\xE2\xF7\xE7\xE4\xE5\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\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\'\'\"\"\-\-\>\<\"\"N\-\ \ \,\,\./;
return $pvdcoderwin;
}
open(INF,"<$filename") || die "Can't open file $filename";
open(OUTF,">$filename.new") || die "Can't create file $filename";
flock(OUTF,2);
while (<INF>){
    print OUTF wintokoi($_);
}
close(INF);
close(OUTF);
rename("$filename.new", $filename);

---