files löschen

Hallo zusammen,

ich möchte gerne in einem Directory Dateien löschen, die nicht
allockiert von einem Prozess (fuser raus finden. wie kann ich das
realisieren? sollte es so ausehen:

Der input aus ls -ltr soll in [at] files eingetragen werden und dann die
Files nach und nach bearbeiten
z.B.
fuser file1.txt
wenn kein Prozess drauf schreibt dann
rm file1.txt
.....
ich habe eine kleine Script geschrieben aber mir fehlt, wie ich fuser
und ls -ltr im Script einbaue:(


----------Script Begin ---------

#!/usr/bin/perl

print "offredologs löschen \n\n";
[at] files = ("file1.txt","file2.txt","file3.txt", "file4.txt ...");
foreach $file ( [at] files)
{
sleep(5);
unlink($file);
if (unlink($file) == 0)
{
print "File deleted successfully.\n";
} else {
print "File was not deleted.";
}
}
----------Script Ende ---------

Danke im Voraus

Harouri


--
Posted via Mailgate.ORG Server - http://www.Mailgate.ORG
Ahmed Harouri [ Di, 14 November 2006 10:50 ] [ ID #1535751 ]

Re: files löschen

Hallo,

Ahmed Harouri wrote:

> Hallo zusammen,
> ....
> ich habe eine kleine Script geschrieben aber mir fehlt, wie ich fuser
> und ls -ltr im Script einbaue:(
>
Versuchs mal mit "backticks":
my [at] files=`ls -ltr|grep fuser`;
Reinhard Pagitsch [ Mi, 15 November 2006 10:52 ] [ ID #1537290 ]

Re: files löschen

"Reinhard Pagitsch" <rprp [at] gmx.net> wrote in message
news:ejeo0n$2v5c$1 [at] geiz-ist-geil.priv.at

> Hallo,
>
> Ahmed Harouri wrote:
>
> > Hallo zusammen,
> > ....
> > ich habe eine kleine Script geschrieben aber mir fehlt, wie ich fuser
> > und ls -ltr im Script einbaue:(
> >
> Versuchs mal mit "backticks":
> my [at] files=`ls -ltr|grep fuser`;



Hallo,

Danke für die Antwort. mein Problem ist folgendes
soll eine ls -ltr auf dem Verzeichniss durschgefürt und anschliessend
fuser auf alle Datein absetzen

z.B.
unix$ ls -ltr
total 20
-rw-r----- 1 oracle dba 4891 Jul 8 2005 aha.sql
-rw-r----- 1 oracle dba 2105 Nov 8 2005 temp.tmp
-rw-r----- 1 oracle dba 342 Nov 14 09:47 test.pl
-rw-r----- 1 oracle dba 360 Nov 14 10:08 test1.pl
unix$
unix$ fuser *
aha.sql:
temp.tmp:
test.pl:
test1.pl:

Danke und Gruß
Harouri




--
Posted via Mailgate.ORG Server - http://www.Mailgate.ORG
Ahmed Harouri [ Do, 16 November 2006 11:44 ] [ ID #1538598 ]

Re: files löschen

Ahmed Harouri schrieb:

> Danke für die Antwort. mein Problem ist folgendes
> soll eine ls -ltr auf dem Verzeichniss durschgefürt und anschliessend
> fuser auf alle Datein absetzen

Für manche Probleme muß es nicht unbedingt perl sein. Was spricht
gegen:
fuser $(ls)
oder gar
fuser *
Ingo Menger [ Do, 16 November 2006 13:56 ] [ ID #1538600 ]
Perl » de.comp.lang.perl.misc » files löschen

Vorheriges Thema: Zuweisung von Tags
Nächstes Thema: print