точно все правильно, это мой наверно косяк что не заметил такой простой вещи
)
огромное спасибо все работает. вот как еще доделал для своих нужд, может что скажите как лучше
opendir (G,"$tmpdir") or die $!; @z=grep (/тутобратный слеш.zip/i,readdir G); closedir(G);
@x = sort by_n @z;
foreach (@x)
{
system `7za.exe e -o$tmplogs $tmpdir/$_`;
system `build.exe`;
}
sub by_n { my $aa=(split(/\\./,$b))[2]; my $ab=(split(/\\./,$a))[2]; return ($aa <=> $ab); }