Eigenen Dateinamen herausfinden: Eigenen Dateinamen herausfinden (Allgemeines zu Perl)

[thread]5929[/thread]

Eigenen Dateinamen herausfinden: Eigenen Dateinamen herausfinden

jane_templar

2003-11-26 07:40

User since
2003-11-26
23 Artikel
BenutzerIn
[default_avatar]

Hallo, hallo,

wie kann ich denn am einfachsten den Datei-Namen der aufgerufenen Perl-Datei ermitteln ???

Danke!

JanE

esskar

2003-11-26 08:15

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

Code: (dl )

1
2
3

my ($package, $filename, $line) = caller;

print "Script $filename ruft in $package und Zeile $line die Funktion caller auf\n";

kabel

2003-11-26 08:21

User since
2003-08-04
704 Artikel
BenutzerIn
[default_avatar]

aus perlvar:

Quote
$0 Contains the name of the program being executed. [...]

HTH

-- stefan

Cremator

2003-11-28 17:27

User since
2003-11-26
97 Artikel
BenutzerIn
[default_avatar]

Weitere Alternative waere das Modul Findbin

Strat

2003-11-29 00:41

User since
2003-08-04
5246 Artikel
ModeratorIn

der steht in der variablen $0 (Null)... (eventuell mit Pfad)

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Crian

2003-11-29 16:15

User since
2003-08-04
5866 Artikel
ModeratorIn

Möchte man den Pfad loswerden, hilft einem das Modul File::Basename.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View all threads created 2003-11-26 07:40.