sub load { my ($self,$file); open my $f,"<group.conf"; # opens config files my $last_group=''; while (my $line=<$f>) { chomp $line; next if length $line == 0; if($line =~/^group\d+/) { $last_group = $line; $config->{num_groups}++;#countgroups next; }; push @{ $config->{groups}->{$last_group} },$line; # collects each groups lower and upper bounds (BUT HOW?) }; } group.conf CONTAINS: group1 AG3333 .Y33 1999 HU4555 .T34 2000 group2 HV9069 .L28 2003 KA5333 .A12 2001 group3 KB XX
In reply to PUSH Question by emusic32
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |