Opened by DrWhiteLetter at 2005-04-20 17:30
User since
2003-08-04
5246 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
5246 Artikel
ModeratorIn
readdir gibt dir nur den Dateinamen ohne das verzeichnis.
also:
x) opendir verdient wohl schon eine fehlerbehandlung, oder?
x) /.jpg/ matcht auch auf xajpg.txt
x) for($j=0;$j<@bilder;$j++) kannst du einfacher schreiben: for my $j (0..$#bilder)\n\n
<!--EDIT|Strat|1114427718-->
also:
Code: (dl
)
1
2
3
4
5
6
my $baseDir = "test";
...
opendir(DIR, $baseDir) or die "Error: couldn't open dir '$baseDir': $!\n";
my @datei = grep { -f "$baseDir/$_" and /\.jpe?g$/ } readdir(DIR);
...
my $img = $fenster->Photo(-file => "$baseDir/$bilder[$j]", -format => "JPEG", );
x) opendir verdient wohl schon eine fehlerbehandlung, oder?
x) /.jpg/ matcht auch auf xajpg.txt
x) for($j=0;$j<@bilder;$j++) kannst du einfacher schreiben: for my $j (0..$#bilder)\n\n
<!--EDIT|Strat|1114427718-->
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
http://www.fabiani.net/