Помогите, please!
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Помогите, please! - 2006-11-12 22:08:27.913333
|
|
|
SantaS
Сообщений: 99
Оценки: 0
Присоединился: 2006-09-23 21:49:06.040000
|
#!/usr/bin/perl
sub tree
{
local (*ROOT);
my ($root) = $_[0];
opendir ROOT, $root;
my (@filelist) readdir ROOT;
closedir ROOT;
for $x (@filelist)
{
if($x ne "." and $x ne "..")
{
$x = $root."/".$x;
print "$x\n" if (-f $x);
if(-d $x)
{
print "$x;\n" ;
tree($x);
}
}
}
}
Объясните что в условии if($x ne "." and $x ne "..") делает "ne". а так же условия if (-f $x) и if(-d $x)
что делает -f и -d ?
|
|
|
|
|
RE: Помогите, please! - 2006-11-12 22:18:33.710000
|
|
|
TheFeaR
Сообщений: 1923
Оценки: 0
Присоединился: 2006-01-25 18:16:33
|
ne эквивалентно != ( не равно) токо в текстовом варианте и вроде как для текста
|
|
|
|
|
RE: Помогите, please! - 2006-11-12 22:56:12.866666
|
|
|
SantaS
Сообщений: 99
Оценки: 0
Присоединился: 2006-09-23 21:49:06.040000
|
И на том спасибо!
|
|
|
|
|
|
