[Perl] Новичкам: задаем вопросы

не много не понял ? тоесть надо сохранять в 8859-1?????


HTML лежит в папке www на денвере ведет к файлу .cgi
который лежит в папке cgi-bin это как называется с клиентской или серверной ?

 

В скрипте укажите кодировку

Code:

print header ('-type' => 'text/html', '-charset' => 'utf-8');

А также сообщите апачу в конфиге

Code:

AddDefaultCharset UTF-8

 

помогите поставить лайк под авой в вк. вот мой код

но какотого Х оно не ставит

 

не подкинет кто функцию для перевода времени в формат интернетного ?

 

Code:

perl -le 'print "Internet Time @", int (((time + 3600) % 86400)/86.4);'

А также модуль DateTime::Format::IBeat

 

Отправляю POST'ом некие данные среди которые русский текст. Серверный скрипт потом этот текст шлет мне на мыло - но приходит абракадабра. Если работать с серверным скриптом через мэбморду- все гуд. Как мне нужно обработать русский текст чтобы он доходил к адресату. ЧТо-то тут совсем не пойму с этими кодировками.

 

самое простое - это отправлять post запросом текст в той же кодировке что и страница вебморды

 

cp1251 - юзаю Encode::decode(). не помогает.
Мб закодировать в хтмл кодировочку? нно как.

 

вОБЩЕМ ВОЗНИКЛА ТАКАЯ ПРОБЛЕМА

нужно курлом через пост запрос отправить текст такого содержания

www.google.com.ua/search?client=opera&rls=ru&q=http://bot.hhos.ru/&sourceid=opera&ie=utf-8&oe=utf-8&channel=suggest



но проблема в том што курл обрывает текст на етом знаке &

как быть?

 

Для начала, ваш код.

 

PHP:

$mypost = "http://www.google.com.ua/search?client=opera&rls=ru&q=http://bot.hhos.ru/&sourceid=opera&ie=utf-8&oe=utf-8&channel=suggest";



$cur=curl_init();       
curl_setopt($cur, CURLOPT_URL,'http://site..ru/text.php' );    
curl_setopt($cur,CURLOPT_USERAGENT,"Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.8.131 Version/11.10");    
curl_setopt($cur,CURLOPT_COOKIEJAR,'cookie.txt');       
curl_setopt($cur,CURLOPT_COOKIEFILE,'cookie.txt');      
curl_setopt($cur,CURLOPT_RETURNTRANSFER,1);    
curl_setopt($cur, CURLOPT_POST, 1);         
curl_setopt($cur, CURLOPT_POSTFIELDS, "my=$mypost");    
 curl_exec($cur);   
curl_close($cur);  


 

qaz, вы ошиблись темой?

Code:

array( 'my' => $mypost )

 

кто юзает Tk помогите

Как сделать запретить разворачиваться на весь экран а имело строго фиксированую длину и высоту ??

При нажатии на кнопку предлагалось выбрать и открыть файл содержимое которого при открытии отобразилось в окне text ??

Подскажите русские книги, мануалы, статьи по Tk

 

Code:

my $main = MainWindow->new();
$main->resizable(0,0);

Повесить на кнопку код типа

Code:

my $file = $main->getOpenFile;

а потом вывод значение $file куда требуется

 

Нужно спарсить с сайта все ники юзеров посоветуйте новичку какой модуль использовать и т.д мой первый скрипт на Perl

Code:

<span class="nowrap"><a href="http://site.ruprofile"><img src="/img/spacer.gif"  width="13" height="13" alt="О пользователе" class="female" /></a><span class="nick" style="font-weight: lighter;"><a href="http://site.ru">NICK</a></span></span>

 

Code:

use LWP::Simple;

$page = get("http://site.com");
while($page =~/"female"\ /><\/a><span class="(.*)" style="font-weight: lighter;">/g)
{
      print $1."\n";
}

 

Вот код есть html формачка, ну почему-то все ровно возможно загружать файлы любых размеров....
тестирую в денвере

Code:

#!/usr/bin/perl -w
# upload2.cgi
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
$CGI::POST_MAX = 1024 * 250;   # Limit to 250kb posts...
my $File_Name = param('filename');
my $Mime      = uploadInfo($File_Name)->{'Content-Type'};
print header(-type=>$Mime);
Print_Results();
sub Print_Results{
    my $data;
    if($Mime !~ /text/){
        binmode($File_Name);
        while(read($File_Name, $data, 1024)) { print $data; }
    } 
    else {
        print start_html('File Upload Example 2');
        print qq(<PRE>);
        print qq(<B>File Name:</B> $File_Name\n);
        print qq(<B>File Contents:</B>\n\n);
        while(<$File_Name>) { print; }
        print qq(</PRE>);
        print end_html;
    }
}

 

Есть код
sales.cgi

Code:

#!/usr/bin/perl -w
$l=1;
use strict;
use lib qw(.);
use MyConnect;
my $salesdbh = Myconnect->salesDB;
my $sales_sth = salesdbh->prepare("SELECT * FROM
  table where ID = '5' ORDER BY date");
  $sales_sth->execute;

и код Myconnect.pm

Code:

package MyConnect;
use DBI;
use strict;
sub salesDB {
    my ($sales_dbname, $sales_dbhost) = split(/\@/,$ENV{'SALESDB'});
    my $sales_dsn = "DBI:mysql:database=$sales_dbname;host=$sales_dbhost";
    my $sales_dbh=DBI->connect($sales_dsn, "root", "password");
 if (!defined($sales_dbh)) {
   print "\nerror: There is a problem connecting to the MySQL database:\n";
   print DBI->errstr;
   print "-" x 25 . "\n";
   return;
 }
    return $sales_dbh;
}
1;

База SALESDB в денвере создана
но при запуске sales.cgi вот такие ошибки получаю

 

Done.
a[$i]["Key"] и a[$i]["Data"] Ссылались на один адрес в памяти.

 

$Robin, в данном случае - некорректное использование массивов, плюс $a[1-101]["Data"] у вас пустая. Лучше использовать хэш:

Code:

my %a;
for ( $i = 0; $i <101; $i++ )
	{
		$a{$i}{Key} = int rand(100);
		$a{$i}{Data} = int rand(100);
	}
	
insert(%a);
# print "\%a - $a{1}{Key}, $a{1}{Data}; \%t - $t{1}{Key}, $t{1}{Data};\n";

sub insert {
%tmp = @_; # это нужно только если функция работает в отдельном треде
	for ($i=0; $i<101; $i++ ) {	
		$t{$i}{Key} = $tmp{$i}{Key};
		$t{$i}{Data} = $tmp{$i}{Data};
		}
}