Opened by cohama at 2012-11-20 13:50
User since
2011-08-16
102 Artikel
BenutzerIn
2011-08-16
102 Artikel
BenutzerIn
Guten Morgen,
ick hab es soweit geschafft, dass das Script das Originaldatum der Bilddatei in der Variable mydate abspeichert.
Wie schaffe ich es nun, dass ich den Dateinamen ändere?
ick hab es soweit geschafft, dass das Script das Originaldatum der Bilddatei in der Variable mydate abspeichert.
Wie schaffe ich es nun, dass ich den Dateinamen ändere?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl -w
# Version 0.1
########################################
use File::Spec;
use Image::ExifTool;
#extract date from EXIF
my @ioTagList = ('DateTimeOriginal');
my $exifTool = new Image::ExifTool;
$exifTool->Options(DateFormat => "%Y-%m-%d-%H:%M:%S");
my $info = $exifTool->ImageInfo('Test.jpg', @ioTagList);
my $mydate;
foreach (keys %$info) {
$mydate = $$info{$_};
print "$mydate \n";
}