in reply to Re: XML data extraction (updated x2)
in thread XML data extraction

Thanks haukex for help.

It will be grateful if you can help to correct below two queries :

Want to calculate the Time Stamp between date now and timereceived .

Getting error in pattern not matching ,can u share the correct pattern for "10/10/2017 11:35 PM"

#Begin###Calculate the time difference
my $dtnow = DateTime->now;
my $timereceived = "10/10/2017 11:35 PM";
my $strp = DateTime::Format::Strptime->new(on_error=>'croak',pattern =
+>  '%m/%d/%Y %H:%M %t', time_zone=>'UTC');
my $dtevent = $strp->parse_datetime($timereceived);
my $diff_sec = $dtnow->subtract_datetime_absolute($dtevent)->in_units(
+'seconds');
my $diff_hours = sprintf("%.0f" , $diff_sec/(60*60));
#End###Calculate the time difference

[download]

Another query in expression formatting ---

my name = 'greenfield (Glossary) (100)'
   foreach ( $name =~ /\((.*?)\)/ )
   {
    $appID = $1;
   }

[download]

variable $name is having two value in two different brackets (Glossary) and (100) with below regular expression i am getting output as

'appid' => 'Glossary'

But i want 'appid' => '100'

it should avoid the first bracket (Glossary) values and only last (100) bracket vales it should pick

-Thanks.

Replies are listed 'Best First'.
Re^3: XML data extraction
by haukex (Archbishop) on Oct 12, 2017 at 07:47 UTC

    Since these are new questions unrelated to the rest of the thread, it would be best to post it in a new SoPW thread (but please don't re-post now).

    pattern for "10/10/2017 11:35 PM" ... '%m/%d/%Y %H:%M %t'

    Have a look at the DateTime::Format::Strptime docs - instead of %t you need to use the pattern that matches AM/PM, and instead of %H for 24-hour time you need to use the pattern which matches 12-hour times.

    expression formatting ... two different brackets (Glossary) and (100)

    Sorry but a single example is not enough to help with a regular expression. For example, can you be sure there will always be exactly two sets of parens in the string? Might there be characters after the second set of parens? Might there even be nested parens? And what strings shouldn't match the regex? Please see How to ask better questions using Test::More and sample data as well as my post here.

    Since this question is relatively basic, now might be a good time to review perlrequick and/or perlretut. You might find anchors (like ^ and $) to be useful, but again, that depends on what the various strings you're matching against look like. Also, regex101 can be a useful tool - note that it is not compatible with some of Perl's more advanced features, but for basic things can be very useful.

    Minor edits for clarity.

[reply]
[d/l]
[select]
      Am able to get the correct date pattern .Thanks.
      For regex there will be mostly two sets of parens in single string and always want to pick the values from last set of parens i.e :100 
      my $name = "greenfield (Glossary) (100)";
my $appID;
   foreach ( $name =~ /\((.*?)\)/ )
   {
    $appID = $1;
   }
print $appID;

      [download]

      above code gives me output : Glossary

[reply]
[d/l]
        #!/usr/bin/env perl 
use strict;
use warnings;
use Test::More tests => 1;

my $name = "greenfield (Glossary) (100)";
my $want = '100';

$name =~ /([^(]+)\)$/;
is ($1, $want, "Matched");

        [download]

        If you want what's at the end, anchor it to the end.

[reply]
[d/l]
[reply]

In Section Seekers of Perl Wisdom