#!/usr/local/bin/perl # NOT TESTED @files = map {$_->[1]} sort {$a->[0] <=> $b->[0] } map { /^graph_set_([[0-9]+).out$/; [ $1, $_ ] } grep { /^graph_set_[0-9]+.out$/ } glob('graph_set_*'); # lookup schwartzian transform, then read the preceding from the botto +m up for (@files) { open(F, $mode, $_); # do whatever close F; }
In reply to Re: opening consecutive files
by bobn
in thread opening consecutive files
by harry34
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |