Файловый менеджер - Редактировать - /usr/share/perl5/fastcwd.pl
Назад
# By John Bazik # # This library is no longer being maintained, and is included for backward # compatibility with Perl 4 programs which may require it. # # In particular, this should not be used as an example of modern Perl # programming techniques. # # Suggested alternative: Cwd # # Usage: $cwd = &fastcwd; # # This is a faster version of getcwd. It's also more dangerous because # you might chdir out of a directory that you can't chdir back into. sub fastcwd { local($odev, $oino, $cdev, $cino, $tdev, $tino); local(@path, $path); local(*DIR); ($cdev, $cino) = stat('.'); for (;;) { ($odev, $oino) = ($cdev, $cino); chdir('..'); ($cdev, $cino) = stat('.'); last if $odev == $cdev && $oino == $cino; opendir(DIR, '.'); for (;;) { $_ = readdir(DIR); next if $_ eq '.'; next if $_ eq '..'; last unless $_; ($tdev, $tino) = lstat($_); last unless $tdev != $odev || $tino != $oino; } closedir(DIR); unshift(@path, $_); } chdir($path = '/' . join('/', @path)); $path; } 1;
| ver. 1.4 |
Github
|
.
| PHP 7.4.3-4ubuntu2.24 | Генерация страницы: 0 |
proxy
|
phpinfo
|
Настройка