With the [:alnum:] POSIX character class.

tyler_durden

So if below works on a single column datafile of
Apple
B34
Cat
112
245
356

Outputs to screen:
112 Apple
245 B34
356 Cat

open(FILE, "<", "dataFile");
while(<FILE>) {
chomp;
if ($_ =~ /^[[:digit:]]+$/) {
push @intArray, $_;
} elsif (($_ =~ /^[[:alpha:]]+$/)||($_ =~ /^[[:alnum:]]+$/)) {
push @stringArray, $_;
}
}
close(FILE);
$lengthArray=@intArray;
for($i=0; $i<$lengthArray; $i++) {
print"\n$intArray[$i] $stringArray[$i] ";
}



How can I take a datafile that has a special character and have mult arrays. First array catches everything before the special character “$” and the second array catches everything after the special character?

Abc is good for me $4.55
Def might not be enough $5.66
Ghi price to play $6.77

/r
Rick

$
$ cat data.txt
Abc is good for me $4.55
Def might not be enough $5.66
Ghi price to play $6.77
$
$ perl -ne 'chomp; split /\$/; push @a1,$_[0]; push @a2,$_[1]; END{foreach $i(@a1){print $i,"\n"} foreach $i(@a2){print $i,"\n"}}' data.txt
Abc is good for me
Def might not be enough
Ghi price to play
4.55
5.66
6.77
$
$

In script form:

my @before;
my @after;
open(FILE, "<", "dataFile");
while(<FILE>) {
   chomp;
   my ($before, $after) = split(/\$/);
   push @before, $before;
   push @after, $after;
}

for my $i (0 .. $#before) {
   print "$before[$i] $after[$i]\n";
}