Hi,
I've got a .txt with 25 of numerically named lines (example). (Example):
1. First Name:
2. Last Name:
3. Age:
4. Company:
5. Quality of the service:
...
25. Would you recommend our services:
I'm trying to strip everything after the colon so I'm just left with the
answer. In case there is no answer to a question I'm trying to leave it as a
"-". Where am I going wrong? All I get is the default "-" in case no answers
is given ...
#!/usr/bin/perl
# strip_answers.pl
use strict;
use warnings;
# array to store the stripped results
my @information;
# open a filehandle to output.txt (where the results are stored) in read
mode
open (IN, '<', 'output.txt') or die "Can't open output.txt: $!\n";
# while the filehandle is open, read each line and see if it matches
# the regular expression
while (<IN>) {
# iterate though the filehandle 25 times (one for each question). I set $i
to 1 as
# the first question begins with the number 1
for (my $i=1; $i<26; $i++) {
# see if the regexp matches
if ($_ =~ /^$i\..+:\s(.+)/) {
$information[$i] = $1;
# if there is no match, set the value to "-"
} else {
$information[$i] = "-";
}
}
}
close IN or die "Can't close output.txt: $!\n";
# cycle through theh array to check the results
foreach (1..$#information) {
print "$information[$_]\n";
}
Thanking everyone in advance.
Cheers,
Juan Manuel.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
