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.
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 Replies)
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 :... (6 Replies)
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. (1 Reply)
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;... (0 Replies)
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... (4 Replies)
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... (3 Replies)
$# 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 $#,$$.,... (4 Replies)
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... (1 Reply)
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... (4 Replies)
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... (8 Replies)
Discussion started by: Beginer123
8 Replies
LEARN ABOUT DEBIAN
colorprint
COLORS(3) libbash colors Library Manual COLORS(3)NAME
colors -- libbash library for setting tty colors.
SYNOPSIS
colorSet <color>
colorReset
colorPrint [<indent>] <color> <text>
colorPrintN [<indent>] <color> <text>
DESCRIPTION
General
colors is a collection of functions that make it very easy to put colored text on tty.
The function list:
colorSet Sets the color of the prints to the tty to COLOR
colorReset Resets current tty color back to normal
colorPrint Prints TEXT in the color COLOR indented by INDENT (without adding a newline)
colorPrintN The same as colorPrint, but trailing newline is added
Detailed interface description follows.
Available colors:
Green
Red
Yellow
White
The color parameter is non-case-sensitive (i.e. RED, red, ReD, and all the other forms are valid and are the same as Red).
FUNCTIONS DESCRIPTIONS
colorSet <color>
Sets the current printing color to color.
colorReset
Resets current tty color back to normal.
colorPrint [<indent>] <color>
Prints text using the color color indented by indent (without adding a newline).
Parameters:
<indent>
The column to move to before start printing. This parameter is optional. If ommitted - start output from current cursor position.
<color>
The color to use.
<color>
The text to print.
colorPrintN [<indent>] <color>
The same as colorPrint, except a trailing newline is added.
EXAMPLES
Printing a green 'Hello World' with a newline:
Using colorSet:
$ colorSet green
$ echo 'Hello World'
$ colorReset
Using colorPrint:
$ colorPrint 'Hello World'; echo
Using colorPrintN:
$ colorPrintN 'Hello World'
AUTHORS
Hai Zaar <haizaar@haizaar.com>
Gil Ran <gil@ran4.net>
SEE ALSO ldbash(1), libbash(1)Linux Epoch Linux