0

I would like to write Perl script to read just first line of a file & calculate the length of second field which is comma separator file.

For example -
1001,abcd,9999
1002,xyz,0001

expecting result - 4 (character length of second field from just first line i.e. abcd)

Can somebody help me to write perl script for this?

2
Contributors
1
Reply
2
Views
5 Years
Discussion Span
Last Post by d5e5
0
#!/usr/bin/perl;
use strict;
use warnings;

my $filename = 'input.csv';
open my $fh, '<', $filename or die "Unable to open $filename: $!";

my $firstline = <$fh>;
chomp($firstline);
print "The first line is $firstline\n";

my @fields = split(/,/, $firstline);
my $len = length($fields[1]);
print "The second field contains '$fields[1]' which has length of $len\n";
This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.