Re: Newbie Perl Question
- From: trwww@xxxxxxxxxxxxx (Todd W)
- Date: Mon, 17 Jul 2006 14:30:23 -0400
""Rod Burgess"" <rodbandkimb@xxxxxxx> wrote in message
news:BAY116-F293D6F8A3796D64F78AE7DB8620@xxxxxxxxxx
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?
You bet. This is what perl was made for:
$ cat tab2csv.dat
DR03555 45600062888 00008FLAT WASHER
DR03555 228765329 00001GASKET
$ cat tab2csv.pl
while (my $line = <>) {
my( $order, $part, $qty, $descr ) = $line =~ m|(.+?)\t(.+?)\t(\d+)(.+)$|;
print( join(';', $part, $qty + 0, $descr), "\n" );
}
$ perl tab2csv.pl tab2csv.dat
45600062888;8;FLAT WASHER
228765329;1;GASKET
Enjoy,
Todd W.
.
- References:
- Newbie Perl Question
- From: Rod Burgess
- Newbie Perl Question
- Prev by Date: Re: Newbie Perl Question
- Next by Date: Re: Newbie Perl Question
- Previous by thread: Re: Newbie Perl Question
- Next by thread: Re: Newbie Perl Question
- Index(es):
Relevant Pages
|
|
