VPF::Как оставить расширение файла

agalex

Дата 28.9.2009, 18:36 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 14.2.2009

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

Здравствуйте!

У меня вопрос. Просто не могу найти (или плохо искал) инфу как сделать так. При загрузке файла на сервер, на форме пишут имя, берут файл и отправляют. Как сделать что бы осталось и добавилось к имени расширение файла. Например выбрали Excel вписали имя и автоматом + .xls или там PDF то к имени +.pdf и тд. Какой файл отправляют что бы оставалось расширение его.

У меня код такой

Код


#!/usr/bin/perl -w
use strict;
use CGI qw(param);

my $file = param('file') ? param('file') : 'none';
if ($file eq 'none') { 
print "Content-type: text/html; charset=windows-1251\n\n";
print '<form action="" method=post enctype="multipart/form-data">
  <input name="nameF" type="text" size="60">
  <br>
<input type="file" size="60" name="file">
<input type="submit" value="Upload"></form>';
exit;
} else { 

my $firma = param('nameF');                                                                       # Имя которые руками вписывают с формы.
my $file_name = $firma; 



open (FILE, ">$file_name") || die "Can not open file! $file_name!";
binmode FILE;
flock (FILE, 2);
print FILE while (<$file>);
close FILE; close $file_name;
chmod 0644, $file_name;
print "Content-type: text/html; charset=windows-1251\n\n";
print "Загрузили!";
exit;
}

Спасибо!

amg

Дата 29.9.2009, 04:49 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

Репутация: 1
Всего: 50

Код

(my $ext) = $file =~ /(\..+)$/ || '';

Paul56

Дата 30.9.2009, 05:44 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 59
Регистрация: 19.9.2008
Где: Екатеринбург

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

Код


my $file = param('file');        
my @fa = split(/\./, $file);
$fa[$#fa] # - тут, то что Вам нужно.

amg

Дата 1.10.2009, 08:51 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

Репутация: 1
Всего: 50

Цитата(Paul56 @ 30.9.2009, 05:44

)

тут, то что Вам нужно.

Не всегда:

Код

my $file = 'file';        
my @fa = split(/\./, $file);
print "$fa[$#fa]\n";

agalex

Дата 2.10.2009, 10:04 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 14.2.2009

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

Спасибо amg!
Я сделал все работает.

Благодарствую всем за помощь.

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