🚀 go-pugleaf

Slawek wrote:
> Jak skrypt ma się dowiedzieć w jakim jest katalogu?

use Cwd;
print getcwd;

> W faq znalazłem tylko jak sprawdzić bieżący katalog czyli skąd skrypt został 
> uruchomiony
> a to nie to samo.

Co to jest wg. Ciebie ,,katalog skąd skrypt został uruchomiony''

Jeżeli skrypt zmienia katalog bieżący procesu, to nie jesteś później
w stanie ustalić, jaki katalog był bieżącym w momencie jego uruchamiania
(oczywiście, jeśli sobie tego nie zapamiętasz wcześniej).

Jeżeli Cię interesuje w którym katalogu jest sam skrypt to użyj:

    use FindBin;
    print $FindBin::Bin;

ale to nie jest katalog bieżący i nie ma żadnej potrzeby, aby proces do
niego wchodził.

>Jeżeli Cię interesuje w którym katalogu jest sam skrypt to użyj:
>    use FindBin;
>    print $FindBin::Bin;

Dziękuje :) dokładnie o to chodziło.

>Co to jest wg. Ciebie ,,katalog skąd skrypt został uruchomiony''

sorry ale nie wiem co tu tłumaczyć, jest to katalog bieżący ale ...
równie dobrze ktoś może być w katalogu /root  i uruchomić mój skrypt po 
przez  /home/users/ja/mojskrypt.pl
Jeżeli w tym przypadku skorzystam z
print getcwd;   => wynikiem będzie /root
i otrzymam informacje nieużyteczne dla mojego skryptu i skrypt może nie 
działać prawidłowo.
skorzystanie natomiast z
print $FindBin::Bin;   => wynikiem będzie /home/users/ja
i w tym przypadku skrypt może mieć dostęp do swoich plików pomocniczych.

Pozdr.
Sławek

Slawek wrote:
> sorry ale nie wiem co tu tłumaczyć, jest to katalog bieżący ale ...
> równie dobrze ktoś może być w katalogu /root  i uruchomić mój skrypt po 
> przez  /home/users/ja/mojskrypt.pl

Pokręciłeś nazewnictwo i stąd moje pytanie. Katalog bieżący to jest
właściwość procesu i jest on całkowicie niezależny od katalogu w którym
umieszczona jest uruchamiana binarka. A Ty pytałeś o to drugie.

> Pokręciłeś nazewnictwo i stąd moje pytanie. Katalog bieżący to jest
> właściwość procesu i jest on całkowicie niezależny od katalogu w którym
> umieszczona jest uruchamiana binarka. A Ty pytałeś o to drugie.

ok.

ale skrypcik już działa prawidłowo.
Jeszcze raz dziękuje i pozdrawiam

Sławek

Adam Osuchowski pisze:
> Slawek wrote:
>> W faq znalazłem tylko jak sprawdzić bieżący katalog czyli skąd skrypt został 
>> uruchomiony
>> a to nie to samo.
> 
> Co to jest wg. Ciebie ,,katalog skąd skrypt został uruchomiony''
> 
> Jeżeli skrypt zmienia katalog bieżący procesu, to nie jesteś później
> w stanie ustalić, jaki katalog był bieżącym w momencie jego uruchamiania
> (oczywiście, jeśli sobie tego nie zapamiętasz wcześniej).

Oczywiście, że jesteś w stanie:

#!perl -l

use Cwd;
print $0,' ',getcwd;
chdir 'D:\\';
print $0,' ',getcwd;

daje taki wynik:
C:\temp>abc.pl
C:\temp\abc.pl C:/temp
C:\temp\abc.pl D:/

C:\temp>

czyli mówiąc wprost: można "katalog skąd skrypt został uruchomiony" 
wyczytać ze zmiennej $0.

-- 
grizzley

Maciej Misiak wrote:
> Oczywiście, że jesteś w stanie:

Owszem, nie jestem. Przeczytaj dokładnie o czym pisałem. Ty podajesz
sposób na ustalenie, w którym katalogu leży wykonywany skrypt, bo to
pośrednio zawiera $0 (a wprost zawarte jest w $FindBin::Bin), natomiast
ja pisałem o _katalogu_bieżącym_, a to jest zupełnie co innego. Po zmianie
katalogu bieżącego, jeżeli wcześniej jawnie nie zapamiętałeś jego
poprzedniej wartości, nie masz możliwości ustalenia jaki był.

