Hallo,

wie kann man alle Dateien eines Verzeichnisses
"C\....\1_Sourceimages" vom Typ "jp2" als Liste
[at] FileListSourceimages definieren?

Danke!
Günter

guba [at] vi-anec.de wrote:

> wie kann man alle Dateien eines Verzeichnisses
> "C\....\1_Sourceimages" vom Typ "jp2" als Liste
> [at] FileListSourceimages definieren?

perldoc -f glob

Grüße
Frank
--
Dipl.-Inform. Frank Seitz; http://www.fseitz.de/
Anwendungen für Ihr Internet und Intranet
Tel: 04103/180301; Fax: -02; Industriestr. 31, 22880 Wedel

Thus spoke guba [at] vi-anec.de (on 2006-09-18 14:44):

> wie kann man alle Dateien eines Verzeichnisses
> "C\....\1_Sourceimages" vom Typ "jp2" als Liste
> [at] FileListSourceimages definieren?

So?

...
my [at] FileListSourceimages = glob("c:/dirname/1_Sourceimages/*jp2");
...

Viele Grüße

M.

guba [at] vi-anec.de wrote:

> Hallo,

Hallo!

>
> wie kann m
an alle Dateien eines Verzeichnisses
> "C\....\1_Sourceimages" vom Typ "jp2" als Liste
> [at] FileListSourceimages definieren?

Vielleicht so:

perl -w -e 'opendir(DIR,"/home/stephan/files/"); my
[at] FileListSourceimages = grep(/.*jpg2/,readdir(DIR)); '


> Danke!
> Günter
>

HTH,
--
Stephan 'smg' Grein, <stephan at stephan minus rockt dot de>
https://stephangrein.de
GnuPG-Key-ID: 0xF8C275D4
FingerPrint: 5B6F 134A 189B A24D 342B 0961 8D4B 0230 F8C2 75D4

Stephan 'smg' Grein schrieb:
> guba [at] vi-anec.de wrote:
>
>> Hallo,
>
> Hallo!
>
>> wie kann m
> an alle Dateien eines Verzeichnisses
>> "C\....\1_Sourceimages" vom Typ "jp2" als Liste
>> [at] FileListSourceimages definieren?
>
> Vielleicht so:
>
> perl -w -e 'opendir(DIR,"/home/stephan/files/"); my
> [at] FileListSourceimages = grep(/.*jpg2/,readdir(DIR)); '

Dein regulärer Ausdruck ist so nicht richtig. Damit bekommst du alle
Dateien, in denen irgendwo jpg2 vorkommt. Der OP will aber Dateien
haben, die auf ".jp2" enden.

Daher: /\.jp2$/

Wolf

Stephan 'smg' Grein wrote:
[snip]
> Vielleicht so:
>
> perl -w -e 'opendir(DIR,"/home/stephan/files/"); my
> [at] FileListSourceimages = grep(/.*jpg2/,readdir(DIR)); '
[at] FileListSourceimages = grep(/\.jp2$/,readdir(DIR)); '

tschazu
erkan
P.S.: Ich finde ja die "grep {} List" Syntax lesbarer.

--
über den grenzen muß die freiheit wohl wolkenlos sein

Wolf Behrenhoff wrote:
> Stephan 'smg' Grein schrieb:
>> guba [at] vi-anec.de wrote:
>>
>>> Hallo,
>> Hallo!
>>
>>> wie kann m
>> an alle Dateien eines Verzeichnisses
>>> "C\....\1_Sourceimages" vom Typ "jp2" als Liste
>>> [at] FileListSourceimages definieren?
>> Vielleicht so:
>>
>> perl -w -e 'opendir(DIR,"/home/stephan/files/"); my
>> [at] FileListSourceimages = grep(/.*jpg2/,readdir(DIR)); '
>
> Dein regulärer Ausdruck ist so nicht richtig. Damit bekommst du alle
> Dateien, in denen irgendwo jpg2 vorkommt. Der OP will aber Dateien
> haben, die auf ".jp2" enden.
>
> Daher: /\.jp2$/
>
> Wolf
Ja ein Typo, sorry.


--
Stephan 'smg' Grein, <stephan at stephan minus rockt dot de>
https://stephangrein.de
GnuPG-Key-ID: 0xF8C275D4
FingerPrint: 5B6F 134A 189B A24D 342B 0961 8D4B 0230 F8C2 75D4

Thus spoke Erkan Yanar (on 2006-09-18 18:59):

> P.S.: Ich finde ja die "grep {} List" Syntax lesbarer.

Ja, die { block }-Form von map/grep ist
schöner, aber im Ernstfall (Perl 5.8.x)
teilweise beträchtlich langsamer als die
Nicht-block-Form.


Viel Grüße

Mirco

Mirco Wahab wrote:
> Thus spoke Erkan Yanar (on 2006-09-18 18:59):
>
>> P.S.: Ich finde ja die "grep {} List" Syntax lesbarer.
>
> Ja, die { block }-Form von map/grep ist
> schöner, aber im Ernstfall (Perl 5.8.x)
> teilweise beträchtlich langsamer als die
> Nicht-block-Form.
>

Ups, hätte ich jetzt nicht gedacht. Haste ein paar Beispiele?


taschazu
erkan der befürchtet seinen Programmierstil ändern zu müssen :-(

--
über den grenzen muß die freiheit wohl wolkenlos sein

Thus spoke Erkan Yanar (on 2006-09-19 01:00):

> Mirco Wahab wrote:
>> Thus spoke Erkan Yanar (on 2006-09-18 18:59):
>>
>>> P.S.: Ich finde ja die "grep {} List" Syntax lesbarer.
>>
>> Ja, die { block }-Form von map/grep ist
>> schöner, aber im Ernstfall (Perl 5.8.x)
>> teilweise beträchtlich langsamer als die
>> Nicht-block-Form.
>>
>
> Ups, hätte ich jetzt nicht gedacht. Haste ein paar Beispiele?

Hatten wir dieses Jahr schon mal ;-)
(http://groups.google.com/group/comp.lang.perl.misc/browse_t hread/thread/eaad49af695fb110/bc0a99cab12eca16?lnk=st&q=%22M irco+Wahab%22+grep+&rnum=2&hl=en#bc0a99cab12eca16)

z.B. (dauert je nach Rechner "etwas")

...
use Benchmark qw(cmpthese);

my [at] foo = ("foo") x 4000;
cmpthese 0, {
iteration => sub { my [at] bar; for( [at] foo){ push(bar,$_) if /foo/ } },

expr_map => sub { my [at] bar = map /foo/ ? $_ : (), [at] foo },
expr_grep => sub { my [at] bar = grep /foo/, [at] foo },

blck_map => sub { my [at] bar = map { /foo/ ? $_ : () } [at] foo },
blck_grep => sub { my [at] bar = grep { /foo/ } [at] foo },
};
...

Viele Grüße

Mirco

Mirco Wahab wrote:
> Thus spoke Erkan Yanar (on 2006-09-19 01:00):
>
[snip]
>> Ups, hätte ich jetzt nicht gedacht. Haste ein paar Beispiele?
>
> Hatten wir dieses Jahr schon mal ;-)
[snip]

Danke

tschazu
erkan das doof findet :-( !


--
über den grenzen muß die freiheit wohl wolkenlos sein