towa shte ti swyrshi li rabota?
--------------------------------------
sub recurs($){
my ($path)=@_;
my @a=glob("\Q$path\E/*")
my $name;
foreach $name (@a) {
if (-f $name) {
my
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blks
ize,$blocks) = stat($name);
# tuka prawish kakwoto prawish s bazata, ili sys wremenen masiw w
kojto pomnish informaciqta za wsichkite failowe
} elsif (-d $name) {
recurs($name);
}
}
recurs("/nachalen/pyt");
-------------------------------------------
> -----Original Message-----
> From: Tosho Yankov [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, December 17, 2002 3:24 PM
> To: BIVOL ONLINE
> Subject: Re[2]: lug-bg: Search engene
>
>
>
>
> sledq s interes temata i poneje ne vdqvam mnogo ot perl .. reshih da
> popitam (a s pitaneto i da dam ideq zastoto tq veche se zarajda kakto
> vijdam)
> znachi az sym opitval s ls (s bash) da vkaram nestata v mySQL i
> posle ot tam da gi vadq koi s kakvoto moje (az moga s PHP).. no ..
> taka i ne mojah da formatiram izhoda na ls kakto iskah da bude. a
> ideqta a e imenno:
> 1.size
> 2.path
> 3.name_file
> 4.type_file (spored razshirenieto (i to case sensitive, t.e. dali sha
> e JPG ili jpg da nqma znachenie))
> i poneje az ne mojah da nakaram izhoda ot ls da izleze v tozi vid ..
> ako nqkoi go napravi obestvam che ste ima PHP search chas sled tova :)
>
>
> --
> Best regards,
> Tosho Yankov
> Support engineer
> S&T Bulgaria e.o.o.d.
> Tel.: (+359 52) 602 510
> (+359 52) 630 991
> Fax.: (+359 52) 630 991
> Mobile: (+359 88) 987 720
> mailto:[EMAIL PROTECTED]
>
> ==============================================================
> ==============
> A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers).
> http://www.linux-bulgaria.org - Hosted by Internet Group Ltd.
> - Stara Zagora
> To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
> ==============================================================
> ==============
>
============================================================================
A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers).
http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora
To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
============================================================================
