Zugriff auf Server-Verzeichnis (Allgemeines zu Perl)

[thread]10908[/thread]

Zugriff auf Server-Verzeichnis

Bastl

2007-11-28 09:05

User since
2007-11-28
1 Artikel
BenutzerIn
[default_avatar]

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:

Code: (dl )

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.

Siechfred

2007-11-28 10:10

User since
2007-11-12
30 Artikel
BenutzerIn
[default_avatar]

File::Find erwartet einen Pfad, keine URL, Du kannst nicht mal eben so Verzeichnisse auf entfernetn Servern auslesen. Abgesehen davon sehe ich nirgendwo, wo Du den übergebenen Projektpfad und $svn_server_adresse zusammensetzt.

Ansonsten gibt es auf CPAN diverse SVN-Pakete, z.B. CPAN:

SVN-Web oder CPAN:

Alien-SVN.

Siechfred

View all threads created 2007-11-28 09:05.