Perl skips the implementation code for reading files from the first line

Copy codeThe Code is as follows :#! /Usr/bin/perl
Open (READ, "<$ file ");
Readline READ; # skip the first line
While (<READ> ){
My ($ id, $ axis1, $ axis2, $ axis3, $ value) = split //;
$ Line = sprintf ("% d ",
$ Id, $ axis1, $ axis2, $ axis3, $ value, $ axis1 + $ axis2 );
Print WRITE $ line;
}
Close READ;

Here I will talk about my own ideas. It's stupid:
Directly define the scalar variable and run it again: my $ skipfirst = <FH>; it feels like this, but if you need to process multiple files at the same time, you need to skip the first line, every variable needs to be defined, which is a waste of time. readline is a great help.