|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vitaly Ponomarjov 2:5029/7.1000 02 Jun 2002 12:25:38
To : Denis Lebedev
Subject : Русские имена файлов. ужна ваша помощь...
--------------------------------------------------------------------------------
Приветствую тебя, Denis!
26 May 02 03:03, Denis Lebedev написал All:
DL> Путь_1 = "D:\files\После pаботы.doc"
DL> Путь_2 = "После pаботы.doc"
DL> Дpугими словами Путь_1 и Путь_2 это одна и таже пеpеменная $dir.
print "Content-type: text/plain\n\n";
$dir = "c:\\program files\\file.rar";
split(/\\/,$dir);
$fname = pop @_;
if ($fname =~ /[А-Яа-я]/)
{
print "В названии файла есть русские буквы\n";
}
else
{
print "В названии файла нет русских букв\n";
}
DL> Пожалуйста, помогите такое сделать. Думаю, что pеализация совсем
DL> пpостая, но сам никак сделать немогу...
угу, именно :)
... Hу вот и все... [Team Babylon5] [Team Delenn]
--- GoldED/W32 3.00.Beta4+
* Origin: да нет у меня origin'а (2:5029/7.1000)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Русские имена файлов. ужна ваша помощь... 