Shell Programming and Scripting

HI,

I saw your one example on
exportdnsrr-report.txt how about the other files/formats?

Thanks !

Depends on the delimiter and what exactly you want to match. The code assumes that:

(1) Your delimiter is a comma, and
(2) You want to match an entire token between delimiters i.e. this -

Code:

123,XYZ,abc,0.234

is a valid match for "abc", but this -

Code:

123,XYZ,param=abc,0.234

is not.

Since the delimiters for "exportOBJ-sark.txt" and "exportdnsrr-report.txt" are the same (comma), the code should work for both, assuming you want the match semantics like (2) above.

For the 3rd file - "ResourceRecText-ALL.txt", you'll have to split it as per the delimiter. And the rest of the logic remains the same.

tyler_durden

Hi Durden,

Thanks for your reply. Would it be possiable to provide me a code for the last one?

"For the 3rd file - "ResourceRecText-ALL.txt", you'll have to split it as per the delimiter. And the rest of the logic remains the same"

I hate to be a burden, but I do not have the fore knowledge.

Also, I asumme I have to run this on the command line, and I get convert it to a script right?

Thanks !

What's the delimiter in the 3rd file - "ResourceRecText-ALL.txt" ?

You can run it on the command line passing one file at a time.
Or you can incorporate the logic in a perl program that processes all your files.

tyler_durden

Hi !

for ResourceRecText-ALL.txt
(example of contents)
outputRR-sark.com.txt:ResourceRecText=whdgss1infz-qapri1.is.sark.com.
outputRR-sark.com.txt:ResourceRecText=n3mgss1infz-qasec1.is.sark.com.

I am looking to search only on what the name is after the =

so for the abve excerpt would be:
whdgss1infz-qapri1.is.sark.com.

and

n3mgss1infz-qasec1.is.sark.com.

Thanks

Does that help ?

HI, I ran your slightly modified code, and I got the same response.

When I run it on my actual files, I dont get the same..

Code:

$ perl -ne 'BEGIN{open(F,sark.com.txt"); while(<F>) {chomp; split/,/; $s{$_[0]}=1; $s{$_[3]}=1}}

> {chomp; @x=split/,/; foreach $i(@x){if (defined $s{$i}) {print $_,"\n"; last} }}'exportOBJ-sark.txt


String found where operator expected at -e line 2, near "{chomp; @x=split/,/; foreach $i(@x){if (defined $s{$i}) {print $_,""
(Might be a runaway multi-line "" string starting on line 1)
(Missing semicolon on previous line?)
String found where operator expected at -e line 2, at end of line
(Missing semicolon on previous line?)
syntax error at -e line 2, near "{chomp; @x=split/,/; foreach $i(@x){if (defined $s{$i}) {print $_,""
Can't find string terminator '"' anywhere before EOF at -e line 2.