script

[pgrimsley]

i am trying to get these 3 scripts to work together and having problems can some one point out where the hang up is

open (IN, 'ALL_UIC.doc'); 
open (OUT,'>>UIC_1');
$outcount = 1;
 
while (<IN>) { 
 
    print OUT;
 
       if ( $_=~/Performance of Duty for/ )
        {
 
 
            $UIC = substr $_, 42, 5;     # extract the UIC for file name
 
        }
 
        if ( $_=~/Dollar value of unliquidated funds/ )
        {
 
            close (OUT,'>>UIC_$outcount');
 
 
            rename ("UIC_$outcount","POD$UIC.doc");
 
            $outcount++;
 
            open (OUT,">>UIC_$outcount");
 
        }
 
 
$dir="/home/grimp/test/"
opendir DIR $dir;
@files=readdir DIR;
closedir DIR;
 
foreach $file (@files) {
  if (-f "$dir$file") {  # true if $dir$file is a regular file
    #move $file, mv POD*.doc /home/grimp/lougp
  }
}
 
 
 
# Create a Zip file
  use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
  my $zip = Archive::Zip->new();
 
# Add a directory
  #$dir_member = $zip->addDirectory( 'dirname/' );
 
 
# Add a file from disk
  $file_member = $zip->addFile( 'POD*.doc' );
 
 
# Save the Zip file
   unless ( $zip->writeToFileNamed('POD.zip') == AZ_OK ) {
       die 'write error';
   }
 

[pgrimsley]

ok i want to make shure i do things the right way sorry about the code tags

when i post the error

this is the error

this is what i should do?

and second if i do not have a module installed where do i find it to install

[Icecrack]

ok i want to make shure i do things the right way sorry about the code tags

when i post the error

this is the error

this is what i should do?

and second if i do not have a module installed where do i find it to install

He has given you the link to the module you need in the post above read it.