странная ошибка perl не компилируется

И всё прочее, что касается HTML
Правила форума
Убедительная просьба юзать теги [code] при оформлении листингов.
Сообщения не оформленные должным образом имеют все шансы быть незамеченными.
Аватара пользователя
ProFTP
подполковник
Сообщения: 3388
Зарегистрирован: 2008-04-13 1:50:04
Откуда: %&й
Контактная информация:

странная ошибка perl не компилируется

Непрочитанное сообщение ProFTP » 2008-07-18 10:27:44

......v
Pеrl FAQ
perl -e 'print join"",map $$_[rand@$_],([0..9,'a'..'z','A'..'Z'])x30'
ИзображениеИзображение

Хостинговая компания Host-Food.ru
Хостинг HostFood.ru
 

Услуги хостинговой компании Host-Food.ru

Хостинг HostFood.ru

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

Аватара пользователя
zingel
beastie
Сообщения: 6204
Зарегистрирован: 2007-10-30 3:56:49
Откуда: Moscow
Контактная информация:

Re: странная ошибка perl не компилируется

Непрочитанное сообщение zingel » 2008-07-18 10:54:22

нужно смотреть в логах апача статус ошибки ну и

Код: Выделить всё

perl -d /path/to/script.pl

Код: Выделить всё

# Производим возврат на исходную страницу или главную страницу сайта
   $dbh->disconnect();
##    my $referer = $ENV{'REFERER'} || 'http://www.mydomain.ru';
##    print "Location: $referer\n\n";
}

#my $referer = "http://rab.org.ua/1/index.pl";
#print $query->redirect( -uri => $referer,
#                      -status=>301);
#my $query = new CGI;

#my $referer = "http://rab.org.ua/1/index.pl";
#print $query->redirect( -uri => $referer, -status=>301 );

}
Z301171463546 - можно пожертвовать мне денег

Аватара пользователя
ProFTP
подполковник
Сообщения: 3388
Зарегистрирован: 2008-04-13 1:50:04
Откуда: %&й
Контактная информация:

Re: странная ошибка perl не компилируется

Непрочитанное сообщение ProFTP » 2008-07-18 10:59:19

ошибки нету, пишет такое в asses:

Код: Выделить всё

193.8 - - [18/Jul/2008:10:57:16 +0300] "GET /1/index.pl HTTP/1.0" 301 1668 "-" "Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.1
193.8 - - [18/Jul/2008:10:57:16 +0300] "GET /1/index.pl HTTP/1.0" 301 1668 "-" "Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.1
193..18 - - [18/Jul/2008:10:58:24 +0300] "GET /1/index.pl HTTP/1.0" 301 1668 "-" "Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.1
Pеrl FAQ
perl -e 'print join"",map $$_[rand@$_],([0..9,'a'..'z','A'..'Z'])x30'
ИзображениеИзображение

Аватара пользователя
ProFTP
подполковник
Сообщения: 3388
Зарегистрирован: 2008-04-13 1:50:04
Откуда: %&й
Контактная информация:

Re: странная ошибка perl не компилируется

Непрочитанное сообщение ProFTP » 2008-07-18 11:00:09

Я редирект закоментитровал, думал что из-за него! но он закоментированный!!! :shock: :x
Pеrl FAQ
perl -e 'print join"",map $$_[rand@$_],([0..9,'a'..'z','A'..'Z'])x30'
ИзображениеИзображение

Аватара пользователя
zingel
beastie
Сообщения: 6204
Зарегистрирован: 2007-10-30 3:56:49
Откуда: Moscow
Контактная информация:

Re: странная ошибка perl не компилируется

Непрочитанное сообщение zingel » 2008-07-18 11:02:43

редирект то сработал, только вот куда? куда должно редиректиться?
Z301171463546 - можно пожертвовать мне денег

Аватара пользователя
ProFTP
подполковник
Сообщения: 3388
Зарегистрирован: 2008-04-13 1:50:04
Откуда: %&й
Контактная информация:

Re: странная ошибка perl не компилируется

Непрочитанное сообщение ProFTP » 2008-07-18 11:38:45

оно никуда редиректиться не должно, но желательно чтобы шаблон по новому загрузить, смысле там было написано "здравсвуйте гость", а когда сессия перешла в пользовательскую, то желательно написать "здравсвуйте пользователь"...

