Сообщения

31

Perl / удаление старых файлов

« : 04 Сентября 2006, 12:11:58 »

Всем привет!

Такая проблема: есть папка tmp в которой постоянно появляются файлы. Она переполняется и сайт загибается. Как мне узнать те файлы которые старше часа и удалять их?

32

Perl / работа со сканером

« : 18 Августа 2006, 05:30:50 »

arto
спасибо!

33

Perl / работа со сканером

« : 17 Августа 2006, 17:02:48 »

А кто-нибудь знает про преобразование tif -> jpg в perl. Или тоже фантастика?

arto

34

Perl / работа со сканером

« : 17 Августа 2006, 13:44:51 »

Мне нужно чтобы perl мог управлять сканером. Т.е. начало сканирование, получение изображения в формате jpg и дальнейшее сохранение в базе данных. Такое вообще возможно?

35

Perl / работа со сканером

« : 16 Августа 2006, 08:16:10 »

Есть ли способ получения из perl изображения со сканера?

36

Perl / UTF8

« : 30 Июля 2006, 05:30:08 »

arto
понятно, вообщем не было чего ответить, НО сумничал...

37

Perl / UTF8

« : 27 Июля 2006, 10:53:35 »

Читал. Из perldoc:

# A simple euc-cn => utf-8 converter
use encoding "euc-cn", STDOUT => "utf8";  while(<>){print};

# "no encoding;" supported (but not scoped!)
no encoding;

# an alternate way, Filter
use encoding "euc-jp", Filter=>1;
# now you can use kanji identifiers -- in euc-jp!

Т.е. вначале utf, а потом euc-jp. Но у меня этот no encoding почему то не срабатывает...

38

Perl / UTF8

« : 27 Июля 2006, 07:24:15 »

не помогает!
пишу "no encoding" после вывода use encoding "cp1251", STDOUT => "utf8";
тогда utf8 не работает, а если не пишу "no encoding" тогда все в utf8.

39

Perl / UTF8

« : 26 Июля 2006, 05:59:47 »

Ну вообще первоначально все выглядело так, это я уже наворотил, чтобы хоть как-то заработало:

print "Content-type: text/html\\n\\n";

if($code == 1){
#ничего не меняем
}elsif($code == 2){
@mybanner[1] = translate(\'win\',\'koi\',@mybanner[1]);#отдельная ф-ция
}elsif($code == 3){
@mybanner[1] = translate(\'win\',\'iso\',@mybanner[1]);#отдельная ф-ция
}elsif($code == 4){
use encoding "cp1251", STDOUT => "utf8";
}

print <<"(HTML_NOW)";
document.write("");
(HTML_NOW)

Теперь можете подсказать?

40

Perl / UTF8

« : 24 Июля 2006, 09:33:03 »

вот фрагмент кода:

if($code == 1){
print "Content-type: text/html\\n\\n";
print <<"(HTML_NOW)";
document.write("");
(HTML_NOW)
}elsif($code == 2){
print "Content-type: text/html\\n\\n";
@mybanner[1] = translate(\'win\',\'koi\',@mybanner[1]);
print <<"(HTML_NOW)";
document.write("");
(HTML_NOW)
}elsif($code == 3){
print "Content-type: text/html\\n\\n";
@mybanner[1] = translate(\'win\',\'iso\',@mybanner[1]);   
print <<"(HTML_NOW)";
document.write("");
(HTML_NOW)
}elsif($code == 4){
print "Content-type: text/html\\n\\n";
use encoding "cp1251", STDOUT => "utf8";
print <<"(HTML_NOW)";
document.write("");
(HTML_NOW)
}

if($code == 1 || $code == 2 || $code == 3){
no encoding;
}

уникод здесь не пашет, если no encoding убрать не пашут другие кодировки.

41

Perl / UTF8

« : 24 Июля 2006, 05:39:00 »

так я все делаю так как в perldoc, вот и спраштваю из-за чего может не работать?

42

Perl / UTF8

« : 21 Июля 2006, 11:34:18 »

arto
и где это писать?
у меня скрипт просто выдает текст по запросу в разных кодировках, только utf глючит.

43

Perl / UTF8

« : 21 Июля 2006, 06:28:49 »

Ну чего ничкто не знает в чем может быть проблема? Никто в utf не кодирует?

44

Perl / UTF8

« : 16 Июля 2006, 16:47:26 »

Пытаюсь кодировать из win1251 в utf8:
use Encode;
use utf8;

utf8::encode(@mybanner[1]);

на выходе получаю какую то хрень:

Èíòåðåñíûå íîâîñòè

явно что-то не то...

45

Веб Сервера / RewriteRule

« : 18 Апреля 2006, 07:12:45 »

блин, сам затупил поставил эту хрень DirectoryIndex index.shtml index.htm index.php index.html