Wagner, David --- Senior Programmer Analyst --- WGO wrote:
> Brian Milbrandt wrote:
>> I am trying to convert a unix script to perl. The script takes 2
>> command line arguments, source and target. I am unable to get the
>> file copy and rename function working properly. Here is what I have
>> that is not working properly.
>>
>> $target is the target directory variable
>> $source is the source directory variable
>>
>> opendir DH, "/$target";
>> foreach $file (readdir DH)
>> { printf " the file name is %s\n", $file;
>> next unless $file =~ \/.abc$/ and !-z $name;
I think you really want $file and not $name, but still need to get
right location. Also you need to do either a rename or mv otherwise you are
only changing the name in $newfile, but not actually doing any work.
Wags ;)
> Since you did not provide what really happens, I am assuming that
> you are not getting by ! -z $name. You have not done a chdir, so to
> get the actual file you will need to concatenate "/$target/" . $name
> for the test.
>
> Wags ;)
>
>> my $newfile = /$target//$file;
>> $newfile =~ s/\.abc$/.xyz/;
>> $filecount += 1;
>> }
>
>
>
> *******************************************************
> This message contains information that is confidential
> and proprietary to FedEx Freight or its affiliates.
> It is intended only for the recipient named and for
> the express purpose(s) described therein.
> Any other use is prohibited.
> *******************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