оно там просто так... :oops:

ну я разкоментировал, удалил куки и все остальное в браузере - тоже самое :sorry: :Search: :Search:
Pеrl FAQ
perl -e 'print join"",map $$_[rand@$_],([0..9,'a'..'z','A'..'Z'])x30'
ИзображениеИзображение

Аватара пользователя
ProFTP
подполковник
Сообщения: 3388
Зарегистрирован: 2008-04-13 1:50:04
Откуда: %&й
Контактная информация:

Re: странная ошибка perl не компилируется

Непрочитанное сообщение ProFTP » 2008-07-18 12:10:42

я тогда передею как-то, хотя номалия какая-то не понятно :drinks:
Pеrl FAQ
perl -e 'print join"",map $$_[rand@$_],([0..9,'a'..'z','A'..'Z'])x30'
ИзображениеИзображение

Аватара пользователя
zingel
beastie
Сообщения: 6204
Зарегистрирован: 2007-10-30 3:56:49
Откуда: Moscow
Контактная информация:

Re: странная ошибка perl не компилируется

Непрочитанное сообщение zingel » 2008-07-18 12:12:16

я тогда передею
что это? =)

Я бы заморочился через
Z301171463546 - можно пожертвовать мне денег

Аватара пользователя
ProFTP
подполковник
Сообщения: 3388
Зарегистрирован: 2008-04-13 1:50:04
Откуда: %&й
Контактная информация:

Re: странная ошибка perl не компилируется

Непрочитанное сообщение ProFTP » 2008-07-18 12:15:47

"переделаю", опечатался !

как это называеться? (название какое? чтобы в гугле поискать...)

запустить скрипт через perl -d ? я уже запскал ничего не написало нового... :-o
Pеrl FAQ
perl -e 'print join"",map $$_[rand@$_],([0..9,'a'..'z','A'..'Z'])x30'
ИзображениеИзображение

Аватара пользователя
ProFTP
подполковник
Сообщения: 3388
Зарегистрирован: 2008-04-13 1:50:04
Откуда: %&й
Контактная информация:

Re: странная ошибка perl не компилируется

Непрочитанное сообщение ProFTP » 2008-07-18 22:08:18

ГУМАНОИДЫ
Pеrl FAQ
perl -e 'print join"",map $$_[rand@$_],([0..9,'a'..'z','A'..'Z'])x30'
ИзображениеИзображение

Аватара пользователя
zingel
beastie
Сообщения: 6204
Зарегистрирован: 2007-10-30 3:56:49
Откуда: Moscow
Контактная информация:

Re: странная ошибка perl не компилируется

Непрочитанное сообщение zingel » 2008-07-18 22:28:59

WTF?
Z301171463546 - можно пожертвовать мне денег

Аватара пользователя
ProFTP
подполковник
Сообщения: 3388
Зарегистрирован: 2008-04-13 1:50:04
Откуда: %&й
Контактная информация:

Re: странная ошибка perl не компилируется

Непрочитанное сообщение ProFTP » 2008-07-18 22:37:11

аномалия какая-то, тествоый скрипт работает, открываеться в браузере...

другой если удалить все нах, оставить только perl, то пишет редиркт тот - фуйню какаю-то...

это надо железные нервы!!!

:st: :st: :st: :st:
Pеrl FAQ
perl -e 'print join"",map $$_[rand@$_],([0..9,'a'..'z','A'..'Z'])x30'
ИзображениеИзображение

Аватара пользователя
zingel
beastie
Сообщения: 6204
Зарегистрирован: 2007-10-30 3:56:49
Откуда: Moscow
Контактная информация:

Re: странная ошибка perl не компилируется

Непрочитанное сообщение zingel » 2008-07-18 22:40:32

писать нужно нормально... :smile: ...где можно этот скрипт (рабочий вариант) взять?* я его у себя потестирую на машинке
Z301171463546 - можно пожертвовать мне денег

Аватара пользователя
ProFTP
подполковник
Сообщения: 3388
Зарегистрирован: 2008-04-13 1:50:04
Откуда: %&й
Контактная информация:

Re: странная ошибка perl не компилируется

