On Nov 2, Mike Gargiullo said:
>OK I know Perl is the language that lets you do things several different
>ways. So with that having been said, how can I convert the while
>statement into a subroutine and pas the filehandles to it ?
I'd make a function that takes two filenames, and does the work.
something like this
#
# Nothing special .. just opening the file handles
#
open(ONE,"one.dat") or die $!,"\n";
open(TWO,"two.dat") or die $!,"\n";
open(THREE,"three.dat") or die $!,"\n";
#
# sending the file handle into a reference as a glob
# you could also do thi
OK I know Perl is the language that lets you do things several different
ways. So with that having been said, how can I convert the while
statement into a subroutine and pas the filehandles to it ?
#!/usr/bin/perl -w
$tiernum = shift or die "usage: tier2 [3,6,8] [1,2] directory-name id
$!\n";
$st
