Hi All,
I have data in a tab delimited format like this (tabs might be lost in
the formatting of the email).
A456/959 ScHe
M920/1123 He
D123/999 ChFl
D123/949 AnFl
S520/257 Sp
T510/106 TePeHe
T540/110 Te
T875/1010 TeSc
T875/1050 TeSc
I need to split the 2nd column. The string is to be split into 2
characters , so ChFl becomes 'Ch, Fl' . I can't seem to find a RE that
will split the data correctly. My best effort is below but is captures
everything into $f[0], there is no splitting at all. I also tried my
hand at a recursive subroutine but that caused a lot deep recursion
errors.
Can anyone offer a bit of advise here?
Thanx,
Dp.
#!/bin/perl
use strict;
use warnings;
use Text::Tabfile;
my $file = 'myfile.txt';
my $tabfile = new Text::TabFile;
$tabfile->open($file);
my @headers = $tabfile->fields;
while (my $row = $tabfile->read) {
my $str = $row->{'code'};
my @f = split(/(?=\b[A-Z][a-z]\b)/, $str);
print qq($row->{'number'}, "$f[0]" "$str"\n");
#print $row->{'number'},"\t";
#for (@f) {
# print $_,',';
#}
#print "\n";
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
