Hi,
I have some Perl code that is trying to generate C structs from a csv
file. Problem is I am trying to format the output in a specific way.
Specifically:
struct <name>
{
type varName; /* comment */
type varName; /* comment
* multi-line comment
*/
}
I got the print working for everything except the multi-line comment.
Is there anyway in Perl to right justify it like I did in the multi-
line comment above? Here is some code, you will notice that the
comment on the second line will be all the way on the left side of the
output.
Thanks for the help.
Sample code to test:
#!/usr/bin/perl
use strict;
use warning;
my $type = "int";
my $varName = "counter";
my $comment = "Counter\nVariable";
$~ = "STRUCTFORMAT";
write;
format STRUCTFORMAT =
@* @*@ @< @*
$type, $varName, ";", "/*", $comment
.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
