18 lines
546 B
Perl
18 lines
546 B
Perl
|
#!/usr/bin/env perl
|
||
|
|
|
||
|
|
my $dir = shift @ARGS;
|
||
|
|
$dir =~ /^(\/.*)\/[^/]*$/ or die( '{error: "invalid_path_expression", message: "Path-Expression is invalid."}');
|
||
|
|
$dir, my $fexpr = $1, $2;
|
||
|
|
$fexpr = /$fexpr/;
|
||
|
|
|
||
|
|
opendir( my $dh, $dir) || die '{error: "dir_not_found", message: "Directory not found."}';
|
||
|
|
while( $filename = readdir( $dh)) {
|
||
|
|
print pack( 'nN/(A*)', 1, $filename);
|
||
|
|
open F, $filename;
|
||
|
|
read STDIN, my $length, 4; # Was wenn < 4 ?
|
||
|
|
seek F, $length, SEEK_SET;
|
||
|
|
print pack( 'nN/(A*)', 2, $r) while read( F, $r, 2048);
|
||
|
|
close F;
|
||
|
|
}
|
||
|
|
closedir $dh;
|