cant get perl to pull information right Post: 302304966

Sponsored Content

Top Forums Shell Programming and Scripting cant get perl to pull information right Post 302304966 by KevinADC on Tuesday 7th of April 2009 04:27:27 PM

04-07-2009

Registered User

Quote:

Originally Posted by richsark

Hi Kevin, I think I got it !

I added 'ism' to this line

elsif ($line =~ /^Sark DNS 4.X ([^\r\n]+)/ism) {

ran your code and got....

2.0.0.0/8
Under Sark DNS 4.X Options field found, allow-update is set to Use List with the values Template Name=EXCHANGESVR;B1DMZBP and other=100.100.100.1

Is this possible?

Actually the regexp should have really been like this, with the dot escaped:

Code:

elsif ($line =~ /^Sark DNS 4\.X ([^\r\n]+)/ism) {

The "i" makes it case insensitive, the "s" treats it as a single string even if there are embedded newlines in the string and "m" matches over multiple lines. "i" could be returing a true match if the case of the text is different than what you have posted, "s" could be causing the regexp to find the \n on the end and return a true match, personally I thought that would not be necessary to return a true match but maybe it is.

Remove the 's' or the 'm' and try again. See which one is actually causing the regexp to return a true match. My guess is that its the "s". The "i" and "m" might not be doing anything.

KevinADC

View Public Profile for KevinADC

Find all posts by KevinADC

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl: adding columns in CSV file with information in each

Hi Wise UNIX Crew, I want to add 3 different columns to the file in which: 1. The first new column pulls in today's date and time 2. Second column one has a '0' 3. Third column has the word 'ANY' going down the column If my file content is as follows: "7","a","abc",123"...

2. Shell Programming and Scripting

Please do help: Perl Script to pull out rows from a CSV file

I have CSV file that contains data in the format as shown below: ABC, 67, 56, 67, 78, 89, 76, 55 PDR, 85, 83, 83, 72, 82, 89, 83 MPG, 86, 53, 54, 65, 23, 54, 75 .. .. .. .. I want to create a script that will pull out the rows from the above sheet and paste it into another CSV file....

3. Shell Programming and Scripting

Print file information using ffmpeg in perl

I am trying to print file information using ffmpeg tool in perl Here is my code use strict; use warnings; use IPC::Open3; # example my $filename = $ARGV; my %videoInfo = videoInfo($filename); print "duration: " . $videoInfo{'duration'} . "\n"; print "durationsecs: " ....

4. Shell Programming and Scripting

perl script to print file information - newbie

Hi I have a perl script that prints all the video and audio file information(playing duration). It works fine in one of my friends linux laptop. But it doesn't work in my both windows and linux. My friend told me I have to do install some module ( ppm instal ...... ) but I have no...

5. Shell Programming and Scripting

Parsing information in perl

So i'm trying to write a perl script that logins into a network switch via ssh: #sh ip traffic IP statistics: Rcvd: 1460119147 total, 563943377 local destination 0 format errors, 0 checksum errors, 48401998 bad hop count 0 unknown protocol, 8379279 not a gateway ...

6. Programming

Adding information to c file using perl

Hi, I have c file which contains more number of tests. two or more tests in one c file. I have the XMl data regarding tests. i need to add this xml data to c file at before the test. I know which file having which test and i created hash table for that. so the problem is i have to add information...

7. Shell Programming and Scripting

[Solved] How can I pull specific information from PS?

I need to grab information from the output of the ps command. For each line of ps output that contains _progres -b I need to get the word that follows -p. The "-p" can be anywhere after "_progres -b". Using grep to select the correct lines is no problem (e.g. ps -ef|grep "_progres \-b|grep -v...

8. Shell Programming and Scripting

Pull out information from output logs

My scenario is as follows. 1. I have a reference file with the IP addresses and names $ cat ref.list 10.11.xxx.xxx AA 10.12.xxx.xxx BB 10.13.xxx.xxx CC 10.14.xxx.xxx DD 2. A script runs and gets me one of the IP addresses and puts it in a separate file, for e.g...

9. Shell Programming and Scripting

Perl to extract information from a file line by line

In the below perl code I am using tags within each line to extract certain information. The tags that are used are: STB >0.8 is STRAND BIAS otherwise GOOD FDP is the second number GO towards the end of the line is read into an array and the value returned is outputed, in the first line that...

LEARN ABOUT OSX

ppi::token::regexp::match

PPI::Token::Regexp::Match(3)				User Contributed Perl Documentation			      PPI::Token::Regexp::Match(3)

NAME

       PPI::Token::Regexp::Match - A standard pattern match regex

INHERITANCE

	 PPI::Token::Regexp::Match
	 isa PPI::Token::Regexp
	     isa PPI::Token
		 isa PPI::Element

SYNOPSIS

	 $text =~ m/match regexp/;
	 $text =~ /match regexp/;

DESCRIPTION

       A "PPI::Token::Regexp::Match" object represents a single match regular expression. Just to be doubly clear, here are things that are and
       aren't considered a match regexp.

	 # Is a match regexp
	 /This is a match regexp/;
	 m/Old McDonald had a farm/eieio;

	 # These are NOT match regexp
	 qr/This is a regexp quote-like operator/;
	 s/This is a/replace regexp/;

METHODS

       There are no methods available for "PPI::Token::Regexp::Match" beyond those provided by the parent PPI::Token::Regexp, PPI::Token and
       PPI::Element classes.

       Got any ideas for methods? Submit a report to rt.cpan.org!

SUPPORT

       See the support section in the main module.

AUTHOR

       Adam Kennedy <adamk@cpan.org>

COPYRIGHT

       Copyright 2001 - 2011 Adam Kennedy.

       This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

       The full text of the license can be found in the LICENSE file included with this module.

perl v5.16.2							    2011-02-25					      PPI::Token::Regexp::Match(3)