Migrationstools ? - #28612 (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

renee

2006-08-18 10:18

User since
2003-08-04
14371 Artikel
ModeratorIn

Stell Dir vor, Du hast das Skript in /homes/user/skripte und hast auch eine Datei, die Du einlesen willst in diesem Verzeichnis.

In dem Skript steht

Code: (dl )

1
2
3

my $file = './file.txt';
open(my $fh,'<',$file) or die $!;
#....

Wenn Du das Skript von /homes/user/skripte aus startest, dann klappt alles einwandfrei.

Wenn Du das Skript aber von /homes/user aus startest, dann versucht das Skript eine Datei /homes/user/file.txt zu öffnen, die es aber sehr wahrscheinlich nicht gibt.

Mit dem

Code: (dl )

1
2
3

use FindBin ();

my $file = $FindBin::Bin . '/file.txt';

wird das Skript immer die Datei file.txt, die im gleichen Verzeichnis wie das Skript liegt, öffnen.

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/