Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]8047[/thread]

Wo bin ich?: Verzeichnis des Perl-Skriptes ermitteln

Leser: 2


<< |< 1 2 >| >> 18 Einträge, 2 Seiten
Herr_Cisie
 2006-06-02 15:23
#66931 #66931
User since
2006-04-10
17 Artikel
BenutzerIn
[default_avatar]
Hallo,

eine kurze Frage:
Gibt es unter den zig perlvars eine, die das Verzeichnis, in dem das Perl-Skript liegt, ausgibt?

Würd gern ohne betriebssystemspezifische Kommandos wie "cd" (wußte bis vor kurzem gar nicht, dass "chdir" ohne Pfad den aktuellen ausgibt) oder "pwd" auskommen...


Danke und Gruß,
Christoph
esskar
 2006-06-02 15:27
#66932 #66932
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
Code: (dl )
1
2
use FindBin;
print $FindBin::Bin;
Strat
 2006-06-02 15:43
#66933 #66933
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
nicht ganz, aber CPAN:FindBin liefert dir $FindBin::Bin, die den Pfad enthaelt
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
Herr_Cisie
 2006-06-02 15:50
#66934 #66934
User since
2006-04-10
17 Artikel
BenutzerIn
[default_avatar]
Danke für die Info!

@strat:
Ist das nicht genau das Gleiche was esskar bereits geschrieben hat?

Oder bezogst Du Dich auf meinen Beitrag?
renee
 2006-06-02 21:53
#66935 #66935
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Besser:
Code: (dl )
1
2
use FindBin ();
print $FindBin::RealBin;


Dann sind die Links aufgelöst...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
pq
 2006-06-02 23:05
#66936 #66936
User since
2003-08-04
12209 Artikel
Admin1
[Homepage]
user image
[quote=Herr_Cisie,02.06.2006, 13:23]Würd gern ohne betriebssystemspezifische Kommandos wie "cd" (wußte bis vor kurzem gar nicht, dass "chdir" ohne Pfad den aktuellen ausgibt) oder "pwd" auskommen...[/quote]
'pwd' und der ort, wo das skript liegt, ist aber was unterschiedliches.
es kann natürlich gleich sein.
falls du den aktuellen pfad meinst, in dem du dich befindest, brauchst
du das modul Cwd;
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
Herr_Cisie
 2006-06-03 01:52
#66937 #66937
User since
2006-04-10
17 Artikel
BenutzerIn
[default_avatar]
[quote=renee,02.06.2006, 19:53]Besser:
Code: (dl )
1
2
use FindBin ();
print $FindBin::RealBin;


Dann sind die Links aufgelöst...[/quote]
Mit "Links aufgelöst" meinst Du sicher die symbolic Links unter Unix...

Mit $FindBin::Bin hab ichs jetzt implementiert. Da das ganze wohl doch nur unter Windows zum Einsatz kommt, sollte dies ausreichen.

Nochmals Danke!
esskar
 2006-06-03 02:22
#66938 #66938
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
[quote=Herr_Cisie,02.06.2006, 13:50]@strat:
Ist das nicht genau das Gleiche was esskar bereits geschrieben hat?[/quote]
manchmal hält doppelt einfach besser!
nepos
 2006-06-03 13:29
#66939 #66939
User since
2005-08-17
1420 Artikel
BenutzerIn
[Homepage] [default_avatar]
Quote
Mit "Links aufgelöst" meinst Du sicher die symbolic Links unter Unix...

Vorsicht, auch Windows beherrscht sowas mit NFTS.
GwenDragon
 2006-06-03 16:43
#66940 #66940
User since
2005-01-17
14875 Artikel
Admin1
[Homepage]
user image
[quote=nepos,03.06.2006, 11:29]
Quote
Mit "Links aufgelöst" meinst Du sicher die symbolic Links unter Unix...

Vorsicht, auch Windows beherrscht sowas mit NFTS.[/quote]
Ja. Ein anderes Dateisystem, sollte dort nicht zur Anwendung kommen.

Unter NTFS gibt es sogar Hardlinks auf Laufwerke.\n\n

<!--EDIT|GwenDragon|1149338648-->
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
<< |< 1 2 >| >> 18 Einträge, 2 Seiten



View all threads created 2006-06-02 15:23.