47 |
opendir (NEWS, 'news') |
opendir (NEWS, 'news') |
48 |
or die '[news] waddya doin\'?'; |
or die '[news] waddya doin\'?'; |
49 |
|
|
50 |
my $newsFilename= readdir (NEWS); |
my $newsFilename; |
51 |
while ($newsFilename) { |
while ($newsFilename = readdir (NEWS)) { |
52 |
# ignore <dot> and <dot><dot> and CVS |
# ignore <dot> and <dot><dot> and CVS |
53 |
# and <dot>anything? |
# and <dot>anything? |
54 |
$newsFilename= readdir (NEWS), next |
$newsFilename= readdir (NEWS), next |
55 |
if $newsFilename=~ /^\.\.?$/ or $newsFilename=~ /^CVS$/; |
if $newsFilename=~ /^(?:\.\.?|CVS|.*\~|)$/; |
56 |
open (NEWSFILE, "news/$newsFilename") |
open (NEWSFILE, "news/$newsFilename") |
57 |
or die '[$newsFilename] waddya doin\'?'; |
or die '[$newsFilename] waddya doin\'?'; |
58 |
$line= <NEWSFILE>; |
$line= <NEWSFILE>; |
69 |
close (NEWSFILE); |
close (NEWSFILE); |
70 |
push @news, [$newsFilename, $date, $contents]; |
push @news, [$newsFilename, $date, $contents]; |
71 |
|
|
|
# next please |
|
|
$newsFilename= readdir (NEWS); |
|
72 |
} |
} |
73 |
|
|
74 |
# sort by date |
# sort by date |