@flist = `ls`;
foreach $file (@flist)
{
if ($file=~/(CD|DP).*/i)
{
print "$file";
}
}
Определение файла в Perl.
У меня есть имя файла, мне нужно отделить файлы на чинающиеся с CD и DP, как это сделать, причем регистр у всех разный?
Цитата:
Originally posted by unmoved
У меня есть имя файла, мне нужно отделить файлы на чинающиеся с CD и DP, как это сделать, причем регистр у всех разный?
У меня есть имя файла, мне нужно отделить файлы на чинающиеся с CD и DP, как это сделать, причем регистр у всех разный?
навскидку:
Код:
ЗЫ: может начнем уже книжки читать? это первый класс (перла конечно)...
squirL, не считаю вашу реализацию удачной - нет разделения на файлы и каталоги.
я бы сделал так :
я бы сделал так :
Код:
$dir=".";
opendir(DIR,$dir);
while($file=readdir(DIR)){
if(-f $file and $file=~/^(DP|CD).*/i){
print "$file\n"
}
}
closedir DIR;
opendir(DIR,$dir);
while($file=readdir(DIR)){
if(-f $file and $file=~/^(DP|CD).*/i){
print "$file\n"
}
}
closedir DIR;
Цитата:
ЗЫ: может начнем уже книжки читать? это первый класс (перла конечно)...
+1.
Цитата:
Originally posted by borodatyi
squirL, не считаю вашу реализацию удачной - нет разделения на файлы и каталоги.
squirL, не считаю вашу реализацию удачной - нет разделения на файлы и каталоги.
Код:
$dir=".";
opendir(DIR,$dir);
while($file=readdir(DIR)){
if(-f $file and $file=~/^(DP|CD).*/i){
print "$file\n"
}
}
closedir DIR;
opendir(DIR,$dir);
while($file=readdir(DIR)){
if(-f $file and $file=~/^(DP|CD).*/i){
print "$file\n"
}
}
closedir DIR;
согласен.