Question

如何在perl程序中打印出当前代码行的行号

Answer 1

如何在perl程序中打印出当前代码行的行号
求根公式为：
令 ，
则x1=p+q
x2=p-q
源程序如下：
#include<math.h>
main()
{
float a,b,c,disc,x1,x2,p,q;
scanf(“a=%f,b=%f,c=%f”,&a,&b,&c);
disc=b*b-4*a*c;
p=-b/(2*a);
q=sqrt(disc)/(2*a);
x1=p+q;x2=p-q;
printf(“\nx1=%5.2f\nx2=%5.2f\n”,x1,x2);
}
c语言 5
　　5 分支结构程序
　　5.1 关系运算符和表达式
　　5.1.1 关系运算符及其优先次序
　　5.1.2 关系表达式
　　5.2 逻辑运算符和表达式
　　5.2.1 逻辑运算符极其优先次序
　　5.2.2 逻辑运算的值
　　5.2.3 逻辑表达式
　　5.3 if语句
　　5.3.1 if语句的三种形式
　　5.3.2 if语句的嵌套
　　5.3.3 条件运算符和条件表达式
　　5.4 switch语句
　　5.5 程序举例
5 分支结构程序

Answer 2

#include <stdio.h>
int main(void){
printf("当前文件名：%s\",__FILE__);//输出当前程序文件名
printf("当前行号：%s\n",__<a href="https://www.baidu.com/s?wd=LINE&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1YLPAcdm1KWP1IBryRvPW9-0ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3En16snjD3P1D4" target="_blank" class="baidu-highlight">LINE</a>__);//输出源文件的当前行号
return 0;
}

Answer 3

perl 中也有一个__line__ 可以显示当前的代码行的。
你可以试一试。

die函数中已经有实现
你不用管，在一个过程或者函数的运行的时候加上die...语句便是