#!/usr/bin/perl # copy to ~/bin/ use strict; use warnings; use File::Temp qw/tempfile/; use Data::Dumper; use File::Spec; my ($fh, $tmpfile) = tempfile(SUFFIX => '.txt'); printf $fh "\"Dateiname\",\"Grösse in Bytes\",\"Letzte Aenderung\"\n"; foreach my $file (@ARGV) { my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($file); my ($volume,$directories,$filename) = File::Spec->splitpath( $file ); printf $fh "\"%s\",\"%d\",\"%s\"\n", $filename, $size, scalar $mtime; } close $fh; #system("soffice --calc $tmpfile"); system("gedit $tmpfile"); unlink $fh;