"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>