Непрочитанное сообщение ProFTP » 2008-07-18 22:45:12

ну там выборка идет с 3 таблиц, вы должны их создать, просто, и шабончики еще... давать вам такой геомрой не не хочу

я догадывась что винчестре может работет в режиме async, то есть запись идеи поже, хотя примонтирован в синхронном режиме...просто все работало в веб сервере я ничего не менял... :fool: щас поробую еще что-то... отпишусь...
Pеrl FAQ
perl -e 'print join"",map $$_[rand@$_],([0..9,'a'..'z','A'..'Z'])x30'
ИзображениеИзображение

Аватара пользователя
ProFTP
подполковник
Сообщения: 3388
Зарегистрирован: 2008-04-13 1:50:04
Откуда: %&й
Контактная информация:

Re: странная ошибка perl не компилируется

Непрочитанное сообщение ProFTP » 2008-07-19 0:22:31

zingel, извиняюсь если не правильно сформулировал


сейчас вроде завелось работаеть, не понятно почему, я файл назвал index2.pl раньше был index.pl


на веб сервере ничего не менял, в логах ничего нету!!!

раньше работало. все равно аномалия

права стоят

http://citforum.univ.kiev.ua/security/a ... /anomalis/

:unknown: :bad: :bad: :bad:
Pеrl FAQ
perl -e 'print join"",map $$_[rand@$_],([0..9,'a'..'z','A'..'Z'])x30'
ИзображениеИзображение

Аватара пользователя
zingel
beastie
Сообщения: 6204
Зарегистрирован: 2007-10-30 3:56:49
Откуда: Moscow
Контактная информация:

Re: странная ошибка perl не компилируется

Непрочитанное сообщение zingel » 2008-07-19 0:29:33

нет тут аномалий

Код: Выделить всё

 If the 301 status code is received in response to a request other than GET or HEAD, the user agent MUST NOT automatically redirect the request unless it can be confirmed by the user, since this might change the conditions under which the request was issued.

      Note: When automatically redirecting a POST request after
      receiving a 301 status code, some existing HTTP/1.0 user agents
      will erroneously change it into a GET request.
кривой URI, скорее всего или редирект работает не так как нужно, могу предположить, что есть файл .htaccess :smile:
Z301171463546 - можно пожертвовать мне денег

Аватара пользователя
ProFTP
подполковник
Сообщения: 3388
Зарегистрирован: 2008-04-13 1:50:04
Откуда: %&й
Контактная информация:

Re: странная ошибка perl не компилируется

Непрочитанное сообщение ProFTP » 2008-07-19 0:33:41

нуту

в общем ладно, работает - пускай работает!!


:Yahoo!: :evil: :evil: :evil: :evil: :evil: :evil: :evil: :evil: :evil: :evil: :evil: :evil: :evil: :evil: :evil: :evil: :evil:

есть такой коняиг, не полносью:

Код: Выделить всё

<VirtualHost *:80> 
#       ScriptAlias /cgi-bin "/home/rab/www/cgi-bin"
        ServerAdmin     admin@t.ru
#       AliasMatch      ^/~([^/]+)(/.*)*        /usr/home/$1/data$2
        DocumentRoot    /home/rab/www/data
        ServerName      rab.org.ua
        ServerAlias     www.rab.org.ua
        SuexecUserGroup rab   rab
        Alias           /php-fcgi/      /home/rab/www/cgi-bin/
        CustomLog       /home/rab/log/httpd-access.log       combined
        ErrorLog        /home/rab/log/httpd-error.log
	
  CBandClassLimit world 150M
  CBandExceededSpeed 32 5 55
  CBandSpeed 4096 20 60
  CBandRemoteSpeed 512 6 6
  CBandScoreboard /var/www/scoreboard
  CBandPeriod 4W
</VirtualHost>

Код: Выделить всё

