I am trying to split the first element of an array by white space then
continue reading the rest of the file.
Thus far I am having trouble figuring out how to split the first line.
I would like the first line to be split so it looks like the following
with the "=" sign added.
Thank you in advance!
Chris
csno=
rfpi=
header_1=
header_2=
header_3=
header_4=
header_5=
header_6=
header_7=
header_8=
header_9=
I am getting the error:
Use of implicit split to @_ is deprecated at ./xxxxx.pl line 6.
#!/usr/bin/perl
use warnings;
use strict;
while (my @line = <DATA>) {
my $header = split " ",$line[0];
print $header;
}
__DATA__
csno rfpi header_1 header_2 header_3
header_4 header_5 header_6 header_7 header_8
header_9
1 1 5.5 5.5 5.5 5.5 5.5 5.5 5.5
5.5 5.5
1 2 5.5 5.5 5.5 5.5 5.5 5.5 5.5
5.5 5.5
1 3 5.5 5.5 5.5 5.5 5.5 5.5 5.5
5.5 5.5
2 1 5.5 5.5 5.5 5.5 5.5 5.5 5.5
5.5 5.5
2 2 5.5 5.5 5.5 5.5 5.5 5.5 5.5
5.5 5.5
2 3 5.5 5.5 5.5 5.5 5.5 5.5 5.5
5.5 5.5
3 1 5.5 5.5 5.5 5.5 5.5 5.5 5.5
5.5 5.5
3 2 5.5 5.5 5.5 5.5 5.5 5.5 5.5
5.5 5.5
3 3 5.5 5.5 5.5 5.5 5.5 5.5 5.5
5.5 5.5
4 1 5.5 5.5 5.5 5.5 5.5 5.5 5.5
5.5 5.5
4 2 5.5 5.5 5.5 5.5 5.5 5.5 5.5
5.5 5.5
4 3 5.5 5.5 5.5 5.5 5.5 5.5 5.5
5.5 5.5
