Perl Error Handling Problem Post: 302424918

Sponsored Content

Special Forums UNIX and Linux Applications Infrastructure Monitoring Perl Error Handling Problem Post 302424918 by pludi on Wednesday 26th of May 2010 02:57:24 PM

05-26-2010

Registered User

There are a couple things very wrong here (marked in red):

Code:

use strict; # These 2 lines should be in every Perl program
use warnings;

use SNMP::Simple; #Missing semicolon

my %ios = ();
$list = "list.list";
open( DAT, $list ) || die("Can't Open List");
@raw_data = <DAT>;
close(DAT);
foreach $dest (@raw_data) {
    chomp($dest);
    my $s = SNMP::Simple->new(
        DestHost  => $dest,
        Community => 'string',
        Version   => 1,
    );
    if ( $data{name} = $s->get('sysName') ) #What exactly are you trying to do here??
       ( $data{sys} = $s->get('sysDescr') )
       ( $data{rom} = $s->get('romId') ){
              push @device_data, %ios;

                #print "$data{name} - $data{sys} - $data{rom}\n";
                $file = "iosfull.txt";
                open( OUT, ">>$file" );
                print OUT "$data{name} - $data{sys} - $data{rom}\n";
                close(OUT);
        } else {
              print "$s did not answern "; # Missing opening quotes
              next;
        }
} # Missing closing bracket

Hint: when you've finished writing a program, check it with perl -c first. Also, Perl::Tidy (and the command line utility perltidy) help to improve the readability of your programs a lot, and will help with the visual identification of syntax errors.

This User Gave Thanks to pludi For This Post:

pludi

View Public Profile for pludi

Find all posts by pludi

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

file handling problem in perl......

Hi, I am opening a file......then i am wrting some data into it......and i am reopening the file again but ......i get a error cannot open file....... $::file= "\adder\testfile.txt" open(TEST1,$::file); some write operation close(TEST1) open(TEST1,$::file) 'I GET A ERROR CAN OPEN...

2. Shell Programming and Scripting

Signal handling in Perl

Guys, I'm doing signal handling in Perl. I'm trying to catch ^C signal inside the script. There two scripts : one shell script and one perl script. The shell script calls the perl script. For e.g. shell script a.sh and perl scipt sig.pl. Shell script a.sh looks something like this :...

3. Programming

XML Handling in Perl

Hi there, I'm newby in perl and XML. I can read and parse Xml with XML-Node upper XML::Parser, but how can I create XML tags and pack my individual data in it then send through socket. PLZ lead me :) Thanks in Advance.

4. Shell Programming and Scripting

special characters handling in perl

Hi, Here is my piece of code-- sub per_user_qna_detail { for($index=0;$index<@records;$index++) { if($records =~ m/^(.*)\s*Morocco.*Entering\s*Module::authenticate/) { printf "INSIDE per_user_qna_detail on LINE NO $index\n"; $Time_Stamp = $1;...

5. Shell Programming and Scripting

Perl and Sockets - Error handling

Hello all, I have created a Perl script that tries to open connections to various systems on different ports in order to see if the machines are reachable, the ports are open, etc. There appears to be a difference between Solaris (10) and Linux (RH/Oracle and Ubuntu) in the status or error it...

6. Shell Programming and Scripting

Handling Parameters in Perl

Hi All, I'm pretty new to the forum and also to UNIX. I have a requirement for which I need some help. I have a script (example.script) where I get user inputs using the read command. I would need to pass the read-fetched input to a perl command (explained below) in my script. The part which...

7. Programming

Perl help for file handling

$# some text $$ some text $@ some text $$. some text Mg1 some text Mg2 some text . . . Mg10 some text The above 10 lines are to be extracted except the lines starting from $#,$$.,...

8. Shell Programming and Scripting

PERL error handling

I have a PERL command line embedded in a UNIX script. The script doesn't handle errors coming out of this command. I'm processing large files and occassionally I run out of disk space and end up with half a file. perl -p -e 's/\n/\r\n/g' < TR_TMP_$4 > $4 How do I handle errors coming out...

9. UNIX for Dummies Questions & Answers

Error Handling using ISQL for oracle connection in Perl

Hi Am making connection to oracle using ISQL as shown in the code. This code is just a minor part of a big code. I want to capture the error if the password/login is wrong or if connection is not made. I need to capture the error code also. Also, If such an error occurs, i need to exit out...

10. Shell Programming and Scripting

Perl file handling error

Hi, I am reading and file and writting each word to other file. where I have used array to store the data. I am getting below error as "Use of uninitialized value in concatenation (.) or string at customize_split_raw.pl line 51, <IN_FILE> " Where my line 51 code is 50 foreach...

LEARN ABOUT SUSE

set_color

set_color(1)                                                           fish                                                           set_color(1)

NAME

       set_color - set_color - set the terminal color

set_color - set the terminal color
   Synopsis
       set_color [-v --version] [-h --help] [-b --background COLOR] [COLOR]

   Description
       Change the foreground and/or background color of the terminal. COLOR is one of black, red, green, brown, yellow, blue, magenta, purple,
       cyan, white and normal.

       o -b, --background Set the background color

       o -c, --print-colors Prints a list of all valid color names

       o -h, --help Display help message and exit

       o -o, --bold Set bold or extra bright mode

       o -u, --underline Set underlined mode

       o -v, --version Display version and exit

       Calling set_color normal will set the terminal color to whatever is the default color of the terminal.

       Some terminals use the --bold escape sequence to switch to a brighter color set. On such terminals, set_color white will result in a grey
       font color, while set_color --bold white will result in a white font color.

       Not all terminal emulators support all these features. This is not a bug in set_color but a missing feature in the terminal emulator.

       set_color uses the terminfo database to look up how to change terminal colors on whatever terminal is in use. Some systems have old and
       incomplete terminfo databases, and may lack color information for terminals that support it. Download and install the latest version of
       ncurses and recompile fish against it in order to fix this issue.

Version 1.23.1                                                    Sun Jan 8 2012                                                      set_color(1)

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

file handling problem in perl......

Discussion started by: vivekshankar

2. Shell Programming and Scripting

Signal handling in Perl

Discussion started by: obelix

3. Programming

XML Handling in Perl

Discussion started by: Zaxon

4. Shell Programming and Scripting

special characters handling in perl

Discussion started by: namishtiwari