<IfModule mod_limitipconn.c>
   <Location />
	MaxConnPerIP 15
	# exempting images from the connection limit is often a good
	# idea if your web page has lots of inline images, since these
	# pages often generate a flurry of concurrent image requests
	NoIPLimit image/*
    </Location>
##    <Location /mp3>
#	MaxConnPerIP 1
#	# In this case, all MIME types other than audio/mpeg and video*
#	# are exempt from the limit check
#	OnlyIPLimit audio/mpeg video
#    </Location>
</IfModule>

<IfModule dir_module>
 DirectoryIndex index.php index.pl 
</IfModule>
#LoadModule perl_module        libexec/apache22/libperl.so
#    CustomLog /var/log/httpd/access_log common env=!LIMITIP
#
# The following lines prevent .htaccess and .htpasswd files from being 
# viewed by Web clients. 
#
<FilesMatch "^\.ht">
  Order allow,deny
 Deny from all
 Satisfy All
 MaxConnPerIP 15
</FilesMatch>

#
# ErrorLog: The location of the error log file.
# If you do not specify an ErrorLog directive within a <VirtualHost>
# container, error messages relating to that virtual host will be
# logged here.  If you *do* define an error logfile for a <VirtualHost>
# container, that host's errors will be logged there and not here.
#
ErrorLog /var/log/httpd-error.log

#SuexecUserGroup nobody nogroup
#
#
# LogLevel: Control the number of messages logged to the error_log.
# Possible values include: debug, info, notice, warn, error, crit,
# alert, emerg.
#
LogLevel warn





















# added by lissyara 2007-07-19 in 23:36

# конфиг модуля
<IfModule mod_fastcgi.c>
#        # конфиг модуля.
#        # полный список опций - доступен по следующему адресу
#        # http://www.fastcgi.com/mod_fastcgi/docs/mod_fastcgi.html
#        # тут приведены лишь те, которые я заюзал
#        # -singleThreshold - Целое число, мжду 0 и 100, используеммое
#        # для определения, может ли быть завершён последний экземпляр
#        # приложения FastCGI. Если менеджер процессов, вычисляет, что
#        # фактор загрузки для приложения меньше заданного порога, то
#        # последний экземпляр завершается. Для работы приложения в
#        # режиме "idle" долгого времени, вы должны задать значение
#        ### ближе к 1, однако, если более приоритетна память, или время
#        # CPU, более применимо значение 100. Значение 0 предотвращает
 #       # завершение последнего экземпляра приложения; это - значение
  #      # по умолчанию, и менять его не рекомендуется (особенно, если
        # установлена -appConnTimeout)
        # -minProcesses - минимальное общее число динамических приложений
        # FastCGI, разрешённых к работе в любое время, без убивания
        # менеджером процессов.
        # -restart - заставляет менеджер процессов повторно запускать
        # приложения в случае сбоя (подобно статическим приложениям)
        # -idle-timeout - число секунд бездействия приложения FastCGI,
        # до прерывания запроса и логгирования события. Таймер бездейстаия
        # применяется лишь к долго висящим соединениям приложений FastCGI.
        # Если запрос будет находиться в очереди к приложению, но
        # приложение не отвечает (путём записи и сброса) в течение этого
        # периода, то запрос будет прерван. Если связь с приложением
        # успешно завершается, но не завершается с клиентом, (ответ -
        # buffered), таймаут не применяется.
        # -killInterval - Определяет, как часто менеджером процессов
        # применяется политика завершения динамических экземпляров
        # приложения. Меньшее число приводит к более агессивной политике,
        # большее - к менее агрессивной.
        # -autoUpdate - вызывает проверку модулем mod_fastcgi проверку
        # времени модификации приложения на диске до обработки каждого
        # запроса. Если приложение на диске изменилось, уведомляется
        # менеджер процессов и все работающие экземпляры программы
        # уничтожаются. Вообще, предпочтительно, чтобы этот тип
        # функциональности был встроен в приложение (например, каждый
        # 100-й запрос проверяет, есть ли новая версия на диске, и выходит
        # если это так). Могут быть ошибки, если эта опция применяется с
        # опцией -restart
        # -pass-header - имя заголовка запроса HTTP для передачи среде
        # request. Эта опция делает доступным содержимое заголовков,
        # которые обычно недоступны (например, Authorization) в окружении GCI.
#        FastCgiConfig   -singleThreshold 100 -minProcesses 1 -maxProcesses 750 -restart    \
#                        -idle-timeout 400 -killInterval 300 -autoUpdate \
#                        -pass-header HTTP_AUTHORIZATION

 FastCgiConfig   -singleThreshold 30 -minProcesses 2 -restart    \
                        -idle-timeout 400 -killInterval 200 -autoUpdate \
                        -pass-header HTTP_AUTHORIZATION

#                 FastCgiConfig -singleThreshold 100  -autoUpdate -idle-timeout 90 -pass-header HTTP_AUTHORIZATION
        # используетс ядля включения враппера
       FastCgiWrapper /usr/local/sbin/suexec
        # директория где хранятся сокеты
        FastCgiIpcDir /var/run/fastcgi
        # предпринимаемые для такого типа файлов действия
        Action application/x-httpd-fastphp /php-fcgi/php.sh
        Action application/x-httpd-php /php-fcgi/php.sh
        # добавляем типы файлов - у меня нету типа .php4 .php5 и т.д.
        # если у вас есть - добавльте через пробелы в этой строке
       AddType application/x-httpd-fastphp     .php
        # Обработка файлов апачем
        <Location /php-fcgi/>
                Options ExecCGI FollowSymLinks
                SetHandler fastcgi-script
        </Location>
</IfModule>








<Directory "/home/*/www/data">
        Options         +Indexes FollowSymLinks MultiViews ExecCGI
        AllowOverride   All
        Order           deny,allow
        Allow from      all
        MaxConnPerIP 10
