Gowri Chandra Sekhar Barla, TLS, Chennai wrote:
Hi
Hello,
I am new to perl
Can any one please give the scripting for appending line numbers for the code lines
For example:
/* requesting for the script
* for printing line number */
Fun_script()
{
Int a; /* local parameter */
Int b; /* local parameter */
/* adding the
Two numbers */
Int c = a+b;
}/* function end */
Output should be:
/* requesting for the script
* for printing line number */
1 Fun_script()
2 {
3 Int a; /* local parameter */
4 Int b; /* local parameter */
/* adding the
Two numbers */
5 Int c = a+b;
6}/* function end */
$ echo "
/* requesting for the script
* for printing line number */
Fun_script()
{
Int a; /* local parameter */
Int b; /* local parameter */
/* adding the
Two numbers */
Int c = a+b;
}/* function end */
" | perl -e'
my $count;
while ( <> ) {
my $temp = $_;
s!/\*.*?(?:\*/|$)!!, s!(?:^|/\*).*?\*/!!, s/^\s+//, s/\s+$// for $temp;
print length $temp ? ++$count . " $_" : $_;
}
'
/* requesting for the script
* for printing line number */
1 Fun_script()
2 {
3 Int a; /* local parameter */
4 Int b; /* local parameter */
/* adding the
Two numbers */
5 Int c = a+b;
6 }/* function end */
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
