nakiálltam kódolgatni.
tud valaki valami módot arra, hogy ezt még rövidebben írjam meg perl-ben?
#!/usr/bin/perl
#megkeresi a helyesen letarolt kepeket.
#a kepekhez kell tartoznia egy kicsinyitett kepnek is
#ami a thumb konyvtarban kell, hogy legyen es egy _t-t is kell tartalmaznia
#valamint ugyan olyan kiterjesztesunek kell lennie
while (<*>){
foreach $baa1 ((".jpg",".jpeg",".png",".gif")){
if(-f $_ && lc =~ /${baa1}$/ && ($last = rindex(lc,$baa1)) != -1 && -f ".\/thumb\/".substr($_,0,$last)."_t".substr($_,$last)){
push(@fajl,$_);
last;
}
}
}
#csak kiiratas
foreach $ki (@fajl){
print $ki,"\n";
}
(a fórum megtöri az if-et)
igazában a while-ban levő részre gondolok leginkább.
thx! :)