</Directory>
# директория скриптов пользователя
<Directory "/home/*/www/cgi-bin">
        AllowOverride None
        Options None
        Order allow,deny
        Allow from all
        MaxConnPerIP 10
</Directory>








<IfModule log_config_module>
    #
    # The following directives define some format nicknames for use with
    # a CustomLog directive (see below).
    #
    LogFormat "%h %l %u %t \"%r\" %>s %b \"%{Referer}i\" \"%{User-Agent}i\"" combined
    LogFormat "%h %l %u %t \"%r\" %>s %b" common

    <IfModule logio_module>
      # You need to enable mod_logio.c to use %I and %O
      LogFormat "%h %l %u %t \"%r\" %>s %b \"%{Referer}i\" \"%{User-Agent}i\" %I %O" combinedio
    </IfModule>

    #
    # The location and format of the access logfile (Common Logfile Format).
    # If you do not define any access logfiles within a <VirtualHost>
    # container, they will be logged here.  Contrariwise, if you *do*
    # define per-<VirtualHost> access logfiles, transactions will be
    # logged therein and *not* in this file.
    #
    #CustomLog "/var/log/httpd-access.log" common

    #
    # If you prefer a logfile with access, agent, and referer information
    # (Combined Logfile Format) you can use the following directive.
    #
    CustomLog "/var/log/httpd-access.log" combined
</IfModule>

<IfModule alias_module>
    #
    # Redirect: Allows you to tell clients about documents that used to 
    # exist in your server's namespace, but do not anymore. The client 
    # will make a new request for the document at its new location.
    # Example:
    # Redirect permanent /foo http://www.example.com/bar

    #
    # Alias: Maps web paths into filesystem paths and is used to
    # access content that does not live under the DocumentRoot.
    # Example:
    # Alias /webpath /full/filesystem/path
    #
    # If you include a trailing / on /webpath then the server will
    # require it to be present in the URL.  You will also likely
    # need to provide a <Directory> section to allow access to
    # the filesystem path.

    #
    # ScriptAlias: This controls which directories contain server scripts. 
    # ScriptAliases are essentially the same as Aliases, except that
    # documents in the target directory are treated as applications and
    # run by the server when requested rather than as documents sent to the
    # client.  The same rules about trailing "/" apply to ScriptAlias
    # directives as to Alias.
    #
    #ScriptAlias /cgi-bin/ "/usr/local/www/apache22/cgi-bin/"

</IfModule>

<IfModule cgid_module>
#    #
    ## ScriptSock: On threaded servers, designate the path to the UNIX
    # socket used to communicate with the CGI daemon of mod_cgid.
    #
    Scriptsock /var/run/cgisock
</IfModule>

#
# "/usr/local/www/apache22/cgi-bin" should be changed to whatever your ScriptAliased
# CGI directory exists, if you have that configured.
#
#<Directory "/usr/local/www/apache22/cgi-bin">
#    AllowOverride None
#    Options None
#    Order allow,deny
#    Allow from all
#</Directory>

