Modul Recursive Directory

Dulu sebelum nemuin modul ini, untuk baca atau pengecekan suatu file yang ada dalam sub-sub direktory aku menggunakan fungsi recursive yang lumayan agak panjang. Tapi untung nya setelah nemuin nih modul, untuk baca file yang ada didalam sub-sub direktory terasa begitu mudah. Berikur contoh scriptnya :

#!/usr/bin/perl
use strict;
#--Modul Recursive Directory--
use File::Find;

my($Group, $Text) = @ARGV;
my $Spool = "/var/spool"; # or wherever your newsspool lives
$| = 1; # so we can see it run
find(\&Kibo, "$Spool/$Group");

sub Kibo
{
-d and print "$_\n";
-f and /^\d+$/ or return;
print "$_\r";

open(ARTICLE, $_) or return;
my @lines = ();

for my $line (@lines)
{
$line =~ /$Text/o and print $line;
}
}

.."..Blogging : Programing.."..