Hmm i see.. but i cannot make this run!! Iīm a little bit of newbie in the Perl Language!!!!!
Can you explain me why does my code donīt work!??
$file="Finger.java";
open(F,"$file");
undef $/;
my %hash;
my $re= qr{
( /\* .*? \*/) | ( \/\/[^\n]*)
| " (?: [^"\\]* | \\. )* "
| ' (?: [^'\\]* | \\. )* '
| . [^/"']*
}xs;
while( /$re/g ) {
$hash{pos($_)}= $1;
}
my @nl;
while( /\n/g ) {
push @nl, pos($_);
}
my $ln= 1;
while( /$re/g ) {
$ln++ while $nl[$ln-1] < pos($_);
$hash{$ln}= $1;
}
@keys=sort {$a<=>$b} (keys %hash);
foreach $key (@keys) {
$value=$hash{$key};
$hash_ordenada{$key}=$value;
print "Line: $key\t$value\n";
}
Thank you very much!
nofernandes!