1 Datei in mehrer Verzeichnisse kopieren?

[_m3]

#!/usr/bin/perl

# Usage:
#        Parameter 1: Das zu kopierende File
#        Parameter 2: Das zu durchsuchende Verzeichnis
#        Parameter 3: Der zu suchende Verzeichnisname
# Verzeichnisse & Files muessen full-qualified angegeben werden !!!
# eg.: multicp.pl /tmp/script.pl /usr/local/apache/htdocs cgi-bin

require v5.6.1;
use strict;
use File::Find;
use File::Copy;

find( {bydepth => 1, wanted => \&nix, preprocess => \&multicp}, $ARGV[1]);

sub multicp {
	if($File::Find::dir =~ /$ARGV[2]$/) {
		if( not copy( $ARGV[0], $File::Find::dir) ) {
			print STDERR "$ARGV[0] couldn' be copied to $File::Find::dir\nGrund: $!\n";
		}
	}
	return (@_);
}

sub nix {;}

[artemisia]

@_m3

mh ...... also schlecht wäre es jetzt nicht, wenn du noch tcl/tk miteinbinden würdest und ein gui implementierst, das gleichzeitig das neue rtl-prog, die titelseite vom focus, die neusten börsenkurse, die gestrige temperatur und die schönsten klatschgeschichten aus den wiener kaffeehäusern anbietest ... wenn schon, denn schon.

greetz
artemisia ;-)

[Flink]

@artemisias1:

Original geschrieben von artemisias1
sagemal, warum probierst du deine vorschläge vorher nicht einfach aus, bevor du sie ins forum stellst?
dein erster vorschlag findet das verzeichnis cgi-bin nur im aktuellen verzeichnis.
dein zweiter vorschlag funktioniert natürlich auch nicht. die datei script.pl wird nur in das letzte cgi-bin verzeichnis kopiert.

1. Ich kann auf dem Firmen-Rechner nicht UNIX etc. installieren oder aufrufen.
2. mein erster Vorschlag findet alle Verzeichnisse ab dem aktuellen
3. alle Angaben sind ohne Gewähr. Ich darf davon ausgehen, daß Sloter soviel Grundkenntnisse mitbringt, um hier keinen Blödsinn anzustellen und vorher selber noch im MAN nachsieht.
4. Mag sein, daß mein 2. Vorschlag nicht funktioniert. Das wollte ich selber wissen, ob es so läuft.

[artemisia]

Original geschrieben von Flink
1. Ich kann auf dem Firmen-Rechner nicht UNIX etc. installieren oder aufrufen.
2. mein erster Vorschlag findet alle Verzeichnisse ab dem aktuellen
3. alle Angaben sind ohne Gewähr. Ich darf davon ausgehen, daß Sloter soviel Grundkenntnisse mitbringt, um hier keinen Blödsinn anzustellen und vorher selber noch im MAN nachsieht.
4. Mag sein, daß mein 2. Vorschlag nicht funktioniert. Das wollte ich selber wissen, ob es so läuft.

ad 1. ...tja des tut mir leid für dich ...und das als programmierer

ad 2. mit deinem vorschlag findest du nicht alle verzeichenisse cgi- bin ab dem aktuellen, sondern nur eins, falls es existiert,
eben cgi-bin, aber kein cgi-bin2 oder www/cgi-bin usw usw usw

find -type d -name "*cgi-bin*" -print

wenn du unbedingt willst, kannst du die anführungszeichen
weglassen:
find -type d -name *cgi-bin* -print

und bei vielen versionen auch -print:
find -type d -name *cgi-bin*

aber auf keinen fall die wildcards
das funktioniert auf jeden fall nicht
außerdem verzeichnis cgi-bin werden keine weiteren gefunden

ad 3. dazu sag i nix

ad 4. mh ... ich glaub dazu sag ich a nix ...

greetz
artemisia

[citizen428]

Original geschrieben von artemisias1
@_m3

mh ...... also schlecht wäre es jetzt nicht, wenn du noch tcl/tk miteinbinden würdest und ein gui implementierst, das gleichzeitig das neue rtl-prog, die titelseite vom focus, die neusten börsenkurse, die gestrige temperatur und die schönsten klatschgeschichten aus den wiener kaffeehäusern anbietest ... wenn schon, denn schon.

Du hast was vergessen arte:

_m3 sollte auch noch die ursprüngliche Funktion ausschalten und das ganze als revolutionäres neues OS verkaufen

SCNR,
citizen428

[artemisia]

@citizen

pssst ....

ned alles dem _m3 verraten ....

greetz
arte ;-)