Datei kopieren in Perl ?

Hallo,

1.:
Ich suche den Befehl in perl um eine datei um einen ins andere Verzeichniss zu kopieren ohne die Datei auszulesen und in eine neue reinzuschreiben.

2.:
Wie kann ich prüfen ob eine Datei besteht oder nicht ??

3.:
We kann ich prüfen ob eine Downloadadresse noch vorhanden ist oder nicht ?? Evtl. wie kann ich eine Seite anpingen ??

Danke,
MfG Sebastian

Hallo Sebastian,

1.:
Ich suche den Befehl in perl um eine
datei um einen ins andere Verzeichniss zu
kopieren ohne die Datei auszulesen und in
eine neue reinzuschreiben.

Dafür gibt es das Standardmodul File::Copy:

use File::Copy;
copy($oldfile, $newfile);

oder einfach dein Betriebssystem die Sache
erledigen lassen:

system(„cp $oldfile $newfile“); #Linux
system(„copy $oldfile $newfile“); #DOS

2.:
Wie kann ich prüfen ob eine Datei besteht
oder nicht ??

Dateitestoperatoren verwenden:

if (-e $datei){
print „Datei $datei existiert\n“;
}
if ($groesse = (-s $datei)){
print „Datei $datei existiert und hat die Größe $groesse\n“;
}

3.:
We kann ich prüfen ob eine
Downloadadresse noch vorhanden ist oder
nicht ??

Auch kein Problem:

#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request;
use URI::URL qw(url);

$ua = LWP::UserAgent->new();
$url=„http://localhost/index.hm“;
$ant = $ua->request(HTTP::Request->new(„HEAD“, $url));
if ($ant->is_success) {
print „Seite $url existiert und wurde am „,$ant->last_modified,“ zuletzt geändert\n“;
}
else{
print "$url: Fehler „,$ant->code,“ ", $ant->message, „\n“;
}

4.:
wie kann ich eine Seite anpingen ??

use Net::stuck_out_tongue:ing;
$p=Net::stuck_out_tongue:ing->new();
print „$host ist aktiv\n“ if ($p->ping($host));
$p->close;

Für weitere Infos in den perldocs der
Module nachblättern.

Danke,
MfG Sebastian

Gern geschehen,

Andreas.