Re: Help with splitting one text file into other text files

You can store file handles in hashes, something like

use autodie;
my %handles;

for (1996..2011) }
    open $handles{$_}, '<', "$_.sec";
}

...
print { $handles{$year} } $yourdata;
[download]

Comment on Re: Help with splitting one text file into other text files Download Code

Replies are listed 'Best First'.
Re^2: Help with splitting one text file into other text files by Fletch (Bishop) on Mar 30, 2011 at 15:35 UTC
Depending on the OS and the number of simultaneous handles you need FileCache might also be of interest. The cake is a lie. The cake is a lie. The cake is a lie.	[reply]
Re^3: Help with splitting one text file into other text files by Anonymous Monk on Mar 30, 2011 at 15:43 UTC
Or FileCache::Handle, but what is really needed, is a lexically scoped pragma like autodie, so you can `use autofilecache; use autodie; my @Fs; for(1..1024){ open my($f),'<',$_; push @Fs, $f; }` [download]	[reply] [d/l]