VPF::Ссылки - Форум программистов

Дата 1.9.2005, 10:47 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Вот код:

Код


sub poisk{
my $param=$cgi->param('param');
my $sid = $cgi->param('sid');
my $sess_ID = new CGI::Session("driver:File", "$sid", {Directory=>'../publik_html/session/'});
my $id = $sess_ID -> id();
$sess_ID -> flush();
$sess_ID -> close(); 
open(HJ,"<$file_1")|| die "file_1 error!!!\n";
open(JK,">>$file_2")|| die "file_2 error!!!\n";
while(<HJ>){
print JK if /\s$param\s/;
}
close(HJ);
close(JK);
open(JK,"<$file_2")|| die "fail $file_2 error!!!\n";

# Вот тут создаю ссылки и вывожу в броузер
print $cgi->a( { -href => "http://localhost/cgi-bin/zakaz.pl?vino=$_"}, ),$cgi->br;

while(<JK>){
# Вот тут создаю ссылки и вывожу в броузер
print $cgi->a( { -href => "http://localhost/cgi-bin/zakaz.pl?vino=$_"}, $_ ), $cgi->br;
}
close(JK);
unlink("$test");
};

Так вот такой вопрос, как мне вставить в каждую ссылку идент-катор $id ?
Второй вопрос: можно ведь укоротить код за счет того как открывать файл(чтение, запись/чтение). Спасибо.

Дата 1.9.2005, 13:17 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Вот блин, что-то затупил, вот так будет правильней:

Код


sub poisk{
my $param=$cgi->param('param');
my $sid = $cgi->param('sid');
my $sess_ID = new CGI::Session("driver:File", "$sid", {Directory=>'../publik_html/session/'});
my $id = $sess_ID -> id();
$sess_ID -> flush();
$sess_ID -> close(); 
open(HJ,"<$file_1")|| die "file_1 error!!!\n";
open(JK,">>$file_2")|| die "file_2 error!!!\n";
while(<HJ>){
print JK if /\s$param\s/;
}
close(HJ);
close(JK);
open(JK,"<$file_2")|| die "fail $file_2 error!!!\n";

while(<JK>){
# Вот тут создаю ссылки и вывожу в броузер
print $cgi->a( { -href => "http://localhost/cgi-bin/zakaz.pl?vino=$_&sid=$id "}, $_ ), $cgi->br;
}
close(JK);
unlink("$test");
};

А вот с файлами вопрос не закрыт, может руки кривые?
P.s. Пора-бы с утра похмелятся smile

sharq

Дата 2.9.2005, 00:09 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 2
Всего: 28

r плохо документацию читаешь:

Цитата(r @ 1.9.2005, 14:17)

$sess_ID -> flush();
$sess_ID -> close();

Метод close вызывает flush автоматически и лучше не использовать close.

Что-то ты с файлами намудрил... лишнюю работу делаешь...
Нашел то, что тебе нужно в первом файле, записал во второй и сразу же вывел в виде ссылки на экран.

smile

--------------------

[color=gray]There's More Than One Way To Do It[/color]

Дата 2.9.2005, 00:29 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Ага, пиво с утра не попил. smile

Спасибо.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »