Jerry Preston wrote:
>
> Hi!,
>
> This is working, but is getting to be to big. Is there a better way?
>
> +: JERRY : SCRAP AND HOLD : C-1234567-02 : = 3 sites outside [ 1.0000,
> 10.0000 ] *
>
> ( $parm[ $p ], $t1, $t2, $t3, $header, $number_, $count[ $p ],
> $site[ $p ], $t4, $t5, $min, $max ) =
>
> /\+:\s+(\w+)\s+:\s+(\w+)\s+(\w+)\s+(\w+)\s+:\s+(\w)-(\d{7})-(\w{2})\s+:\s+=\
> s+(\d+)\s+(\w+)\s+(\w+)\s+\[\s+(\d+).(\d+),\s+(\d+).+(\d+)./;
>
> I would like to but $t1, $t2 and $t3 together as well as $min and $max.
$ perl -le'
$_ = q/+: JERRY : SCRAP AND HOLD : C-1234567-02 : = 3 sites outside [
1.0000, 10.0000 ] */;
@fields = grep length, split /\s*[:\[\]+=,*-]\s*/;
print for @fields
'
JERRY
SCRAP AND HOLD
C
1234567
02
3 sites outside
1.0000
10.0000
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
