perl - Perl adding line to begininning

Question

I have a perl script I am writing to parse a file based on regex. The problem is the file always starts with a new line. When I turn on hidden chars in vi it shows up as a "$" (this is vi on cygwin). is there a way I can use regex to remove them? I tried

s/\n//g

But that did not seem to work.

Answer 1

如果您的问题确实是由输入文件顶部的一个额外行引起的，并且假设您使用的是典型的循环while (<FILE>) { ... }，那么您可以通过在最前面插入这一行来跳过输入文件的第一行从你的循环开始：

next unless $. > 1;

Answer 2

最简单的方法是使用sed

sed 1d

Answer 3

要不就：

#!/usr/bin/perl
use warnings;
use strict;
use File::Slurp;

my @file = read_file('input.txt');
shift(@file);
foreach(@file){
    ...
}