Regex and array issue...

[atrus123]

Hi all,

I'm trying to take a line like this:

<guid isPermaLink="false">Entry 29</guid> 

Strip it of everything but the number, push that number into an array of other numbers, add one to the highest value, and print that value.

if ($ngrab =~ /<guid.*/)
{
  $ngrab =~ s/<guid.*Entry.//i; $ngrab =~ s/<\/guid>//i;
  push(@guid, $ngrab); 
}
 
$i = scalar(@guid); $i++;
@sguid = sort(@guid);
print $sguid[$i];
 

However, I'm not getting anything. Is the way I'm going about this fundamentally wrong or is there some small bit to change to get it working?

Thanks for your help!

[numberwhun]

First, thank you for putting your code in code tags. :-) Just a hint. If you put code=perl inside the square brackets, it formats the code with color coding as well and looks really nice.

Second, I can start you in the right direction by at least helping you match the two numbers in the string. Here is the code I just whipped up:

use strict;
use warnings;
 
open(FILE, "<./data.txt");
 
while(<FILE>)
{
    if($_ =~ m/^.*(\d{2}).*$/ )
    {
        chomp($_);
        print("$1\n");
    }
    else
    {
        print("Not Found.  Regex didn't work!\n");
    }
}
 
close(FILE);
 

That will print out all of the numbers in the following data that I took from your example:

 DATA FILE
 
<guid isPermaLink="false">Entry 29</guid>
<guid isPermaLink="false">Entry 29</guid>
<guid isPermaLink="false">Entry 29</guid>
<guid isPermaLink="false">Entry 29</guid>
<guid isPermaLink="false">Entry 29</guid>
<guid isPermaLink="false">Entry 29</guid>
<guid isPermaLink="false">Entry 29</guid>
<guid isPermaLink="false">Entry 29</guid>
<guid isPermaLink="false">Entry 29</guid>
<guid isPermaLink="false">Entry 29</guid>
 

Go ahead and use that regex and see if it helps get the rest of your code going.

BTW, is this homework? I am just curious as it sounds like an assignment.

Regards,

Jeff

[KevinADC]

Hi all,

I'm trying to take a line like this:

<guid isPermaLink="false">Entry 29</guid> 

Strip it of everything but the number,

$ngrab = '<guid isPermaLink="false">Entry 29</guid>';
$ngrab =~ tr/0-9//dc;
print $ngrab;

[atrus123]

Thanks all!

I'll give this stuff a shot and let you know.

@numberwhun: No, it's not homework. The library CMS where I work doesn't support blog software, and so I'm throwing together a script to help the librarians and assistants update the RSS feed without having to hack any code. I have everything working swimmingly except that one thing. Regex is not one of my strong-suits. :-(

Update: Thanks in large part to your suggestions, I got this working. However, I did so by ditching the array all-together. It occurred to me that there was no real reason to use it, because I only needed the highest value, which would come first. Here was my solution:

if (($ngrab =~ /<guid.*/) && ($grab != 1))
{
  $ngrab =~ tr/0-9//dc;      # Much more elegant than my method!  Thanks!
  chomp($ngrab);
  $check = $ngrab;
  $grab = 1;
}
 
$check++;
 
print $check;
 

[numberwhun]

Thanks all!

@numberwhun: No, it's not homework. The library CMS where I work doesn't support blog software, and so I'm throwing together a script to help the librarians and assistants update the RSS feed without having to hack any code. I have everything working swimmingly except that one thing. Regex is not one of my strong-suits. :-(

No worries, it was not an accusation. I was just curious as to the nature of what you were working on is all. It sounds like an interesting project.

As for regex's, they left me bewildered in the beginning. PM me your email address and I will send you a document that REALLY helped me understand them.

Regards,

Jeff