Opened by Gast at 2006-05-02 15:15
User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2004-03-22
5697 Artikel
ModeratorIn + EditorIn
naja es prüft ob der dateiname zu einer textdatei gehört. wenn ja öffnet er sie, fischt die kommentarzeilen raus (die mit "#" anfangen) und packt deren inhalte in 2 verschiedene arrays je nahcdem womit sie anfangen
EDIT habs nochmal gekürzt\n\n
<!--EDIT|lichtkind|1146570931-->
Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher
Es beginnt immer mit einer Entscheidung.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
# Links laden
##############
my ( @data, @links, @texts );
unless (-f $file) {
&create_linklist;
} else {
open ( F, '<', $file ) || die "Could not open $file. $!";
@data = grep { /^[^#]/ } <F>;
close F;
foreach ( @data ) {
chomp;
s/^([LINK|TEXT]:)(.+)/$2/;
if ($1 eq 'LINK') { push @links }
else { push @texts }
}
}
EDIT habs nochmal gekürzt\n\n
<!--EDIT|lichtkind|1146570931-->
Tutorien in der Wiki, mein zeug:kephra, baumhaus, garten, gezwitscher
Es beginnt immer mit einer Entscheidung.