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

[Icecrack]

thank you Kevin,numberwhu n, Forgot to add the use :P

use File::Copy;
 

i looked at a script that i made to move files in a folder once a month,
i forgot to copy the use File::Copy;


thanks once again :P

[KevinADC]

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.

My bad.... I missed that.

Perdona me. Gracias.

[pgrimsley]

My bad.... I missed that.

Perdona me. Gracias.

ok i think that makes sence but what if i want to move multiple files and keep the same names ( like PODUA87G.doc, POD87745.doc, PODQWUYT.doc) about 20 in all

[numberwhun]

ok i think that makes sence but what if i want to move multiple files and keep the same names ( like PODUA87G.doc, POD87745.doc, PODQWUYT.doc) about 20 in all

I would say that you could take a listing of what is in the directory, put it into an array, then cycle through the array performing the move() command on each.

Regards,

Jeff

[pgrimsley]

I would say that you could take a listing of what is in the directory, put it into an array, then cycle through the array performing the move() command on each.

Regards,

Jeff

ok how hard is an array to make the move function is causing me to loose hair already

[numberwhun]

ok how hard is an array to make the move function is causing me to loose hair already

Arrays are quite easy to work with. Since you are dealing with basic arrays and not arrays of arrays of hashes of arrays, you shouldn't really be pulling your hair out. Its not that bad to work with.

Here is a quick bit of code I just threw together. It is COMPLETELY UNTESTED. I have not verified it will work, but feel free to let me know if it does what you expect. You can incorporate the code you need into your script, being mindful that there are two modules being used in here:

#!/usr/bin/perl
 
use strict;
use warnings;
use File::Util;
use File::Copy;
 
### Variables ###
my $newpath = "/new/file/path/";  # where to put new files
my $oldpath = "/old/file/path/";  # where files were
my $newfilepath;
my $oldfilepath;
 
# Put list of files into array
my @filelist = File::Util::list_dir(/your/directory , --files-only);
 
# Cycle through files array and move each one to destination
foreach my $file (@filelist){
    $oldfilepath = $oldpath . $file;
    $newfilepath = $newpath . $file;
    move($oldfilepath, $newfilepath);
}

Regards,

Jeff

[pgrimsley]

Arrays are quite easy to work with. Since you are dealing with basic arrays and not arrays of arrays of hashes of arrays, you shouldn't really be pulling your hair out. Its not that bad to work with.

Here is a quick bit of code I just threw together. It is COMPLETELY UNTESTED. I have not verified it will work, but feel free to let me know if it does what you expect. You can incorporate the code you need into your script, being mindful that there are two modules being used in here:

#!/usr/bin/perl
 
use strict;
use warnings;
use File::Util;
use File::Copy;
 
### Variables ###
my $newpath = "/new/file/path/";  # where to put new files
my $oldpath = "/old/file/path/";  # where files were
my $newfilepath;
my $oldfilepath;
 
# Put list of files into array
my @filelist = File::Util::list_dir(/your/directory , --files-only);
 
# Cycle through files array and move each one to destination
foreach my $file (@filelist){
    $oldfilepath = $oldpath . $file;
    $newfilepath = $newpath . $file;
    move($oldfilepath, $newfilepath);
}

Regards,

Jeff

will i be able to keep the same file names

[pgrimsley]

ok ran the script

1. #!/usr/bin/perl 
 2.  
 3. use strict; 
 4. use warnings; 
 5. use File::Util; 
 6. use File::Copy; 
 7.  
 8. ### Variables ### 
 9. my $newpath = "/home/grimp/lougp/";  # where to put new files 
10. my $oldpath = "/home/grimp/test/";  # where files were 
11. my $newfilepath; 
12. my $oldfilepath; 
13.  
14. # Put list of files into array 
15. my @filelist = File::Util::list_dir("/home/grimp/test" , 'POD77702.doc','POD8AUAA.doc','POD8AURB.doc'); 
16.  
17. # Cycle through files array and move each one to destination 
18. foreach my $file (@filelist){ 
19.     $oldfilepath = $oldpath . $file; 
20.     $newfilepath = $newpath . $file; 
21.     move($oldfilepath, $newfilepath); 
22. } 
 

