getOpenFile: erlaubte Endungen dranhängen..? - #44796 (Graphische Oberflächen)

master

2005-10-21 18:40

User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]

Folgendes Problem:

Code: (dl )

@erlaubteEndungen = ('.JPG','.PNG');
my $types = [['Pics',  ['.JPG','.BMP','.GIF'] ],
                 ['JPG',      '.JPG'           ],
                 ['GIF',        '.gif',        'GIFF'],
                 ['BMP',      '.BMP'           ],
                ['TIFF',      '.TIFF'           ],
                 ['PNG',      '.PNG'           ],

                 ];
$mw->getOpenFile(-filetypes=>$types);

Ganz nach doku benutze ich die starre version.. in dem die werte Fix definiert sind und an $types zugewiesen werden.

nun will ich aber das ganze dynamisch!.....

Die werde aus "@erlaubteEndungen" sollen einerseits bei "Pics"
rein als array. zusätzlich unten angehängt werde

Das hier funktioniert irgendwie nicht :-(

Code: (dl )

1
2
3

my $types = [['Pics',  [@erlaubteEndungen]  ]];

#jetzt noch die Endungen einzeln

was ist eigentlich $types in diesem beispiel? ein string, hash oder array?

$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;