Cheers - L~R#!/usr/bin/perl -w use strict; use File::Copy; my @files = qw( file1 file2 ); my $base = '/home/wbill/lazarus/'; for my $file_name (@files) { my $file = $base . $file_name; copy( $file , "./$file_name" ) or warn "Unable to copy $file_name +: $!"; }
In reply to Re: Hashes or arrays in the command line
by Limbic~Region
in thread Hashes or arrays in the command line
by tux242
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |