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,050
    Brock Allen
    May 11, 2005
  2. Christophe Vanfleteren

    Need help with regex

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

    need help with regex

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

    Need Help With Java Regex

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

    need help with regex

    vamp4l, Nov 4, 2005, in forum: Java
    Replies:
    2
    Views:
    377
    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:
    441
    Jesse Houwing
    Sep 17, 2007
  7. CodeGrommet

    Need help with regex please

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