Бюро технических переводов. Консультация.

Извините, Языковая школа закрыта, теперь мы занимаемся переводами технической документации.
Если Вам нужен частный преподаватель английского языка, можем порекомендовать
Ольгу Витальевну (кандидат филологических наук),
телефон в Москве 8(916)4093079

Задать вопрос

Ваши вопросы появятся здесь после ответа на них


#!/usr/bin/perl -w $| = 1; $script_name = "viewer.pl"; require "../scripts.setup"; $forma_p = "index.html"; $forma_p_rech = "blank.html"; $forma_pp = "quest.html"; # This is the script name, as you have it on your server. $back="Вернуться в оглавление фотогалереи"; ##################################### $REQUIRE_DIR = ''; ############################################################################ # Get required subroutines which need to be included. # ############################################################################ # Push $REQUIRE_DIR onto the @INC array for include file directories # and list required files. push(@INC, $REQUIRE_DIR) if $REQUIRE_DIR; require 'var.pl'; &var; &color; $cgi = "$cgiurl/viewer.pl"; &read_d; @vars = split(/&/, $ENV{QUERY_STRING}); foreach $var (@vars) { ($v,$i) = split(/=/, $var); $v =~ tr/+/ /; $v =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $i =~ tr/+/ /; $i =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $i =~ s///g; ##if (length $i > 1000) { ## &post_error("Размер вопроса слишком велик."); ##} ##if (length $v > 1) { ## &post_error("Вы пытаетесь вызвать сбой программы."); ##} $INFO{$v} = $i; } $action = $INFO{'action'}; $basa = $INFO{'basa'}; $number = $INFO{'number'}; $num = $INFO{'num'}; if ($INFO{'pass'}) {$pass = $INFO{'pass'}} $pass =~ s/\W.*//; $pass =~ s/ //; $action =~ s/\W.*//; $act =~ s/\W.*//; $basa =~ s/\W.*//; $num =~ s/\W.*//; if ($basa eq "3") { $forma_p = $forma_p_rech; } ###&get_date; print "Content-type: text/html\n\n"; if (!$basa) {$basa = 0} $basa_name = $basa[$basa]; $basa_ogl = $basa_ogl[$basa]; &checkpass if ($action eq "admin"); if ($number eq "") {$number = 0} if ($num eq "") { &all; } else { #&checkpass if ($action=admin); &resp; } exit; ################################################################# sub resp{ open (FILE, "$forma_pp") || &fatal_error("Unable to open $forma_pp"); &lock(FILE); @temp_p = ; &unlock(FILE); close(FILE); dbmopen (%basa,"$datadir/$basa_name",undef) || &fatal_error("не открывается файл $datadir/$basa_name"); ($datee_p,$name_p,$email_p,$ip_p,$about_p) = split(/``/,$basa{$num}); $basa_number = $basa{"number"}; $resp = $basa{$num."_1"}; for ($n_n = 2; $basa{$num."_".$n_n} ne ""; $n_n++) { # $resp_p = $basa{$num."_".$n_n}.$resp_p; } dbmclose (%basa) ||&fatal_error("Не могу закрыть файл: $!"); $resp = $resp.$resp_p; ($data_resp,$name_resp,$datee_resp,$link_p) = split(/``/,$resp); ($y_,$mon_,$day_,$hu_,$min_) = split(/\./,$datee_p); $y_ = $y_+1900; for ($a = 0; $a < @temp_p; $a++) { $_ = $temp_p[$a]; if (//) { $name_p =~ s//) { $about_p =~ s/<\/br>/
/g; $about_p =~ s/

/
/g; print "

$about_p

"; } elsif (//) { print "

$name_resp

"; } elsif (//) { print "

Уважаемый(ая) $name_p

"; #$length = length ($data_resp); print "$length \n"; $data_resp =~ s/'/\"/gi; print "

$data_resp

"; } elsif (//) { $nm = int(($basa_number - $num)/$kol_num); print ""; print "Вернуться к вопросам"; print ""; } elsif (//) { if ($action eq "admin") { &forma_resp; } } elsif (//) { if ($link_p) { print "


"; print ""; print "Наши партнеры:  $link_p"; } } elsif (//) { print "$day_.$mon_.$y_ $hu_:$min_"; } elsif (//) { $a_k = $about_p." ".$data_resp; $a_k =~ s/\n/ /g; $a_k =~ s/ / /g; $a_k =~ s/ / /g; $a_k =~ s/ / /g; $a_k =~ s/ / /g; $a_k =~ s/ / /g; $a_k =~ s/\n/ /g; $a_k =~ s/
/ /g; $a_k =~ s/