first error
(Can't locate File/Util.pm in @INC (@INC contains: /opt/perl_32/lib/5.8.3/IA64.A.
BEGIN failed--compilation aborted at array.pl line 5.)

then commented out line 5

Second error

(Bareword found where operator expected at array.pl line 15, near "/home/grimp"
(Missing operator before rimp?)
syntax error at array.pl line 15, near "/home/grimp"
Execution of array.pl aborted due to compilation errors.)

the directories exist and the files exist i am reading up on what i have about arrays but making no progress yet as i have not found is the array list a seperate scipt or is it built into the script you made

lhis is all done on an HPUX system if it matters

ok added quotes arround the dir path at line 15 now i have

this error
(Undefined subroutine &File::Util::li st_dir called at array.pl line 15.)

[numberwhun]

will i be able to keep the same file names

I don't see why the move would change them unless you implicitly told it to.

[numberwhun]

ok ran the script

1. #!/usr/bin/perl 
 2.  
 3. use strict; 
 4. use warnings; 
 5. use File::Util; 
 6. use File::Copy; 
 7.  
 8. ### Variables ### 
 9. my $newpath = "/home/grimp/lougp/";  # where to put new files 
10. my $oldpath = "/home/grimp/test/";  # where files were 
11. my $newfilepath; 
12. my $oldfilepath; 
13.  
14. # Put list of files into array 
15. my @filelist = File::Util::list_dir("/home/grimp/test" , 'POD77702.doc','POD8AUAA.doc','POD8AURB.doc'); 
16.  
17. # Cycle through files array and move each one to destination 
18. foreach my $file (@filelist){ 
19.     $oldfilepath = $oldpath . $file; 
20.     $newfilepath = $newpath . $file; 
21.     move($oldfilepath, $newfilepath); 
22. } 
 

first error
(Can't locate File/Util.pm in @INC (@INC contains: /opt/perl_32/lib/5.8.3/IA64.A.
BEGIN failed--compilation aborted at array.pl line 5.)

then commented out line 5

Second error

(Bareword found where operator expected at array.pl line 15, near "/home/grimp"
(Missing operator before rimp?)
syntax error at array.pl line 15, near "/home/grimp"
Execution of array.pl aborted due to compilation errors.)

the directories exist and the files exist i am reading up on what i have about arrays but making no progress yet as i have not found is the array list a seperate scipt or is it built into the script you made

lhis is all done on an HPUX system if it matters

ok added quotes arround the dir path at line 15 now i have

this error
(Undefined subroutine &File::Util::li st_dir called at array.pl line 15.)

First, CODE TAGS.....CODE TAGS.....CODE TAGS!!! We have all been using them in this post and they are required. Please remember to use them.

Can't locate File/Util.pm in @INC (@INC contains: /opt/perl_32/lib/5.8.3/IA64.A.
BEGIN failed--compilation aborted at array.pl line 5

I had mentioned that you need to watch the Perl modules that were used. This one doesn't seem to be installed on your system and you will need to install it.

my @filelist = File::Util::lis t_dir("/home/grimp/test" , 'POD77702.doc', 'POD8AUAA.doc', 'POD8AURB.doc') ;

This is not even what I had the line looking like. Here is what I had:

my @filelist = File::Util::list_dir(/your/directory , --files-only);

All you should have needed to do here was replace /your/directory with the directory you want to get a listing of. the --files-only NEEDS to be there. You don't put your file names as that line will obtain a list of ALL files in the $oldpath directory you specified and put them into the @filelist array.

If you are not sure what this does, then please reference the module page on CPAN so that you know what is going on.

Fix those issues, re-run and troubleshoot from there.