Ausgabedaten von net:ssh:perl command - #103827 (Netzwerkprogrammierung und Netzwerke mit Perl)

murphy

2007-12-13 16:14

User since
2004-07-19
1776 Artikel
HausmeisterIn

Gast+2007-12-13 11:47:33--
[...]
Falls ihr noch einen anderen , besseren/einfacheren weg kennt, um das alter von dateien herauszubekommen, wär ich sehr angetan, wenn ihr den posten könntet :D

Um alle Dateien eines bestimmten Alters zu finden, bietet find einige Möglichkeiten. Zum Beispiel liefert find . -maxdepth 1 -newermt '1 hour ago' alle Dateien im aktuellen Verzeichnis, die in der letzten Stunde modifiziert wurden.

Vielleicht ist es auch praktisch, das Alter einer Datei direkt aus Perl heraus zu bestimmen:

Code (perl): (dl )

use strict;
use warnings;

my $file = $ARGV[0] or die "No argument given\n";
my $age = time - (stat($file))[9];

print "$file was last modified $age seconds ago\n";

When C++ is your hammer, every problem looks like your thumb.