perlquestion
Anonymous Monk
Hi,
i am reading a text file. and my code looks like below:
<c>
open FH, "$INPUT_DIR/$input_file" or die "Couldn't Open File: $!";
while ( <FH> ) {
chomp;
my ($s, $a, $c, $r) = (split / [, \t]/, $_);
</c>
the split fucntion process the comma and tab delimited now.
Input file:
<c>
process:
clientserver,00001,AIT,SOURCE
clientserver 00001 AIT SOURCE
error:
clientserve|00001|AIT|SOURCE
</c>
split should die if it finds the pipe and it should process if it finds comma or tab delimited.
11