🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.perl
Article #51649

Re: Jak skrypt ma się dowiedzieć w jakim jest katalogu?

#51649
From: Maciej Zielenkieiwcz
Date: Fri, 30 Oct 2009 22:48
41 lines
1785 bytes
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;
Technical Details
Message-ID: <hcfqfs$sn3$1@io.staszic.waw.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!newsfeed.atman.pl!news.staszic.waw.pl!not-for-mail
References: <hc92ee$jn3$1@news.onet.pl> <20091028093931.6b8b4567@polsl.pl> <hcfitv$65l$1@news.onet.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!newsfeed.atman.pl!news.staszic.waw.pl!not-for-mail
From: Maciej Zielenkieiwcz <mzielenkiewicz@gmail.com>
Newsgroups: pl.comp.lang.perl
Subject: Re: Jak skrypt ma się dowiedzieć w jakim jest
 katalogu?
Date: Fri, 30 Oct 2009 22:48:28 +0000 (UTC)
Organization: XIV LO im. S. Staszica w Warszawie
Lines: 41
Message-ID: <hcfqfs$sn3$1@io.staszic.waw.pl>
References: <hc92ee$jn3$1@news.onet.pl> <20091028093931.6b8b4567@polsl.pl> <hcfitv$65l$1@news.onet.pl>
NNTP-Posting-Host: io.staszic.waw.pl
Mime-Version: 1.0
X-Trace: node1.news.atman.pl 1256942882 12565 85.232.234.104 (30 Oct 2009 22:48:02 GMT)
X-Complaints-To: usenet@atman.pl
NNTP-Posting-Date: Fri, 30 Oct 2009 22:48:02 +0000 (UTC)
User-Agent: slrn/0.9.9p1 (Linux)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit