Perl Newbie Questions

metallica1973 · 03-11-2008, 12:35 PM

I have this section of my Perl script. The script is really long so I truncated most of it, but here is the section that matters:

PHP Code:



# Read the seed files
#Globals
my @am_dirs = ('am1', 'am2', 'am3', 'am-cam');
my @seed_files = ( 'Example.seed', 'Example2.seed', 'Example3.seed',
                 'Example4.seed', 'Example5.seed', 'Example6.seed' );


foreach my $am ( @am_dirs ) {

    my $path = $seedfile_path . $am;

    foreach my $seed ( @seed_files ) {

    my  $file = $path . '/' . $seed;

        my @tmparray = split /\./, $seed;
        my $sysContact = @tmparray[0];

        # test for file
        if ( -e $file && -f $file ) {

            #print "File: $file\n";

            # open file and read contents
            foreach my $device ( <$file> ) {

                # remove white space

                # push names into %devices
                $devices{$device} = $sysContact;
            }
        }
    }

}

when I run the script I get this output because it cant read the files. In my array, the files are there and the path is correct but I can clearly see that the script cannot read any of the files because there isnt a "OPEN" statement anywhere.

PHP Code:



./npt_devices.pl
File: /home/staging/trunk/seed/am1/SNIFFER.seed
File: /home/staging/trunk/seed/am2/SNIFFER.seed
File: /home/staging/trunk/seed/am2/NAM.seed
File: /home/staging/trunk/seed/am3/SNIFFER.seed
File: /home/staging/trunk/seed/am-cam/NGENIUS.seed
File: /home/staging/trunk/seed/am-cam/NETQOS.seed
File: /home/staging/trunk/seed/am-cam/CISCOWORKS.seed
File: /home/staging/trunk/seed/am-cam/SNIFFER.seed
File: /home/staging/trunk/seed/am-cam/NAM.seed
File: /home/staging/trunk/seed/am-cam/NETIQVOIP.seed

How can I get this section to read data from my seed files? I need to have the data's output sent to a hash.

exscape · 03-11-2008, 01:32 PM

What does the file contents look like?
Also, how "newbie" are you? Unless you're reaally new this is probably out of my league.

PHP Code:



 if ( -e $file && -f $file ) { 
 
            #print "File: $file\n"; 
            open F, "<", $file or die "Unable to open file $file: $!\n"; 
            # open file and read contents 
            foreach my $device ( <F> ) { 
               # ... split and save data here 
            } 
            close F; 
        }

Perhaps?

I suppose more info is needed, though

metallica1973 · 03-11-2008, 01:51 PM

Better said, how can I read multiple files from an array like in my script?

PHP Code:



my @seed_files = ( 'Example.seed', 'Example2.seed', 'Example3.seed',
                 'Example4.seed', 'Example5.seed', 'Example6.seed' );

something like this:

PHP Code:



open (@seed_files)

or

PHP Code:



open (<@seed_files>)

help!

bigearsbilly · 03-11-2008, 04:43 PM

the way I cheat is like so:

Code:

@ARGV = <*.seed>;

while (<>) {
        # do stuff here
        print
}

metallica1973 · 03-11-2008, 04:46 PM

Do you really have big ears

thanks

bigearsbilly · 03-12-2008, 05:32 AM

no, (nose isn't small though)
;-)

bigears

metallica1973 · 03-12-2008, 07:56 AM

Sorry, one more stupid question:

where would I plug

PHP Code:



@ARGV = <*.seed>; 
 
while (<>) { 
        # do stuff here 
        print 
}

into the equation? I am such a novice at Perl.

bigearsbilly · 03-12-2008, 08:36 AM

stick it where the foreach is, or

Code:

foreach my $file (<>) {

	print $file;
}

more info would help