Hello Rod,
I am not the author of the initial message, but thanks a lot for your
reply.
I am trying to adopt your script to my need, and, basically, it works
for me.
But I am totally frustrated in regexp part in the script:
/^DR\d+.*?(\d+).*?(\d+)(.+)/
Could you please explain it? Or maybe you have a link to intelligible
guide for perl regexp?
I am sure a lot of the readers of this list would happy to understand
this really great part of perl :)
On Mon, Jul 17, 2006 at 08:13:59PM +0200, Dr.Ruud wrote:
> "Rod Burgess" schreef:
>
> Your Subject has no quality. Please come up with something like "convert
> data lines".
>
> > I am new to the Perl world and am trying to learn it. A coworker
> > tells me that Perl will not work for what I am trying to do however,
> > I think Perl would be a great tool to use and I feel this coworker
> > is wrong.
> > I have a file that contains several lines all as below:
> > DR03555{tab} 45600062888{tab} 00008FLAT WASHER
> > DR03555{tab} 228765329{tab} 00001GASKET
> >
> > The meaning of the file is
> > DR03555 = order number
> > 45600062888 = part number
> > 00008 = quantity
> > FLAT WASHER = Description
> >
> > The lines all begin with the prefex DR I would like to read this
> > file and produce the following output:
> >
> > 45600062888;8;FLAT WASHER
> > 228765329;1;GASKET
> >
> > basiclly I need a file that lists the following:
> > Part#;Quantity;Description
> >
> > Is this possible with Perl?
>
> Certainly.
>
> #!/usr/bin/perl
> # ID: pqd.pl
> use warnings ;
> use strict ;
>
> while ( <> )
> {
> /^DR\d+.*?(\d+).*?(\d+)(.+)/
> and print "$1;", 0+$2, ";$3\n" ;
> }
>
> If your data is in pqd.in, and pqd.pl is execuable, then just run it as
>
> pqd.pl pqd.in
>
> --
> Affijn, Ruud
>
> "Gewoon is een tijger."
>
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> <http://learn.perl.org/> <http://learn.perl.org/first-response>
>
--
Maxim
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