> czyli mówiąc wprost: można "katalog skąd skrypt został uruchomiony" 
> wyczytać ze zmiennej $0.

Pomijając fakt, że $0 zawiera ścieżkę do skryptu, więc aby otrzymać
sam katalog trzeba odciąć jej ostatni człon, co m.in. robi FindBin.

On 2009-10-30 20:39, Maciej Misiak <grizzley@poczta.onet.pl> wrote:
> Adam Osuchowski pisze:
>> Slawek wrote:
>> Jeżeli skrypt zmienia katalog bieżący procesu, to nie jesteś później
>> w stanie ustalić, jaki katalog był bieżącym w momencie jego uruchamiania
>> (oczywiście, jeśli sobie tego nie zapamiętasz wcześniej).
>
> Oczywiście, że jesteś w stanie:
>
> #!perl -l
>
> use Cwd;
> print $0,' ',getcwd;
> chdir 'D:\\';
> print $0,' ',getcwd;
>
> daje taki wynik:
> C:\temp>abc.pl
> C:\temp\abc.pl C:/temp
> C:\temp\abc.pl D:/
>
> C:\temp>
>
> czyli mówiąc wprost: można "katalog skąd skrypt został uruchomiony" 
> wyczytać ze zmiennej $0.

W ogólności to nie jest prawda.

$ pwd
/tmp/pl 
$ ./x.pl
./x.pl /tmp/pl
./x.pl /home

Przy czym x.pl zawiera:

#!/usr/bin/perl -l
use Cwd;
print $0,' ',getcwd;
chdir '/home';
print $0,' ',getcwd;

Maciej Zielenkieiwcz pisze:
> On 2009-10-30 20:39, Maciej Misiak <grizzley@poczta.onet.pl> wrote:
>> Adam Osuchowski pisze:
>>> Slawek wrote:
>>> Jeżeli skrypt zmienia katalog bieżący procesu, to nie jesteś później
>>> w stanie ustalić, jaki katalog był bieżącym w momencie jego uruchamiania
>>> (oczywiście, jeśli sobie tego nie zapamiętasz wcześniej).
>> Oczywiście, że jesteś w stanie:
>>
>> #!perl -l
>>
>> use Cwd;
>> print $0,' ',getcwd;
>> chdir 'D:\\';
>> print $0,' ',getcwd;
>>
>> daje taki wynik:
>> C:\temp>abc.pl
>> C:\temp\abc.pl C:/temp
>> C:\temp\abc.pl D:/
>>
>> C:\temp>
>>
>> czyli mówiąc wprost: można "katalog skąd skrypt został uruchomiony" 
>> wyczytać ze zmiennej $0.
> 
> W ogólności to nie jest prawda.
> 
> $ pwd
> /tmp/pl 
> $ ./x.pl
> ./x.pl /tmp/pl
> ./x.pl /home
> 
> Przy czym x.pl zawiera:
> 
> #!/usr/bin/perl -l
> use Cwd;
> print $0,' ',getcwd;
> chdir '/home';
> print $0,' ',getcwd;

No to najwidoczniej raz jeden Winzgroza przeważa nad linuksami, bo 
niezależnie od wywołania $0 zawiera pełną ścieżkę :)

C:\>temp\abc.pl
C:\temp\abc.pl C:/
C:\temp\abc.pl D:/

C:\>cd temp

C:\temp>.\abc.pl
C:\temp\abc.pl C:/temp
C:\temp\abc.pl D:/

C:\temp>\temp\abc.pl
C:\temp\abc.pl C:/temp
C:\temp\abc.pl D:/

C:\temp>

-- 
grizzley

Adam Osuchowski pisze:
> Maciej Misiak wrote:
>> Oczywiście, że jesteś w stanie:
> 
> Owszem, nie jestem. Przeczytaj dokładnie o czym pisałem. Ty podajesz
> sposób na ustalenie, w którym katalogu leży wykonywany skrypt, bo to
> pośrednio zawiera $0 (a wprost zawarte jest w $FindBin::Bin), natomiast
> ja pisałem o _katalogu_bieżącym_, a to jest zupełnie co innego. Po zmianie
> katalogu bieżącego, jeżeli wcześniej jawnie nie zapamiętałeś jego
> poprzedniej wartości, nie masz możliwości ustalenia jaki był.

Aaa, spoko. Powinienem się podpiąć bezpośrednio pod pytanie OP z 
poprzednim postem, bo tego potrzebował.

-- 
grizzley