2025-08-13T07:38:01
GwenDragonstat($filename) reicht da nicht?
Doch doch, für meine Zwecke (FTP-Server auf Windows lokal) reicht das. Da genügen auch gefakte Permissions, es muss nur das Schema
ls -l passen, die Größenangabe bei Dateien und das erste Bit ob Datei oder Directory.
Was ich bisher habe:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
sub dir{
shift;
my @names = map{ unpack "A*", $_ } qx(dir /b);
my $res = "";
my @months = qw(Jan Feb Mar Apr Mai Jun Jul Aug Sep Oct Nov Dec);
foreach my $name(@names){
my $stat = [stat($name)];
my @mtime = localtime $stat->[9];
my $day = $mtime[3];
my $mon = $months[$mtime[4]];
my $year = $mtime[5] + 1900;
$res .= sprintf qq(%srw-rw-rw- 1 usr grp %11d %s %02d %04d %s\n),
-d $name ? "d" : "-",
-f $name ? $stat->[7] : 0,
$mon, $day, $year,
$name;
}
return $res;
}
Genügt also meinen Ansprüchen. Ticket kann zu ;)
(das habe ich jetzt entschieden)
mfg
Last edited: 2025-08-13 10:05:43 +0200 (CEST)
Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
![[gelöst]](/battie/theme/default/icons/tick.png "gelöst"){kind=icon}
+11 replies![[Homepage]](/battie/theme/default/homepage.gif)
Schrift
use strict; use warnings;
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
Tags:
Win32![[Powered by Battie]](/battie/img/powered.png)
