in reply to Renaming multiple files with unique identifiers
Possible solution:
#!/usr/bin/perl use warnings; use strict; use diagnostics; use File::Copy; my @IDI_names = ('I:\Production\TEST\P001.txt', 'I:\Production\TE +ST\P002.txt'); my @PLL_names = ('I:\Production\TEST\ISBN_Text.txt', 'I:\Production\TE +ST\ISBN2_Text.txt'); for my $idx (0 .. $#IDI_names) { my $IDI_name = $IDI_names[$idx]; my $PLL_name = $PLL_names[$idx]; copy($IDI_name, $PLL_name); }
Perl is not a shell. There is no need to double quote single scalar variables.
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Renaming multiple files with unique identifiers
by reedkm (Initiate) on Aug 26, 2013 at 20:53 UTC |