Re: jar like feature

You could do:

# use File::Spec if you want to be more portable.
# The following supports at least unix and Windows.
$dir = ($0 =~ m#^(.*[\\/:])# ? $1 : '');

my $logo = $main->Photo(-file=>$dir."samsunglogo.gif");
[download]

# use File::Spec if you want to be more portable.
# The following supports at least unix and Windows.
chdir($1) if ($0 =~ m#^(.*[\\/:])#);

my $logo = $main->Photo(-file=>"samsunglogo.gif");
[download]

Comment on Re: jar like feature Select or Download Code

Replies are listed 'Best First'.
Re^2: jar like feature by TedPride (Priest) on Sep 21, 2004 at 20:09 UTC
I just tested, and $0 works on Mac (MacPerl), so it's probably good across all platforms.	[reply]
Re^3: jar like feature by ikegami (Patriarch) on Sep 21, 2004 at 20:12 UTC
I wasn't refering to $0, but to the path seperator. In unix, it's '/'. In Windows, it can be '\' and ':'. I don't know about other OSs. File::Spec contains functions to parse paths, but I was too lazy to lookup the syntax.	[reply]
Re^4: jar like feature by Anonymous Monk on Sep 22, 2004 at 02:35 UTC
Windows generally accepts forward slashes in addition to the canonical back slashes; it does not use colons -- that's MacOS.	[reply]
Re^5: jar like feature by ikegami (Patriarch) on Sep 22, 2004 at 04:06 UTC
Re^6: jar like feature by Anonymous Monk on Sep 22, 2004 at 09:03 UTC