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';
   }
 

[numberwhun]

Can you please provide a better explanation of exactly what the scripts are supposed to do and what you are seeing that isn't right or is erroring out?

Also, please use code tags around code you submit to the forums.

Regards,

Jeff

[pgrimsley]

Can you please provide a better explanation of exactly what the scripts are supposed to do and what you are seeing that isn't right or is erroring out?

Also, please use code tags around code you submit to the forums.

Regards,

Jeff

ok i am new to programming and i am wanting to use the first script which works to break apart a large doc int smaller ones then i need to move the smaller docs to another dir and then zip the smaller docs into one zip file and is a code tag and html tag the same thing

[numberwhun]

ok i am new to programming and i am wanting to use the first script which works to break apart a large doc int smaller ones then i need to move the smaller docs to another dir and then zip the smaller docs into one zip file and is a code tag and html tag the same thing

First, thank you for your explanation, but it leaves a lot to wonder. Why don't you do all of your tasks in one script? Why break it up? Also, you have not mentioned what problems you are having with the script(s).

Regards,

Jeff

[pgrimsley]

First, thank you for your explanation, but it leaves a lot to wonder. Why don't you do all of your tasks in one script? Why break it up? Also, you have not mentioned what problems you are having with the script(s).

Regards,

Jeff

oh sorry i can not get the files to move to a different directory have been able to get one to move but not all of them would not mind doing it all in one that is the big plan first i was trying to get the syntax right unix is different than dos not that i have a lot of edperiance there either

[numberwhun]

oh sorry i can not get the files to move to a different directory have been able to get one to move but not all of them would not mind doing it all in one that is the big plan first i was trying to get the syntax right unix is different than dos not that i have a lot of edperiance there either

To move files, you might want to read up on the File::Copy module. Also, you might want to read up on the perlfaq's over at perldoc.perl.or g as they provide a wealth of information on how to do some normal everyday things and would be really beneficial to you.

Regards,

Jeff

[KevinADC]

Your code is pretty confusing to me so I am unable to suggest changes or improvements. At a minimum this line looks wrong:

            close (OUT,'>>UIC_$outcount');

should be:

            close (OUT);

[Icecrack]

for the actual move try this

$old = "$dir$file";
$new = "/home/grimp/lougp";
move($old, $new);

[KevinADC]

there is no move() function in perl. rename() actually moves a file, or there is the File::Copy module that has a move function. Its a standard perl module so should be installed.

[numberwhun]

there is no move() function in perl. rename() actually moves a file, or there is the File::Copy module that has a move function. Its a standard perl module so should be installed.

The move() function is a part of the File::Copy module that I pointed him to, but you are right, its not a built-in function.