|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 24 Jun 2003 17:42:29
To : "Serg Chervjakov"
Subject : Re: Как узнать путь?
--------------------------------------------------------------------------------
Хмутро.
SC>>> 1 вариант (работает не везде):
SC>>> use Cwd;
SC>>> $path=getcwd;
SC>>> 2 вариант (небыло случая, что б не работал):
SC>>> use POSIX qw();
SC>>> $path = POSIX::getcwd;
AC>> Интересно, если программа выдает результат правильный, но не тот, что
AC>> просили, она считается работающей или где?
SC> Hу я тогда не въезжаю, что просили. Счас запустил (на домашнем компе) -
SC> выдала: E:/PROGRA~1/PERLBU~1/Editor Scripts. Или не это просили?
SC> Hа хостинг лень закачивать... но примерно это и выдает...
Она выдает текущую рабочую директорию, а просили - директорию, в которой
находится скрипт.
==== 8< [/tmp/test.pl] ====
#!/usr/bin/perl -w
use strict;
use Cwd;
print "$0\n";
print getcwd()."\n";
==== >8 [/tmp/test.pl] ====
==== 8< [!/tmp/test.pl] ====
/tmp/test.pl
/home/ran
==== >8 [!/tmp/test.pl] ====
--
Artem Chuprina
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
Fill the difference...
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
