http://qs1969.pair.com?node_id=906284

Angharad has asked for the wisdom of the Perl Monks concerning the following question:

Hi there

This is an embarassingly easy question I'm sure, but I simply dont know why my wee script isnt working properly.

I have a text file that looks like this:
1.2.56.3 3.55.7.3 etc
and I want to split the contents of each line on the period so that for:
1.2.56.3
I get
$nums[0] = 1, $nums[1] = 2 $nums[3] = 56 etc
Could anyone please point out whatever silly error is in my script? At the moment $nums[0] when printed contains the enire contents of the line e.g. 1.2.56.3 and all the others are (obviously) empty
#!/usr/bin/env perl use strict; my $file = shift; open(FILE, $file) || die "Unable to open $file for reading: $!\n"; while(<FILE>) { my @sf = split; #print "@sf\n"; print test my @nums = split(/\\./, $sf[0]); #print "@nums\n"; print "$nums[0]\n"; }
All help much appreciated!