Opened by Bastl at 2007-11-28 09:05
User since
2007-11-28
1 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-11-28
1 Artikel
BenutzerIn
Hallo,
habe folgende 2 Probleme:
1) Keine Ahnung (mein größtes Problem!)
2) Ich will - muss triffts besser - ein Verzeichniss auf einem SVN-Fileserver durchsuchen, und prüfen ob ein betimmtes Verzeichnis exisitiert.
Das zu suchende Verzeichniss wird als Parameter an mein Skript übergeben....
Das ist meinem Hirn entsprungen:
mit $svn_server_addresse = http://161.66.66.66/repos/TRK/
$ARGV[0] =MyProjPath
Server sieht also so aus: http://161.66.66.66/repos/TRK/MyProjPath/
Wie erwartet klappt es nicht.
Weiß mir einer zu helfen? Wäre echt nett.
Viele Grüße,
Basti.
habe folgende 2 Probleme:
1) Keine Ahnung (mein größtes Problem!)
2) Ich will - muss triffts besser - ein Verzeichniss auf einem SVN-Fileserver durchsuchen, und prüfen ob ein betimmtes Verzeichnis exisitiert.
Das zu suchende Verzeichniss wird als Parameter an mein Skript übergeben....
Das ist meinem Hirn entsprungen:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
if (!defined($ARGV[0])){
print "Projektpfad fehlt!";
die "Programm beendet!";
}
else {
# Prüfen ob Verzeichniss exisitiert
find(\&wanted, "$svn_server_addresse");
sub wanted {
if ( $File::Find::name =~ $$ARGV[0] ) {print " \nVerzeichnis gefunden!";}
else {print "Verzeichnis nicht gefunden!\n" ;}
}mit $svn_server_addresse = http://161.66.66.66/repos/TRK/
$ARGV[0] =MyProjPath
Server sieht also so aus: http://161.66.66.66/repos/TRK/MyProjPath/
Wie erwartet klappt es nicht.
Weiß mir einer zu helfen? Wäre echt nett.
Viele Grüße,
Basti.