Hi Monks
I would like to know how to split multiple patterns or expressions?
For example I have an input file from infos.txt file and I want to split the data there per line
The infos.txt file have the following input:
"Mawts 25,female,melbourne
Awts 24,male,sydney"
I want to split the <Tab> or space between the name and the age, and also split the "commas" (,)
Here's my code but I'm getting different result:The output produced like this:open(INFILE, "<", "infos.txt") or die ("cannot open input: $!"); while (<INFILE>){ chomp; $name; $age; $gender; $address; ($name) = split(" "); print "Name: $name\n"; ($age, $gender, $address) = split(","); print "Age: $age\n"; print "Gender: $gender\n"; print "Address: $address\n"; } exit 0;
Name: Mawts 25,female,melbourne
Age: Mawts 25
Gender: female
Address: melbourne
Name: Awts 24,male,sydney
Age: Awts 24
Gender: male
Address: sydney
On the result only the "Name" and "Age" has the wrong output but the "Gender" and "Address" is correct. I know there's something wrong with the code but can't figure it out, I tried combining the splitting patterns but gave me blank results only the commas was seen in the result. Hope you could help guys thanks very much..
In reply to Splitting multiple patterns by astronogun
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |