Thread Frage zur Benutzung des Packages MIME::Lite (26 answers)
Opened by Duff at 2007-10-18 15:57

renee
 2007-10-19 12:28
#101090 #101090
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Vielleicht versteht man es so besser:
Code (perl): (dl )
1
2
3
4
5
6
7
8

#!/usr/bin/perl

use FindBin;

my $dir = $FindBin::RealBin;
print $dir,"\n";
$dir .= '/perl';
print $dir,"\n";


oder
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10

#!/usr/bin/perl

use File::Spec;
use File::Basename qw(dirname);

my $dir = dirname(File::Spec->rel2abs(__FILE__));

print $dir,"\n";
$dir .= '/perl';
print $dir,"\n";


oder
Code (perl): (dl )
1
2
3
4
5
6
7
8
9

#!/usr/bin/perl

use Dir::Self;

my $dir =   __DIR__;

print $dir,"\n";
$dir .= '/perl';
print $dir,"\n";
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/

View full thread Frage zur Benutzung des Packages MIME::Lite