On Fri, 2006-05-26 at 09:45 +1000, Keenan, Greg John (Greg)** CTR ** wrote:
> --start-- > use strict; > use warnings; > > my $cfgDir = '/amanda/admin/etc/amanda'; > my @cfgs = qw(Toaster MFG-UNIX SYS-UNIX Amanda-Daily); > my %numTapes = ( > "$cfgs[0]" => 6, > "$cfgs[1]" => 5, > "$cfgs[2]" => 5, > "$cfgs[3]" => 1, > ); > > my $cfg; > foreach $cfg (@cfgs) { > my $fileIn="$cfgDir/$cfg/tapelist"; > open (FILEIN, "<$fileIn") or die ("Could not open $fileIn: $!"); > my @lines = reverse <FILEIN>; > my $line; > # foreach $line (@lines) { > # print "$line\n"; > # } print (@lines)[0 .. $numTapes{"$cfg"}]; > } > --end-- -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>