Re: Need help with REGEX

Discussion in 'Perl' started by Andrew Holme, Nov 30, 2008.

  1. Andrew Holme

    Andrew Holme Guest

    "Michael R. McPherson Pierotti" <> wrote in
    message news:...
    > Folks its been awhile (5 years) since I have done anything with Perl so I
    > consider myself back at newbie statis :(
    >
    >
    > #strict on
    >
    > use Net::Telnet ();
    >
    > $t = new Net::Telnet (Timeout => 10,Prompt => '/\</' ); #
    >
    > $t->open(Host => "X.X.X.X");
    >
    > $t->waitfor('/ENTER USERNAME \</');
    > $t->print("XXXXXXX");
    > $t->waitfor('/ENTER PASSWORD \</');
    > $t->print("XXXXXXX");
    > $t->waitfor('/\</')
    > or die "No Prompt";
    >
    > @out1 = $t->get;
    >
    > # -------------- #
    > # Dump all trees #
    > # -------------- #
    >
    > @RIR = $t->cmd(String => "ZRIR:;", Output_record_separator => "\n") or die
    > "EEEK";
    > print @RIR;
    >
    > $n=0;
    > while ($RIR[$n]) {
    > if ($RIR[$n] =~ m/^TREE/){
    > $line = $RIR[$n];
    > $line =~ /\d/;
    > print $line . "\n";
    > }
    > $n++;
    > }
    >
    >
    > Now my problem is this. The Net::Telnet command fills my array with lines
    > like the following
    >
    > TREE= 950 ATYPE=N TON=INT
    > DIGITS AL NBR RT CT SP NL RC DEST CHI CNT
    > SDEST
    > 1 0 1011 SPR NGC 11 32 APR 335 2 N 31
    >
    > ATYPE=N TON=NAT
    > DIGITS AL NBR RT CT SP NL RC DEST CHI CNT
    > SDEST
    > 671456 0 900 SPR SC 1 32 APR 336 2 N 33
    >
    > ATYPE=N TON=NAT
    > DIGITS AL NBR RT CT SP NL RC DEST CHI CNT
    > SDEST
    > 671476 0 900 SPR SC 1 32 APR 336 2 N 33
    >
    > My code if ($RIR[$n] =~ m/^TREE/) is successfully REGEX for my "TREE= 950
    > ATYPE=N TON=INT "
    >
    > Now want I want to do is a REGEX to pull ONLY the digits out of this (950)
    > and assign them to s $string. Obviosly my $line =~ /\d/; isn't working
    > and
    > I am braindead on REGEX since it has been so long.
    >
    > Any and all help is greatly appricited.
    >
    > BR Mike
    >



    if ($line =~ /TREE=\s*(\d+)/) {

    $digits = $1;
    }
     
    Andrew Holme, Nov 30, 2008
    #1
    1. Advertisements

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.
Similar Threads
  1. Shapper

    Validate Email. RegEx. Need Help.

    Shapper, May 11, 2005, in forum: ASP .Net
    Replies:
    4
    Views:
    3,060
    Brock Allen
    May 11, 2005
  2. Christophe Vanfleteren

    Need help with regex

    Christophe Vanfleteren, May 2, 2004, in forum: Java
    Replies:
    6
    Views:
    463
    Christophe Vanfleteren
    May 3, 2004
  3. -

    need help with regex

    -, Feb 8, 2005, in forum: Java
    Replies:
    7
    Views:
    506
    Alan Moore
    Feb 10, 2005
  4. DartmanX

    Need Help With Java Regex

    DartmanX, Jun 9, 2005, in forum: Java
    Replies:
    3
    Views:
    503
    Harald
    Jun 12, 2005
  5. vamp4l

    need help with regex

    vamp4l, Nov 4, 2005, in forum: Java
    Replies:
    2
    Views:
    384
    Roedy Green
    Nov 5, 2005
  6. =?Utf-8?B?QVZM?=

    need help on regex

    =?Utf-8?B?QVZM?=, Sep 17, 2007, in forum: ASP .Net
    Replies:
    2
    Views:
    448
    Jesse Houwing
    Sep 17, 2007
  7. CodeGrommet

    Need help with regex please

    CodeGrommet, Jan 2, 2008, in forum: Java
    Replies:
    4
    Views:
    386
    Jeff Higgins
    Jan 2, 2008
  8. Replies:
    3
    Views:
    1,207
    Reedick, Andrew
    Jul 1, 2008
Loading...