Opened by shaihulud at 2006-10-17 19:08
User since
2006-04-12
76 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-04-12
76 Artikel
BenutzerIn
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
# get_format holt sich über den namen der Datei das Format des document
sub get_format{
use strict;
use warnings;
use File::Basename;
my $suffix;
my @files;
my $name = shift;
my $doc_format = shift;
my $srcdir =shift;
foreach my $f (glob( $srcdir."$$name.*" ) ) {
my ($basename, $path, $ext ) = fileparse ( $f, "\..+" );
next if $ext =~ /(JPL|a00)$/;
push( @files, $f );
}
foreach my $ele (@files){
my @s = split(/\./,$ele);
$$doc_format = $s[1];
}
}
hi ich hab gelesen dass es zwischen unix und windows unterschiede gibt zb beim fileparse. Kennt sich da jemand aus und kann mir jemand sagen wie ich es anders schreiben muesste dass es auf unix läuft?
greez danke
P.S.: Die Problematik sieht im großen bild so aus: Mein Programm erstellt html seiten mit pfadangaben auf dokumente.
Bei mir auf dem System (Windoof) geht alles ohne Probleme.Mein Arbeitgeber jedoch arbeitet mit Unix, bei ihm sind die pfade wie bei mir bis auf die tatsache dass die Dateiendung nicht dranhängt. zb:
bei mir: "datei.txt"
bei ihm: "datei."
könnte das an dieser Funktion liegen die ich gepostet habe? speziell an der Regexp bei fileparse?