#open files here my $counter = 0; my %slotarray; while ( <DPSLOTFILE> ) { my $dpdrivloc = "MSL6000 Trinity"; if ( /\Q$dpdrivloc\E:\s*(\d+)/ ) { $slotarray{$counter} = "$1"; #print OUTFILE "$1"; $counter++; } } foreach my $key (keys %slotarray) { print OUTFILE "$key: $slotarray{$key}\n"; } #close files here
In reply to Re: $1 into an array
by bageler
in thread $1 into an array
by jamen_98
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |