Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl Script Help
Top Forums Shell Programming and Scripting Perl Script Help Post 302550409 by juredd1 on Thursday 25th of August 2011 04:31:41 PM
Old 08-25-2011
Perl Script Help
If I am out of line for asking this please just let me know.

I can barely survive when it comes to shell scripting so when I have to deal with perl I petty much just fail to succeed.

Any help would be appreciated.

Currently the section of the code is as follows;
Code:
# Read and process the config file
while ( <CFG> ) {
        chomp;
        next if m/^#/;
       if ( m/^\s*([a-zA-Z][a-zA-Z0-9.]+)\s+(\d+\.\d+\.\d+\.\d+)/ ) {
                $zone=$1;
                $ip=$2;
        } else { next; }

        if ( $zones{$zone} == 1 ) {
                print "skipping Duplicate zone: $zone\n";
                next;
        }

        create_zone($zone,$ip);
        $zones{$zone}=1;
}

create_zone("crap","127.0.0.1");

A sample entry in the config file is;

Code:
3.crakatxr.com  12.245.255.67
01o02n8cf01.com 12.254.235.231
543-lwp-277.mxtosehp.com        12.222.246.212

The line of code in red is what I am asking about. Could you tell me what output from the line of code in red would yield on the three examples given. I think I understand that the $zone will be the first field and $ip will be the second. I am sure you could do some sort of print statement to get that info but I just don't know how.

The issue is it appears that the script is ignoring the line in the config with a "-" dash in it.

If I way off base on this I will not be surprised.

Thanks for your time on this issue.

Justin
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl: Run perl script in the current process

I have a question regarding running perl in the current process. I shall demonstrate with an example. Look at this. sh-2.05b$ pwd /tmp sh-2.05b$ cat test.sh #! /bin/sh cd /etc sh-2.05b$ ./test.sh sh-2.05b$ pwd /tmp sh-2.05b$ . ./test.sh sh-2.05b$ pwd /etc sh-2.05b$ So... (10 Replies)
Discussion started by: vino
10 Replies

2. Shell Programming and Scripting

[Perl] Accessing array elements within a sed command in Perl script

I am trying to use a script to replace the header of each file, whose filename are stored within the array $test, using the sed command within a Perl script as follows: $count = 0; while ( $count < $#test ) { `sed -e 's/BIOGRF 321/BIOGRF 332/g' ${test} > 0`; `cat 0 >... (2 Replies)
Discussion started by: userix
2 Replies

3. Shell Programming and Scripting

perl/unix: script in command line works but not in perl

so in unix this command works works and shows me a list of directories find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt but when i try running a perl script to run this command my $query = 'find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt';... (2 Replies)
Discussion started by: kpddong
2 Replies

4. Shell Programming and Scripting

Perl :How to print the o/p of a Perl script on console and redirecting same in log file @ same time.

How can i print the output of a perl script on a unix console and redirect the same in a log file under same directory simultaneously ? Like in Shell script, we use tee, is there anything in Perl or any other option ? (2 Replies)
Discussion started by: butterfly20
2 Replies

5. Shell Programming and Scripting

HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

Hi all, Not sure if this should be in the programming forum, but I believe it will get more response under the Shell Programming and Scripting FORUM. Am trying to write a customized df script in Perl and need some help with regards to using arrays and file handlers. At the moment am... (3 Replies)
Discussion started by: newbie_01
3 Replies

6. Shell Programming and Scripting

calling a perl script with arguments from a parent perl script

I am trying to run a perl script which needs input arguments from a parent perl script, but doesn't seem to work. Appreciate your help in this regard. From parent.pl $input1=123; $input2=abc; I tried calling it with system("/usr/bin/perl child.pl $input1 $input2"); and `perl... (1 Reply)
Discussion started by: grajp002
1 Replies

7. Shell Programming and Scripting

executing perl script from another perl script : NOT WORKING

Hi Folks, I have 2 perl scripts and I need to execute 2nd perl script from the 1st perl script in WINDOWS. In the 1st perl script that I had, I am calling the 2nd script main.pl =========== print "This is my main script\n"; `perl C:\\Users\\sripathg\\Desktop\\scripts\\hi.pl`; ... (3 Replies)
Discussion started by: giridhar276
3 Replies

8. Shell Programming and Scripting

Perl : embedding java script with cgi perl script

Hi All, I am aware that html tags can be embedded in cgi script as below.. In the same way is it possible to embed the below javascript in perl cgi script ?? print("<form action="action.htm" method="post" onSubmit="return submitForm(this.Submitbutton)">"); print("<input type = "text"... (1 Reply)
Discussion started by: scriptscript
1 Replies

9. Shell Programming and Scripting

Excuting perl script from within a perl script with variables.

Not sure what I am doing wrong here, but I can print the list with no issue. Just a blank screen with the 'do'. #!/usr/bin/perl open FILE, "upslist.txt"; while ($line=<FILE>){ if ($line=~/^(.*?),(.*?)$/){ #print "ups:$1 string:$2\n"; do 'check_snmp_mgeups-0.1.pl -H $1 -C $2'; } ... (1 Reply)
Discussion started by: mrlayance
1 Replies

10. Programming

PERL: In a perl-scripttTrying to execute another perl-script that SETS SOME VARIABLES !

I have reviewed many examples on-line about running another process (either PERL or shell command or a program), but do not find any usefull for my needs way. (Reviewed and not useful the system(), 'back ticks', exec() and open()) I would like to run another PERL-script from first one, not... (1 Reply)
Discussion started by: alex_5161
1 Replies

LEARN ABOUT REDHAT

nbp_name

NBP_NAME(3)						     Library Functions Manual						       NBP_NAME(3)

NAME

       nbp_name - NBP name parsing

SYNOPSIS

       nbp_name( name, obj, type, zone )
       char *name, **obj, **type, **zone;

DESCRIPTION

       nbp_name()  parses user supplied names into their component object, type, and zone.  obj, type, and zone should be passed by reference, and
       should point to the caller's default values.  nbp_name() will change  the  pointers  to	the  parsed-out  values.   name  is  of  the  form
       object:type@zone,  where  each  of  object, :type, and @zone replace obj, type, and zone, respectively.	type must be proceeded by `:', and
       zone must be preceded by `@'.

EXAMPLE

       The argument of afpd(8)'s -n option is parsed with nbp_name().  The default value of obj is the first component of the  machine's  hostname
       (as  returned  by gethostbyname(3)).  The default value of type is ``AFPServer'', and of zone is ``*'', the default zone.  To cause afpd to
       register itself in some zone other than the default, one would invoke it as

	      afpd -n @some-other-zone

       obj and type would retain their default values.

BUGS

       obj, type, and zone return pointers into static area which may be over-written on each call.

netatalk 1.3							    12 Jan 1994 						       NBP_NAME(3)
All times are GMT -4. The time now is 07:35 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy