问题

软件 >> Perl
Questions in category: Perl (Perl).

如何去除文本文件中每一行前三个字符?

Posted by haifeng on 2021-10-27 14:28:26 last update 2021-10-27 14:28:26 | Answers (0) | 收藏


 

经常会碰到一些源文件, 每一行带有行号. 比如下面的代码, 来自 算术表达式解析(第三版)词法分析版 - mjwk - 博客园 (cnblogs.com)

如何去掉行首的行号?

 

 

//用于词法定界的头文件 token.h 1 #ifndef _TOKEN_H_VERSION_20140930
 2 #define _TOKEN_H_VERSION_20140930
 3 
 4 enum TokenKind{
 5     BAD_TOKEN,
 6     NUMBER_TOKEN,
 7     ADD_OPERATOR_TOKEN,
 8     SUB_OPERATOR_TOKEN,
 9     MUL_OPERATOR_TOKEN,
10     DIV_OPERATOR_TOKEN,
11     LEFT_PAREN_TOKEN,
12     RIGHT_PAREN_TOKEN,
13     END_OF_LINE_TOKEN,
14 };
15 
16 #define MAX_TOKEN_SIZE (100)
17 
18 struct Token{
19     TokenKind kind;
20     double value;
21     char str[MAX_TOKEN_SIZE];
22 };
23 
24 void set_line(char* line);
25 void get_token(Token* token);
26 
27 #endif