On Apr 24, David Gray said: >> > sub by_number_of_citations >> > { >> > $a =~ /\<td\>(.*?)\<\/td\>/; >> > my $A = $1; >> > $b =~ /\<td\>(.*?)\<\/td\>/; >> > my $B = $1; >> > >> > $B <=> $A; >> > } > >May I suggest: >(my $A = $a) =~ s/^<tr><td>(\d+)<\/td>/$1/; >(my $B = $b) =~ s/^<tr><td>(\d+)<\/td>/$1/;
That's not what he's doing. He's doing: my ($A) = $a =~ m{^<tr><td>(\d+)</td>}; my ($B) = $b =~ m{^<tr><td>(\d+)</td>}; Yours leaves everything after the </td> tacked onto the end of $A; mine and his only store the number in $A. >> > sub alphabetically >> > { >> > $a =~ /^\<tr\>\<td\>\d+\<\/td\>\<td\>(.*)\<\/td\>/; >> > my $A = $1; >> > $b =~ /^\<tr\>\<td\>\d+\<\/td\>\<td\>(.*)\<\/td\>/; >> > my $B = $1; >> > >> > $A cmp $B; >> > } > >Again: >(my $A = $a) =~ s/^<tr><td>\d+<\/td><td>(.*?)<\/td>/; >(my $B = $b) =~ s/^<tr><td>\d+<\/td><td>(.*?)<\/td>/; Again, see above. -- Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/ RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/ ** Look for "Regular Expressions in Perl" published by Manning, in 2002 ** <stu> what does y/// stand for? <tenderpuss> why, yansliterate of course. [ I'm looking for programming work. If you like my work, let me know. ] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]