Perl Verzeichnis auslesen und erste Datei zurückgeben

Hey,

ich habe ein Problem. Ich möchte gerne eine .csv Datei zippen. Die .csv Datei und mein Perl Programm liegen in einem Ordner. Jedoch möchte ich gerne das mein Perl den aktuellen Ordner durchsucht und die ganzen Dateien dann nach Datum sortiert, und mir dann am besten die neueste Datei in dem Ordner zippt. Kann mir jemand meinen Code im Anhang korrigieren oder sagen was ich machen muss? Wäre nett. Liebe Grüße

 
my $verz = cwd();

my $dir = $verz;
my @dir;

opendir (DIR, $dir);
@dir=readdir(DIR);
closedir(DIR);

@dir = sort { -M "$dir/$a" <=> -M "$dir/$b" } (@dir);  
foreach (@dir) {
	if ($_ =~ m!\.CSV!) {
		print  $_."\n" ;  
	}#end if
}#end foreach

Please also mark the comments that contributed to the solution of the article

Content-ID: 257022

Url: https://administrator.de/forum/perl-verzeichnis-auslesen-und-erste-datei-zurueckgeben-257022.html

Printed on: May 14, 2025 at 09:05 o'clock

3 Comments

Latest comment

http://stackoverflow.com/questions/328673/how-can-i-find-the-newest-cre ...

Zum zippen siehe:
http://search.cpan.org/~phred/Archive-Zip-1.39/lib/Archive/Zip.pm

Gruß jodel32

aber die module die man dazu verwendet muss man ja auch erst installieren, das ist das was ich eigentlich nicht will. Gibt es noch eine andere Idee anhand von meinem code.

Das mit dem zippen habe ich schon, das läuft auch alles, mir geht es nur darum das mir perl die neueste datei ausgibt.

Gruß

Hallo moritzhd,
mit deiner Variante z.B. so

#!/usr/bin/perl
my $current_dir = ".";  
my $latest_csv_file = "";  

opendir ($DIR, $current_dir);
my @files=readdir($DIR);
closedir($DIR);

@files = sort { -M "$current_dir/$a" <=> -M "$current_dir/$b" } @files;  
foreach (@files) {
	if ($_ =~ /\.csv$/i) {
		$latest_csv_file = $_;
		last;
	}
}
print $latest_csv_file."\n";  

(getestet auf einem Ubuntu Linux)

Grüße Uwe

GermansolvedQuestion Perl Entwicklung