AW: [Vienna-pm] Liste vergr??ern und verkleinern

[Nagy Wilhelm]

Hallo Leute,

nicht dass die vorherigen methoden schlecht waehren!

Habe nur ueber das Problem nachgedacht und versucht eine 
methode mit möglichtst minimalen speicherbedarf zu finden (also 
mit der bereits vorhandenen List).

Sozusagen als Fingeruebung
(habe heute lauter fade programme und fade sache zu tun *g*)

lg
\^/ili

# ### Zum Testen Liste mit 8 Dateinamen fuellen
#
@aFiles = ();
map {
    push @aFiles,"file$_.txt";
    } (1..8);

# ### nun löschen wir den Eintrag mit dem schönen Namen
#     'file4.txt' (nicht das wir was besonders gegen
#     dieses Listenelement haetten, war halt nur zum falschen
#     zeitpunkt am falsch ort ... nichts persönliches).
#
@aFiles = grep {not /^file4.txt$/} @aFiles;

# ### jetzt sehen wir nach obs geklappt ...
#
print join "\n", at aFiles;



> -----Ursprüngliche Nachricht-----
> Von:	Thomas Klausner [SMTP:domm at zsi.at]
> Gesendet am:	Freitag, 20. Juni 2003 12:02
> An:	vienna-pm at mail.pm.org
> Betreff:	Re: [Vienna-pm] Liste vergr??ern und verkleinern
> 
> Hi!
> 
> On Fri, Jun 20, 2003 at 02:29:35AM +0200, Peter Seitz wrote:
> 
> > Ich habe mir nun auf ein Array alle Dateien aus dem alten Verzeichnis
> > abgespeichert. Also:
> > 
> > @verzeichnis ("datei1.txt", "datei2.lst", "dir/datei4.log");
> 
> Wie Oliver schon angemerkt hat, wuerde ich da auch auf jeden Fall einen
> HASH
> verwenden, mit den Dateinamen als Keys (und ev der mtime als value, dann
> kannst du auch gleich checken, ob das File geaendert wurde)
> 
> %verzeichnis=(
>   'datei1.txt'=>1,
>   'datei2.lst'=>1,
>   'dir/date4.log'=>1,
> );
> 
> zum loeschen dann einfach:
>   delete $verzeichnis{'datei1.txt'};
> 
> 
> -- 
> #!/usr/bin/perl                               http://domm.zsi.at
> for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}
> _______________________________________________
> Vienna-pm mailing list
> Vienna-pm at mail.pm.org
> http://mail.pm.org/mailman/listinfo/vienna-pm