#
# DefaultType: the default MIME type the server will use for a document
# if it cannot otherwise determine one, such as from filename extensions.
# If your server contains mostly text or HTML documents, "text/plain" is
# a good value.  If most of your content is binary, such as applications
# or images, you may want to use "application/octet-stream" instead to
# keep browsers from trying to display binary files as though they are
# text.
#
#      DefaultType text/plain


#<ifModule php5_module>
#	AddType application/x-httpd-php .php
#	AddType application/x-httpd-php-source .phps
#</ifModule>

<IfModule mime_module>
    #
    # TypesConfig points to the file containing the list of mappings from
    # filename extension to MIME-type.
    #
    TypesConfig etc/apache22/mime.types

    #
    # AddType allows you to add to or override the MIME configuration
    # file specified in TypesConfig for specific file types.
    #
    AddType application/x-gzip .tgz
    #
    # AddEncoding allows you to have certain browsers uncompress
    # information on the fly. Note: Not all browsers support this.
    #
    AddEncoding x-compress .Z
    AddEncoding x-gzip .gz .tgz

  
    #
    # If the AddEncoding directives above are commented-out, then you
    # probably should define those extensions to indicate media types:
    #
    AddType application/x-compress .Z
    AddType application/x-gzip .gz .tgz

    #
    # AddHandler allows you to map certain file extensions to "handlers":
    # actions unrelated to filetype. These can be either built into the server
    # or added with the Action directive (see below)
    #
    # To use CGI scripts outside of ScriptAliased directories:
    # (You will also need to add "ExecCGI" to the "Options" directive.)
    #
    AddHandler cgi-script .cgi
    AddHandler cgi-script .pl
    # For type maps (negotiated resources):
    AddHandler type-map var

    #
    # Filters allow you to process content before it is sent to the client.
    #
    # To parse .shtml files for server-side includes (SSI):
    # (You will also need to add "Includes" to the "Options" directive.)
    #
    AddType text/html .shtml
    AddOutputFilter INCLUDES .shtml
</IfModule>

Pеrl FAQ
perl -e 'print join"",map $$_[rand@$_],([0..9,'a'..'z','A'..'Z'])x30'
ИзображениеИзображение

Аватара пользователя
zingel
beastie
Сообщения: 6204
Зарегистрирован: 2007-10-30 3:56:49
Откуда: Moscow
Контактная информация:

Re: странная ошибка perl не компилируется

Непрочитанное сообщение zingel » 2008-07-19 0:45:18

суекзек - 70%

CBand - гамно полное, используй ограничение полосы файрволом
Z301171463546 - можно пожертвовать мне денег

Аватара пользователя
ProFTP
подполковник
Сообщения: 3388
Зарегистрирован: 2008-04-13 1:50:04
Откуда: %&й
Контактная информация:

Re: странная ошибка perl не компилируется

Непрочитанное сообщение ProFTP » 2008-07-19 1:04:23

CBand ограничивает скорость когда мног трафика использует один виртуальный хост... тогда скорость допстим падает до 32кб

а как дял кадого вирт хоста такое сделать? :(
Pеrl FAQ
perl -e 'print join"",map $$_[rand@$_],([0..9,'a'..'z','A'..'Z'])x30'
ИзображениеИзображение

Аватара пользователя
ProFTP
подполковник
Сообщения: 3388
Зарегистрирован: 2008-04-13 1:50:04
Откуда: %&й
Контактная информация:

Re: странная ошибка perl не компилируется

Непрочитанное сообщение ProFTP » 2008-07-19 1:06:58

Все работае, когда index2.pl

а то меня понясло что-то... :Bravo:
Pеrl FAQ
perl -e 'print join"",map $$_[rand@$_],([0..9,'a'..'z','A'..'Z'])x30'
ИзображениеИзображение

Аватара пользователя
zingel
beastie
Сообщения: 6204
Зарегистрирован: 2007-10-30 3:56:49
Откуда: Moscow
Контактная информация:

Re: странная ошибка perl не компилируется

Непрочитанное сообщение zingel » 2008-07-19 2:04:33

всё работает - не трогай, если хочется понять - почему, дебагай.
Z301171463546 - можно пожертвовать мне денег