Opened by DrWhiteLetter at 2005-04-20 17:30
User since
2005-01-30
26 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-01-30
26 Artikel
BenutzerIn
So, neue Arbeitswoche hat begonnen und ich habe immernoch Probleme damit, warum auch immer. Hier erstmal mein aktueller Code (habe die Idee mit dem Button übernommen).
Das seltsame ist, mit meinem Testordner und den Bildern die sich darin befinden (habe eines mehrfach kopiert) funktioniert das Programm wunderbar, jetzt wollte ich es jedoch einmal bei meinen richtigen Bilderverzeichnissen testen, doch da kommt dann folgender Error:
Kann man mit dem Perl-Debugger irgendwie sehen, wo im Speicher gerade zugegriffen wird?
Achja, hätte mal jemand kurz Zeit, den Code bei sich zu testen? Muss nur das Verzeichnis angepasst werden (das bastel ich erst um wenn alles funktioniert). Also
test durch den entsprechenden Ordner ersetzen.
Danke schonmal
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::JPEG;
my @bilder;
my $j;
pic();
for($j=0;$j<@bilder;$j++)
{
my $fenster = MainWindow->new();
my $img = $fenster->Photo(-file => $bilder[$j], -format => "JPEG", );
$fenster->Button( -image => $img,
-command => sub
{
$fenster->destroy();
}
)->pack;
MainLoop();
}
sub pic
{
my @datei;
my $i;
opendir(DIR, "test");
@datei = readdir(DIR);
for $i (0..$#datei)
{
if($datei[$i]=~/.jpg/)
{
push( @bilder, $datei[$i] )
}
}
closedir(DIR);
}
Das seltsame ist, mit meinem Testordner und den Bildern die sich darin befinden (habe eines mehrfach kopiert) funktioniert das Programm wunderbar, jetzt wollte ich es jedoch einmal bei meinen richtigen Bilderverzeichnissen testen, doch da kommt dann folgender Error:
Code: (dl
)
Cannot open &´test.jpg&´in mode &´r&´ at c:/Perl/site/lib/Tk/Image.pm line 21
Kann man mit dem Perl-Debugger irgendwie sehen, wo im Speicher gerade zugegriffen wird?
Achja, hätte mal jemand kurz Zeit, den Code bei sich zu testen? Muss nur das Verzeichnis angepasst werden (das bastel ich erst um wenn alles funktioniert). Also
Code: (dl
)
opendir(DIR, "test")
test durch den entsprechenden Ordner ersetzen.
Danke schonmal