Opened by Gast at 2005-05-08 16:34
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
[quote=Ronnie,08.05.2005, 17:05]
erzeugt für das aktuellste .jpg im aktuellen Ordner einen symlink mit dem Namen aktuell.jpg.[/quote]
1.) Wenn sich seit dem letzten Aufruf nichts an den Bildern geaendert hat, erzeugt das Skript einen Link von aktuell.jpg auf sich selber!
2.) Wenn aktuell.jpg noch nicht existiert, wird es auch nicht angelegt, weil das unlink() vorher fehl schlaegt.
Hier eine leicht verbesserte Version:
Das Muster sucht jetzt nach img*.jpg und es wird abgefragt, ob aktuell.jpg existiert.
Code: (dl
)
1
2
3
4
5
6
7
8
#!/usr/bin/perl
use strict;
use warnings;
my $newest = shift @{[sort {-M $a > -M $b} (<*.jpg>)]};
unlink 'aktuell.jpg' or die "$!";
symlink $newest, 'aktuell.jpg' or die "$!";
erzeugt für das aktuellste .jpg im aktuellen Ordner einen symlink mit dem Namen aktuell.jpg.[/quote]
1.) Wenn sich seit dem letzten Aufruf nichts an den Bildern geaendert hat, erzeugt das Skript einen Link von aktuell.jpg auf sich selber!
2.) Wenn aktuell.jpg noch nicht existiert, wird es auch nicht angelegt, weil das unlink() vorher fehl schlaegt.
Hier eine leicht verbesserte Version:
Code: (dl
)
1
2
3
4
5
6
7
8
#!/usr/bin/perl
use strict;
use warnings;
my $newest = shift @{[sort {-M $a > -M $b} (<img*.jpg>)]};
unlink 'aktuell.jpg' or die "$!" if -e 'aktuell.jpg';
symlink $newest, 'aktuell.jpg' or die "$!";
Das Muster sucht jetzt nach img*.jpg und es wird abgefragt, ob aktuell.jpg existiert.