nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

matching regex in simple form

Bhargav Coca

All I am trying to do is there is a mandatory tag in DCR, and I am trying to read the content of that tag by a basic file reading using perl. I do not want to use any Parser. here is the snippet. Slap me where i am going wrong?
This things executing giving me a blank "Value is :"
Thanks

[html]
my $text;
open(SAMSUNG, "$dcr_path");
while()
{
$text .= $_;
}
close(SAMSUNG);
print $text;
$text=~/\n*$\//;
$text=~m/^\(.*)\<\/item\>$/s;
print "Value is : $1";
[/html]

Find more posts tagged with

Comments

ISCBorisB

All I am trying to do is there is a mandatory tag in DCR, and I am trying to read the content of that tag by a basic file reading using perl. I do not want to use any Parser. here is the snippet. Slap me where i am going wrong?
This things executing giving me a blank "Value is :"
Thanks

[html]
my $text;
open(SAMSUNG, "$dcr_path");
while()
{
$text .= $_;
}
close(SAMSUNG);
print $text;
$text=~/\n*$\//;
$text=~m/^\(.*)\<\/item\>$/s;
print "Value is : $1";
[/html]

Your regex will match only if the entire $text contains just Title item and nothing else. Try

$text =~ m/<item name="Title">(.*?)<\/item>/ims;

Bhargav Coca

Thats excatly what i did earlier too, but some reason it didn't work earlier more over as in any DCR there is tag in which content is enclosed. I will strip this and make it work.

Thanks

Bhargav Coca

for some reason, I am getting formatted output. I do not want any formatting on my output, any pointers? I need just value in between xxxx.

2SeriesExample.zip

Jenni

Can you tell us what formatting you get in your output? Examples are good.

Bhargav Coca

Can you tell us what formatting you get in your output? Examples are good.

Here is an example, typical snippet of a DCR is as below.
[html]

Some Content which goes here

Output:
Some Content which goes here

[/html]
I was guessing that it is keeping the formatting in the newline for which it is looking for starting with .

Thanks

Jenni

Here is an example, typical snippet of a DCR is as below.
[html]

Some Content which goes here

Output:
Some Content which goes here

[/html]
I was guessing that it is keeping the formatting in the newline for which it is looking for starting with .

Thanks

Do you mean to say that you need "Some content which goes here" and not
[html]
Some Content which goes here

[/html]

Bhargav Coca

Do you mean to say that you need "Some content which goes here" and not
[html]
Some Content which goes here

[/html]

Yes, I did a substitute regex for stripping any \t\n etc, So that i can get the value at the starting left corner.

Thanks

Jenni

How about trying:
[html]
$text =~ m/(.*?)<\/value><\/item>/ims;

[/html]

Bhargav Coca

How about trying:
[html]
$text =~ m/(.*?)<\/value><\/item>/ims;

[/html]

Tried it very long time ago, doesn't even give your value, forget about formatting.

Thank You

Jenni

How about getting the formatted string and do substitution for tags?

[html]
$text =~ s///;

[/html]

Bhargav Coca

How about getting the formatted string and do substitution for tags?

[html]
$text =~ s///;

[/html]

I did that too, In which case I will get value, but will not get rid of formatting.

Thank You.

FYI, I did subsitute for new line or tab to get rid ofem, but it doesn't effect the output.
thanks

Adam Stoller

All I am trying to do is there is a mandatory tag in DCR, and I am trying to read the content of that tag by a basic file reading using perl. I do not want to use any Parser. here is the snippet. Slap me where i am going wrong?
This things executing giving me a blank "Value is :"
Thanks

[html]
my $text;
open(SAMSUNG, "$dcr_path");
while()
{
$text .= $_;
}
close(SAMSUNG);
print $text;
$text=~/\n*$\//;
$text=~m/^\(.*)\<\/item\>$/s;
print "Value is : $1";
[/html]

How about:

open(IN, '<:utf8', $file) || die " '$file' ($!)";
my $text = do {local $/; <IN>};
close(IN);
print "$text\n------------\n";
$text =~ s/[\r\n]*//gsm;
if ($text =~ m|^.*<item name="Title">\s*<value>(.*?)</value>\s*</item>.*$|) {
    print "Value is: $1\n";
}

Limited testing, but:

/tmp > ./foo.ipl<record> <item name="Title"> <value>Some Content which goes here</value> </item></record>-------Value is: Some Content which goes here

Bhargav Coca

You'r regex didn't work Adam for some reason, it wan't executing the if condition. here is what i did to get rid of all spaces, except one indentation before the result.

Here is my snippet,
[html]
$text=~/\n*$\//;
$text =~ m/(.*?)<\/item>/ims;
my $result = "$1";
$result =~s/\//;
$result =~s/\<\/value\>//;
$result =~s/[\r\n\t]//igm;
print "$result";
[/html]

Thanks

Adam Stoller

You'r regex didn't work Adam for some reason, it wan't executing the if condition. here is what i did to get rid of all spaces, except one indentation before the result.

Well it worked for me as can be seen in the posting - perhaps something went wrong when you copied it or retyped it?

Here is my snippet,
[html]
$text=~/\n*$\//;
$text =~ m/(.*?)<\/item>/ims;
my $result = "$1";
$result =~s/\//;
$result =~s/\<\/value\>//;
$result =~s/[\r\n\t]//igm;
print "$result";
[/html]

Thanks

I see some problems with the above code:

Other than that, .... ;-)

test.html

cal1.rptdesign

cal.rptdesign

Bhargav Coca

Thank You Adam for taking time to correct me. I will implement all your suggestions, as i said this is small part of a bigger code, the reason I wrote it the way it is that it fits my requirement. I wanted to avoid all this by just using an XML or DCR parser, but the performance issues were debatable against the more generic file parser.

either way my code works the way it is supposed to. I am good for now.

thank You once again.

Adam Stoller

Thank You Adam for taking time to correct me. I will implement all your suggestions, as i said this is small part of a bigger code, the reason I wrote it the way it is that it fits my requirement. I wanted to avoid all this by just using an XML or DCR parser, but the performance issues were debatable against the more generic file parser.

either way my code works the way it is supposed to. I am good for now.

thank You once again.

XML:

OM would probably be a lot easier.
Actually, better would be XML::XPath - I think the code would be something like:

use XML::XPath;
my $xp = XML::XPath->new(filename => $file);
my $nodeset = $xp->find('//item[@name="Title"]');
foreach my $node (@{$nodeset}) {
    (my $v = $node->string_value) =~ s|\n| |gsm;
    print "V: $v\n";
}

Bhargav Coca

Yes, I have implemented Xpath before and it works like a charm, but some how i could convince them to use it. I found a loophole on using regualr file parser, some of the special characters are not parsed as they are. I tried parsing using some Parsers it works perfectly.

Thanks you Adam.