OOooo, that's certainly elegant :)

I've been trying to get things happening... with some success.

My regex is still woeful... but I have a vague idea of what's going on here.. I still can't get the CT/CL items "usable" though, viz: 

use Data::Dumper;

@opts = ( "SS  21M- PL 2#3  PV  51.3 CL #110 +0 RL 126' SA 106 DS 93",
          "SS  21 + PL 2.3  PVa51.3 CT^ 110 +0 RL126, SA 106 DS 93",
          "SS  21F  PL2#3#  PV   51.3 CL #110 +0 RL 126' SA 106 DS 93"
+,
          "SS  21#+ PL2.3#  PV   51.3 CL  110 -13 RL 126' SA 106 DS 93
+",
          "SS  32 - PL2.3#  PV   51.3 CL #110 +0 RL 126' SA 106 DS 93"
        );


my ($ss, $mstate, $mvote);

my %patterns = (
  qr/SS\s+(\d+)([MF# ])([\+\- ])/
    => sub { $ss = $1; $mstate = $2; $mvote = $3; },
    
#  qr/PL\s+([=#]?)(\d+)([=#]?)(\d+)/
#  qr/PL\s+(\d+)([\.\#])(\d+)([\.\#])/
  qr/PL\s*(\d+)([\#\.])(\d+)([\#\.]?)/
    => sub { $sp = $1; 
             $spl = $2; $spl = "" if ($spl ne "#");
             $lp = $3; 
             $lpl = $4; $lpl = "" if ($lpl ne "#");
           },
    
  qr/PV\s*([a-z]?\d+)(\.)(\d+)/
    => sub { $vsp = $1; $vlp = $3 },
    
  qr/RL\s+(\d+)([,'"]?)/
    => sub { $rl = $1; $rlflg = $2; },
    
  qr/SA\s+(\d+)/
    => sub { $csa = $1 },
    
  qr/DS\s+(\d+)/
    => sub { $cds = $1 },
    
  qr/CT\s+([#^]?)\s*(\d+)\s+(\S+)\s+(\S+)/,
    => sub { },
    
  qr/CL\s+([#^]?)(\d+)\s+(\S+)/,
    => sub { },
);

sub MAGIC {
  my $line = $_[0];
  $_ = {};
  $line =~ s/^\s*//;
printf("Input: >%s<\n", $line);
LOOP:
  while (length($line)) {
    for my $k (keys %patterns) {
      if ($line =~ s/^$k(?:\s+|\z)//) {
        $patterns{$k}->();
        next LOOP;
      }
    }
    warn "got stuck on: $line\n";
    $_->{leftover} = $line;
    last;
  }

   printf("    \$ss = $ss\n");
   printf("\$mstate = >$mstate<\n");
   printf(" \$mvote = >$mvote<\n");

   printf("   \$sp  = $sp\n");
   printf("   \$spl = $spl\n");
   printf("   \$lp  = $lp\n");
   printf("   \$lpl = $lpl\n");

   printf("   \$ctl = ...\n");
   printf("    \$ct = ...\n");
   printf("   \$ctr = ...\n");


   printf("   \$vsp = $vsp\n");
   printf("   \$vlp = $vlp\n");

   printf("    \$rl = $rl\n");
   printf(" \$rlflg = $rlflg\n");

   printf("   \$csa = $csa\n");
   printf("   \$cds = $cds\n");

  $_;
}


foreach $buf (@opts) {
   printf("START -----\n");
   MAGIC($buf);
#   print Dumper( MAGIC($buf));
   printf(" \n");
}

[download]
For example, for the 4th item in @opts, I would like to capture the info that:

Buf: "SS  21#+ PL2.3#  PV   51.3 CL  110 +13 RL 126' SA 106 DS 93"

Cycle Time = CT (or CL) = 110
Locks = (no #) = OFF
Rotation = "that number"  = 13

[download]
Many thanks for the assistance; I appreciate it a lot.

In reply to Re^2: Parsing a Variable Format String by ozboomer
in thread Parsing a Variable Format String by ozboomer

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.