RE: Re[2]: lug-bg: Search engene

[bkrosnov@xxxxxxxx (Boyan Krosnov)]

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:t.yankov@xxxxxxxxxxxxx] 
> 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:t.yankov@xxxxxxxxxxxxx
> 
> ==============================================================
> ==============
> 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
============================================================================