/ /g; $a_k =~ s/Добрый день. //g; $a_k =~ s/Добрый день.//g; $a_k =~ s/Добрый день//g; $a_k =~ s/Здравствуйте//g; $a_k =~ s/Здраствуйте//g; $a_k =~ s/здравствуйте//g; $a_k =~ s/здраствуйте//g; $a_k =~ s/Скажите//g; $a_k =~ s/скажите//g; $a_k =~ s/пожалуйста//g; $a_k =~ s/Пожалуйста//g; $a_k =~ s/пожайлуста//g; $a_k =~ s/пожалуйсто//g; $a_k =~ s/Пожалуйсто//g; $a_k =~ s/пожайлусто//g; $a_k =~ s/ т.к./ /g; $a_k =~ s/ т. к./ /g; $a_k =~ s/ Т.к./ /g; $a_k =~ s/ т. к./ /g; $a_k =~ s/ бы / /g; $a_k =~ s/ ли / /g; $a_k =~ s/ б / /g; $a_k =~ s/ я / /g; $a_k =~ s/ вы / /g; $a_k =~ s/ Вы / /g; $a_k =~ s/ Я / /g; $a_k =~ s/ ,/ /g; $a_k =~ s/\.,/ /g; $a_k =~ s/\!/ /g; $a_k =~ s/\./ /g; $a_k =~ s/ / /g; $a_k =~ s/ / /g; $a_p = $a_k; while (length $a_p > 100) { chop ($a_p); } $a_t = $a_p; while (length $a_t > 50) { chop ($a_t); } while ($aaaaa ne " " && length $a_t > 10) { $aaaaa = chop ($a_t); } while ($aaaaa ne " " && length $a_p > 10) { $aaaaa = chop ($a_p); } $a_k =~ s/\./, /g; $a_k =~ s/\n/ /g; $a_k =~ s/-/ /g; $a_k =~ s/\?/ /g; $a_k =~ s/\!/ /g; $a_k =~ s/\$//g; $a_k =~ s/\(/ /g; $a_k =~ s/\)/ /g; $a_k =~ s/ / /g; $a_k =~ s/ / /g; $a_k =~ s/ / /g; $a_k =~ s/ /, /g; $a_k =~ s/,,/,/g; $a_k =~ s/, ,/,/g; $a_k =~ s/, ,/,/g; $a_k =~ s/ ,/,/g; $a_k =~ s/"//g; $a_k =~ tr/АБВГДЕЁЖЗИКЛМНОПРСТУФХШЩЭЮЯЦЫЙЪЬЧ/абвгдеёжзиклмнопрстуфхшщэюяцыйъьч/; $a_k =~ s/ с,//g; $a_k =~ s/ от,//g; $a_k =~ s/ по,//g; $a_k =~ s/ я,//g; $a_k =~ s/ бы,//g; $a_k =~ s/ ли,//g; $a_k =~ s/ это,//g; $a_k =~ s/ этот,//g; $a_k =~ s/ который,//g; $a_k =~ s/ у,//g; $a_k =~ s/ Вы,//g; $a_k =~ s/ вы,//g; $a_k =~ s/ мы,//g; $a_k =~ s/ для,//g; $a_k =~ s/ на,//g; $a_k =~ s/ я,//g; $a_k =~ s/ в,//g; $a_k =~ s/ о,//g; $a_k =~ s/ ж,//g; $a_k =~ s/ з,//g; $a_k =~ s/ л,//g; $a_k =~ s/ м,//g; $a_k =~ s/ н,//g; $a_k =~ s/ к,//g; $a_k =~ s/ г,//g; $a_k =~ s/ а,//g; $a_k =~ s/ к,//g; $a_k =~ s/ или,//g; $a_k =~ s/ и,//g; $a_k =~ s/ то,//g; $a_k =~ s/ же,//g; while (length $a_k > 100) { chop ($a_k); } while ($aaaaa ne " " && length $a_k > 10) { $aaaaa = chop ($a_k); } if ($num > 126){ print "$a_t$word2\n"; } else { print "$a_t$word1\n"; } print "\n"; print "\n"; } else {print "$_"} } exit; } ################################################################# sub all{ $ne = 0; $name = $file; open (FILE, "$forma_p") || &fatal_error("Unable to open $forma_p"); &lock(FILE); @temp_p = ; &unlock(FILE); close(FILE); ##### dbmopen (%basa,"$datadir/$basa_name",undef) || &fatal_error("не открывается файл: $datadir/$basa_name"); $basa_number = $basa{"number"}; $num_max = $kol_num * ($number+1); $num_min = $kol_num * ($number); if ($num_max > $basa_number) {$num_max= $basa_number} $kol_kol_num = int($basa_number/$kol_num)+1; $ost_kol_num = $basa_number/$kol_num - int($basa_number/$kol_num); if ($ost_kol_num eq "0") {$kol_kol_num = $kol_kol_num - 1} ##### for ($a = 0; $a < @temp_p; $a++) { $_ = $temp_p[$a]; if (//) { for ($n = $num_min; $n < $num_max; $n++) { $basa_number_inv=$basa_number-$n; ($datee_p,$name_p,$email_p,$ip_p,$about_p) = split(/``/,$basa{$basa_number_inv}); ($data_resp,$name_resp,$datee_resp) = split(/``/,$basa{$basa_number_inv."_1"}); ($y_,$mon_,$day_,$hu_,$min_) = split(/\./,$datee_p); $y_ = $y_+1900; if (!$data_resp) { $ne++; } if ($data_resp || $action eq "admin") { print "\n"; print "\n\n"; print "\n"; # print "\n"; # print ""; print ""; print "\n"; ################ if ($action eq "admin") { ############# print ""; print "
"; $name_p =~ s/ $name_p
Автор:"; # print $name_p; # print "
Вопрос:"; # $about_p =~ s///ig; $about_p =~ s/

