in reply to updating multiple text files
use strict; use warnings; use autodie; open my $users, '<', 'users.txt'; my @files; for my $file ( qw( file1 file2 file3 ) ) { open my $fh, '>>', $file; push @files, $fh; } while ( my $line = <$users> ) { print $_ $line for @files; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: updating multiple text files
by marinersk (Priest) on Mar 10, 2015 at 21:25 UTC |