/
/ig; $about_p =~ s/ спасибо//ig; $about_p =~ s/ пожалуйста//ig; $about_p =~ s/ пожалуйсто//ig; $about_p =~ s/ спасиба//ig; $about_p =~ s/ / /ig; $about_p =~ s/\./\. /ig; $about_p =~ s/,/, /ig; $about_p =~ s/ \./\./ig; $about_p =~ s/ ,/,/ig; $about_p =~ s/,,/ /ig; $about_p =~ s/,\./\. /ig; $about_p =~ s/ / /ig; $about_p =~ s/ / /ig; $about_p =~ s/,,/ /ig; $about_p =~ s/, ,/ /ig; $about_p =~ s/ / /ig; while (length $about_p > 200) { $pouente = " ..."; $sp = chop ($about_p); while ($sp ne " ") { $sp = chop ($about_p); } } print ""; print $about_p.$pouente.""; print "

Info:"; ################ } ############# } ################ if ($action eq "admin") { ############# if (!$data_resp) { # if ($action eq "admin") { print ""; print "На данный вопрос еще нет ответа"; print "
\ \n"; } } else { if ($action eq "admin") { print ""; print "Посмотреть ответ"; print "\ \n"; } ############# } else { print "\ \n"; } ############# } print "Вопросов, ожидающих ответа: $ne
"; }elsif (//) { print " | "; for ($n = 0; $n < $kol_kol_num; $n++) { if ($n eq $number) { print ""; } else { if ($action eq "admin") { print ""; } print $n*$kol_num + 1; print "-"; if (($n + 1)*$kol_num < $basa_number) { print (($n + 1) * $kol_num); } else { print $basa_number; } if ($n eq $number) { print ""; } else { print ""; } print " | "; } }elsif (//) { print ""; }elsif (//) { print "$basa_ogl"; }elsif (//) { print "---"; }elsif (//) { #&forma; } else {print "$_"} } dbmclose (%basa) || die "Не могу закрыть файл: $!"; exit; } ############################################### sub get_date { ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $mon_num = $mon+1; $savehour = $hour; ### $hour = "0$hour" if ($hour < 10); ### $min = "0$min" if ($min < 10); ### $sec = "0$sec" if ($sec < 10); ### $saveyear = ($year % 100); ### $year = 1900 + $year; ### ### #### $mon_num = "0$mon_num" if ($mon_num < 10); #### $mday = "0$mday" if ($mday < 10); ### $saveyear = "0$saveyear" if ($saveyear < 10); ### $date = "$mday.$mon_num.$year - $hour\:$min"; ### } ######################################################## sub forma { print "

"; print ""; print ""; print ""; print ""; if ($action eq "admin") { print ""; print ""; print ""; } print "
Имя:
E-Mail:
Вопрос:
Имя:
Ответ:
 
 
"; } ################################# sub forma_resp { $name_resp =~ s/ / /g; $name_p =~ s/ / /g; $data_resp =~ s/
/\n/g; $about_p =~ s/
/\n/g; chomp $about_p; chomp $about_p; print "
"; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "
Delete
Имя:
E-Mail: $email_p
Отправить ответ по почте:"; print "
Вопрос:
ip: $ip_p
Имя:
Ответ:
 
Ссылка:
 
 
"; } #########################################3 sub read_d { read(STDIN, $input, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $input); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $name =~ tr/+/ /; $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s/`/\"/g; $value =~ s/\&//g; $value =~ s/"/\"/g; # $value =~ s/ //g; $value =~ s/<([^>]|\n)*>//g; $value =~ s/\n\n\n/\n/g; chomp ($value); $FORM{$name} = $value; } $pass = $FORM{'pass'}; $namep = $FORM{'namep'}; }

Бюро переводов
О бюро переводов

Основные языки технических переводов:

Английский язык
Русский язык
Японский язык

Статьи

перевод научно-технических текстов

Обратная связь:

Задать вопрос
Контакты

Москва,
+7-985-287-56-54

Статьи о переводе

Статьи

Преподаватель английского